Develop and Download Open Source Software

Browse Subversion Repository

Annotation of /ShogiNextMove.Test/CSAKifuWriterTest.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: 3979 byte(s)


1 bellyoshi 76 Imports Microsoft.VisualStudio.TestTools.UnitTesting
2    
3     Imports ShogiNextMove.Board.Kifu
4     Imports ShogiNextMove.Board
5    
6    
7     '''<summary>
8     '''CSAKifuWriterTest のテスト クラスです。すべての
9     '''CSAKifuWriterTest 単体テストをここに含めます
10     '''</summary>
11     <TestClass()> _
12     Public Class CSAKifuWriterTest
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     #Region "追加のテスト属性"
31     '
32     'テストを作成するときに、次の追加属性を使用することができます:
33     '
34     'クラスの最初のテストを実行する前にコードを実行するには、ClassInitialize を使用
35     '<ClassInitialize()> _
36     'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
37     'End Sub
38     '
39     'クラスのすべてのテストを実行した後にコードを実行するには、ClassCleanup を使用
40     '<ClassCleanup()> _
41     'Public Shared Sub MyClassCleanup()
42     'End Sub
43     '
44     '各テストを実行する前にコードを実行するには、TestInitialize を使用
45     '<TestInitialize()> _
46     'Public Sub MyTestInitialize()
47     'End Sub
48     '
49     '各テストを実行した後にコードを実行するには、TestCleanup を使用
50     '<TestCleanup()> _
51     'Public Sub MyTestCleanup()
52     'End Sub
53     '
54     #End Region
55    
56    
57     '''<summary>
58     '''MakeKifuCSAString のテスト
59     '''</summary>
60     <TestMethod()> _
61     Public Sub MakeKifuCSAStringTest()
62     Dim target As CSAKifuWriter = New CSAKifuWriter()
63     Dim kifu As New Kifu
64     kifu.InitializeBoard(New Kyokumen)
65     kifu.SenteName = "hoge"
66     kifu.GoteName = "foo"
67     Dim te1 As New Te(New KomaLocation(7, 7), New KomaLocation(7, 6), Koma.SENTE_FU, False)
68     kifu.AddMove(te1, 1)
69     Dim expected As String =
70     "V2.2" & vbCrLf &
71     "N+hoge" & vbCrLf &
72     "N-foo" & vbCrLf &
73     "PI" & vbCrLf &
74     "+" & vbCrLf &
75     "+7776FU,T1" & vbCrLf
76    
77     Dim actual As String = target.MakeKifuCSAString(kifu)
78     Assert.AreEqual(expected, actual)
79     End Sub
80    
81     <TestMethod()> _
82     Public Sub MakeKifuCSAStringTest2()
83     Dim target As CSAKifuWriter = New CSAKifuWriter()
84     Dim kifu As New Kifu
85     Dim firstkyokumen As New Kyokumen
86     Dim te1 As New Te(New KomaLocation(7, 7), New KomaLocation(7, 6), Koma.SENTE_FU, False)
87     firstkyokumen.Move(te1)
88     kifu.InitializeBoard(firstkyokumen)
89     kifu.SenteName = "hoge"
90     kifu.GoteName = "foo"
91     Dim te2 As New Te(New KomaLocation(3, 3), New KomaLocation(3, 4), Koma.GOTE_FU, False)
92     kifu.AddMove(te2, 1)
93     Dim expected As String =
94     "V2.2" & vbCrLf &
95     "N+hoge" & vbCrLf &
96     "N-foo" & vbCrLf &
97     "P1-KY-KE-GI-KI-OU-KI-GI-KE-KY" + vbCrLf +
98     "P2 * -HI * * * * * -KA * " + vbCrLf +
99     "P3-FU-FU-FU-FU-FU-FU-FU-FU-FU" + vbCrLf +
100     "P4 * * * * * * * * * " + vbCrLf +
101     "P5 * * * * * * * * * " + vbCrLf +
102     "P6 * * +FU * * * * * * " + vbCrLf +
103     "P7+FU+FU * +FU+FU+FU+FU+FU+FU" + vbCrLf +
104     "P8 * +KA * * * * * +HI * " + vbCrLf +
105     "P9+KY+KE+GI+KI+OU+KI+GI+KE+KY" + vbCrLf +
106     "-" + vbCrLf +
107     "-3334FU,T1" & vbCrLf
108     Dim actual As String = target.MakeKifuCSAString(kifu)
109     Assert.AreEqual(expected, actual)
110     End Sub
111    
112     End Class

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