自動テストツール① 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

コメントを残す

メールアドレスが公開されることはありません。