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