• このエントリーをはてなブックマークに追加

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 を利用してテストを小さく回す。
う-む快感。(´∀`)