VbLiteUnit_Test_ForMat

gistfile1.vb

Option Explicit

'VbLiteUnitを読み込みます
Implements ITestCase

Private Function ITestCase_TestCaseInstance() As ITestCase
    Dim objResult As New ClassTest '自テストClass名を記載
    Debug.Assert TypeName(objResult) = TypeName(Me)
    Set ITestCase_TestCaseInstance = objResult
End Function

Private Property Get ITestCase_Suite() As Variant
    ' Do nothing here
    ' Only run tests within RunTest.
End Property

Private Sub ITestCase_RunTest( _
    ByVal TestNum As Long, _
    TestName As String, _
    ExpectErrNum As Long, _
    EndOfTests As Boolean _
)

 Dim objTestNum As New TestNumGenerator
 
  Select Case TestNum
    Case tstcTestActionSetup
      'Setup

    Case tstcTestActionTeardown
      'TearDown

    Case objTestNum.NextNumber
     'ここにテスト処理記載

    Case objTestNum.NextNumber
     'ここにテストその２処理記載
    
    Case objTestNum.NextNumber
     'ここにテストその３処理記載
     
    Case objTestNum.NextNumber
     'ここにテストその４…以下テスト数分Caseを記載

    Case Else
      EndOfTests = True
 
  End Select

End Sub