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

Follow me!