Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
VbLiteUnit_Test_ForMat
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
'ここにテストその2処理記載
Case objTestNum.NextNumber
'ここにテストその3処理記載
Case objTestNum.NextNumber
'ここにテストその4…以下テスト数分Caseを記載
Case Else
EndOfTests = True
End Select
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.