自動テストツール NUnit 3/3

.Net用テストツールNUnit用テスト関数
テスト用プログラム(プロジェクト：TestOnly)
構成は自動テストツール① NUnit 1/3参照
<Test()> _
Public Sub Test3()
　　Dim target As New NUnit.frmNUnit()
　　target.value1 = 10
　　target.value2 = 20
　　Call target.Kake()

　　’target.answer ＝ prmExpected の時テスト成功
　　Assert.AreEqual(expected:=200, _
　　　　　　　　　　　　actual:=target.answer, _
　　　　　　　　　　　　message:=”掛算失敗”)

　　’Trueの時(target.answer = 200 の時)、テスト成功
　　Assert.True(condition:=target.answer = 200)

　　’Falseの時(target.answer = 20000 でない時)、テスト成功
　　Assert.False(condition:=target.answer = 20000)

　　Dim tmpValue As Object = Nothing
　　’ tmpValue Is Nothing の時、テストは成功
　　Assert.IsNull(tmpValue) ‘tmpValueはNothingなのでテストは成功

　　’ NOT(tmpValue Is Nothing) の時、テストは成功
　　Assert.IsNotNull(tmpValue) ‘tmpValueはNothingなのでテストは失敗

　　tmpValue = “aaa”
　　Assert.IsNotNull(tmpValue) ‘ このテストは成功

End Sub