Develop and Download Open Source Software

Browse Subversion Repository

Contents of /ShogiNextMove.Test/KomaLocationTest.vb

Parent Directory Parent Directory | Revision Log Revision Log


Revision 76 - (show annotations) (download)
Mon Feb 22 06:48:06 2016 UTC (8 years ago) by bellyoshi
File size: 2988 byte(s)


1 Imports Microsoft.VisualStudio.TestTools.UnitTesting
2
3 Imports ShogiNextMove.Board
4
5
6
7 '''<summary>
8 '''KomaLocationTest のテスト クラスです。すべての
9 '''KomaLocationTest 単体テストをここに含めます
10 '''</summary>
11 <TestClass()> _
12 Public Class KomaLocationTest
13
14
15 Private testContextInstance As TestContext
16
17 '''<summary>
18 '''現在のテストの実行についての情報および機能を
19 '''提供するテスト コンテキストを取得または設定します。
20 '''</summary>
21 Public Property TestContext() As TestContext
22 Get
23 Return testContextInstance
24 End Get
25 Set(value As TestContext)
26 testContextInstance = Value
27 End Set
28 End Property
29
30 Private komabakoLocation As KomaLocation
31 Private masuLocation As KomaLocation
32 Private mochigomaLocation As KomaLocation
33
34 #Region "追加のテスト属性"
35 '
36 'テストを作成するときに、次の追加属性を使用することができます:
37 '
38 'クラスの最初のテストを実行する前にコードを実行するには、ClassInitialize を使用
39 '<ClassInitialize()> _
40 'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
41 'End Sub
42 '
43 'クラスのすべてのテストを実行した後にコードを実行するには、ClassCleanup を使用
44 '<ClassCleanup()> _
45 'Public Shared Sub MyClassCleanup()
46 'End Sub
47 '
48 ' 各テストを実行する前にコードを実行するには、TestInitialize を使用
49 <TestInitialize()> _
50 Public Sub MyTestInitialize()
51 komabakoLocation = KomaLocation.KomaBako
52 masuLocation = New KomaLocation(1, 1)
53 mochigomaLocation = KomaLocation.Mochigoma
54 End Sub
55 '
56 '各テストを実行した後にコードを実行するには、TestCleanup を使用
57 '<TestCleanup()> _
58 'Public Sub MyTestCleanup()
59 'End Sub
60 '
61 #End Region
62
63
64 '''<summary>
65 '''IsKomaBako のテスト
66 '''</summary>
67 <TestMethod()> _
68 Public Sub IsKomaBakoTest()
69
70 Assert.AreEqual(True, komabakoLocation.IsKomaBako)
71 Assert.AreEqual(False, mochigomaLocation.IsKomaBako)
72 Assert.AreEqual(False, masuLocation.IsKomaBako)
73
74
75 End Sub
76
77 '''<summary>
78 '''IsMasu のテスト
79 '''</summary>
80 <TestMethod()> _
81 Public Sub IsMasuTest()
82 Assert.AreEqual(False, komabakoLocation.IsMasu)
83 Assert.AreEqual(False, mochigomaLocation.IsMasu)
84 Assert.AreEqual(True, masuLocation.IsMasu)
85
86 End Sub
87
88 '''<summary>
89 '''IsMochigoma のテスト
90 '''</summary>
91 <TestMethod()> _
92 Public Sub IsMochigomaTest()
93 Assert.AreEqual(False, komabakoLocation.IsMochigoma)
94 Assert.AreEqual(True, mochigomaLocation.IsMochigoma)
95 Assert.AreEqual(False, masuLocation.IsMochigoma)
96
97 End Sub
98 End Class

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26