02 May 2012, 05:28

VB Lite Unitでの記法まとめ

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 を利用してテストを小さく回す。

う-む快感。(´∀`)