Develop and Download Open Source Software

Browse Subversion Repository

Annotation of /ShogiNextMove.Test/CSAKifuUtilTest.vb

Parent Directory Parent Directory | Revision Log Revision Log


Revision 76 - (hide annotations) (download)
Mon Feb 22 06:48:06 2016 UTC (8 years, 1 month ago) by bellyoshi
File size: 5781 byte(s)


1 bellyoshi 76 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