view/ShogiNextMove.Test/KyokumenHaichiCompTest.vb

Imports ShogiNextMove.Board.Haichi

Imports ShogiNextMove.Board

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports ShogiNextMove


'''<summary>
'''KyokumenHaichiCompTest のテスト クラスです。すべての
'''KyokumenHaichiCompTest 単体テストをここに含めます
'''</summary>
<TestClass()> _
Public Class KyokumenHaichiCompTest


    Private testContextInstance As TestContext

    '''<summary>
    '''現在のテストの実行についての情報および機能を
    '''提供するテスト コンテキストを取得または設定します。
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(value As TestContext)
            testContextInstance = Value
        End Set
    End Property


    '''<summary>
    '''HaichiIsEqual のテスト
    '''</summary>
    <TestMethod()> _
    Public Sub HaichiIsEqualTest()
        Dim kyokumen As Kyokumen = New Kyokumen
        Dim haichi As HaichiBase = New Haichi.Hirate
        Dim nimai As New Haichi.Nimaiochi
        Assert.AreEqual(True, KyokumenHaichiComp.HaichiIsEqual(kyokumen, haichi))
        Assert.AreEqual(False, KyokumenHaichiComp.HaichiIsEqual(kyokumen, nimai))
    End Sub
End Class