VB Lite Unitの記法がなんとなくわかってきたのでメモ 〆(._.)
この定形ソ-スをクラスモジュールで作成してところどころ修正。
File:SampleTest
'おまじない
Option Explicit
Implements ITestCase
Private Function ITestCase_TestCaseInstance() As ITestCase
Dim objResult As New TaskTraceTest
' Test for cut/paste error - programmer forgot to change type of objResult.
'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
'実験用にtemp変数宣言。ITestCase_RunTest内で宣言したら失敗した。
Private temp As Integer
'ここからテスト関数
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
'AssertEqualがアサ-ト関数 第三引数でテストの名前を書く
AssertEqual 1, temp, "first"
Case objTestNum.NextNumber
'Test2....
Case objTestNum.NextNumber
'Test3....
'Case 文を追加してどんどんテストを書く
Case Else
EndOfTests = True
End Select
End Sub
実行はイミディエイトウィンドウで以下を実行
Runtests New SampleTest
ショ-トカットキ-の Ctrl + G と F7 を利用してテストを小さく回す。
う-む快感。(´∀`)