Develop and Download Open Source Software

Browse Subversion Repository

Contents of /ShogiNextMove.Test/CSAKifuUtilTest.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: 5781 byte(s)


1 Imports ShogiNextMove.Board
2
3 Imports Microsoft.VisualStudio.TestTools.UnitTesting
4
5 Imports ShogiNextMove.Board.Kifu
6
7
8
9 '''<summary>
10 '''CSAKifuUtilTest のテスト クラスです。すべての
11 '''CSAKifuUtilTest 単体テストをここに含めます
12 '''</summary>
13 <TestClass()> _
14 Public Class CSAKifuUtilTest
15
16
17 Private testContextInstance As TestContext
18
19 '''<summary>
20 '''現在のテストの実行についての情報および機能を
21 '''提供するテスト コンテキストを取得または設定します。
22 '''</summary>
23 Public Property TestContext() As TestContext
24 Get
25 Return testContextInstance
26 End Get
27 Set(value As TestContext)
28 testContextInstance = Value
29 End Set
30 End Property
31
32 #Region "追加のテスト属性"
33 Private _CSAKifuUtil As CSAKifuUtil = CSAKifuUtil.GetInstance
34 '
35 'テストを作成するときに、次の追加属性を使用することができます:
36 '
37 'クラスの最初のテストを実行する前にコードを実行するには、ClassInitialize を使用
38 '<ClassInitialize()> _
39 'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
40
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 'End Sub
52 '
53 '各テストを実行した後にコードを実行するには、TestCleanup を使用
54 '<TestCleanup()> _
55 'Public Sub MyTestCleanup()
56 'End Sub
57 '
58 #End Region
59
60
61
62
63
64 '''<summary>
65 '''KomaToCSAName のテスト
66 '''</summary>
67 <TestMethod()> _
68 Public Sub KomaToCSANameTest()
69 Assert.AreEqual("KY", _CSAKifuUtil.KomaToName(Koma.C_KYO))
70 Assert.AreEqual("FU", _CSAKifuUtil.KomaToName(Koma.C_FU))
71 Assert.AreEqual("HI", _CSAKifuUtil.KomaToName(Koma.C_HISYA))
72 Assert.AreEqual("OU", _CSAKifuUtil.KomaToName(Koma.C_GYOKU))
73 Assert.AreEqual("OU", _CSAKifuUtil.KomaToName(Koma.C_OU))
74 End Sub
75
76 '''<summary>
77 '''KomaToCSANameWithWhich のテスト
78 '''</summary>
79 <TestMethod()> _
80 Public Sub KomaToCSANameWithWhichTest()
81 Assert.AreEqual("+FU", _CSAKifuUtil.KomaToNameWithWhich(Koma.SENTE_FU))
82 Assert.AreEqual("-FU", _CSAKifuUtil.KomaToNameWithWhich(Koma.GOTE_FU))
83 Assert.AreEqual("+HI", _CSAKifuUtil.KomaToNameWithWhich(Koma.SENTE_HISYA))
84 Assert.AreEqual("+OU", _CSAKifuUtil.KomaToNameWithWhich(Koma.SENTE_OU))
85 Assert.AreEqual("+OU", _CSAKifuUtil.KomaToNameWithWhich(Koma.SENTE_GYOKU))
86 End Sub
87
88 '''<summary>
89 '''IsPromoteKoma のテスト
90 '''</summary>
91 <TestMethod()> _
92 Public Sub IsPromoteKomaTest()
93 Assert.AreEqual(True, CommonKifuUtil.IsPromoteKoma(Koma.SENTE_TOKIN, Koma.SENTE_FU))
94 Assert.AreEqual(False, CommonKifuUtil.IsPromoteKoma(Koma.SENTE_TOKIN, Koma.SENTE_TOKIN))
95 Assert.AreEqual(False, CommonKifuUtil.IsPromoteKoma(Koma.SENTE_FU, Koma.SENTE_FU))
96 End Sub
97
98 '''<summary>
99 '''CSAStringToNullMove のテスト
100 '''</summary>
101 <TestMethod()> _
102 Public Sub CSAStringToNullMoveTest()
103 Dim actual As Te
104 actual = _CSAKifuUtil.StringToNullMove("%TORYO", Koma.GOTE)
105 Assert.AreEqual(True, actual.IsNullMove)
106 Assert.AreEqual(NullMoveType.TORYO, actual.NullMoveType)
107 End Sub
108
109 '''<summary>
110 '''CSAParseThinkTime のテスト
111 '''</summary>
112 <TestMethod()> _
113 Public Sub CSAParseThinkTimeTest()
114 Assert.AreEqual(6, _CSAKifuUtil.CSAParseThinkTime("-3334FU,T6"))
115 End Sub
116
117 '''<summary>
118 '''CSAMoveStringToTe のテスト
119 '''</summary>
120 <TestMethod()> _
121 Public Sub CSAMoveStringToTeTest()
122 Dim line As String = "-3334FU"
123 Dim kyokumen As New Kyokumen
124 Dim actual As Te = _CSAKifuUtil.MoveStringToTe(line, kyokumen)
125 Assert.AreEqual(4, actual.ToLocation.Row)
126 Assert.AreEqual(3, actual.ToLocation.Col)
127 Assert.AreEqual(3, actual.FromLocation.Row)
128 Assert.AreEqual(3, actual.FromLocation.Col)
129 Assert.AreEqual(Koma.GOTE, actual.Which)
130 Assert.AreEqual(False, actual.Promote)
131 Assert.AreEqual(Koma.GOTE_FU, actual.Piece.Value)
132 End Sub
133
134 '''<summary>
135 '''CSAKomaNameWithWhichToValue のテスト
136 '''</summary>
137 <TestMethod()> _
138 Public Sub CSAKomaNameWithWhichToValueTest()
139 Assert.AreEqual(Koma.SENTE_FU, _CSAKifuUtil.KomaNameWithWhichToValue("+FU"))
140 Assert.AreEqual(Koma.SENTE_GYOKU, _CSAKifuUtil.KomaNameWithWhichToValue("+OU"))
141 Assert.AreEqual(Koma.GOTE_FU, _CSAKifuUtil.KomaNameWithWhichToValue("-FU"))
142 Assert.AreEqual(Koma.GOTE_RYU, _CSAKifuUtil.KomaNameWithWhichToValue("-RY"))
143 Assert.AreEqual(Koma.GOTE_OU, _CSAKifuUtil.KomaNameWithWhichToValue("-OU"))
144 Assert.AreEqual(CByte(0), _CSAKifuUtil.KomaNameWithWhichToValue(" * "))
145 Assert.AreEqual(Koma.SENTE_HISYA, _CSAKifuUtil.KomaNameWithWhichToValue("+HI"))
146 Assert.AreEqual(Koma.GOTE_KAKU, _CSAKifuUtil.KomaNameWithWhichToValue("-KA"))
147 End Sub
148
149 '''<summary>
150 '''CSAKomaNameToValue のテスト
151 '''</summary>
152 <TestMethod()> _
153 Public Sub CSAKomaNameToValueTest()
154
155 Assert.AreEqual(Koma.C_FU, _CSAKifuUtil.KomaNameToValue("FU"))
156 Assert.AreEqual(Koma.C_OU, _CSAKifuUtil.KomaNameToValue("OU"))
157
158 End Sub
159 End Class

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