VB6-单元测试工具ComUnit

'  COMUnit 1.1 - TestRunner form

Option   Explicit

'  Initialize the TestRunner control
Private   Sub  Form_Load()
     '  TODO: add instances of your TestContainer classes to the UnitRunner control
     '  e.g. UnitRunner1.AddTestContainer New TCTestContainer
     ' ************************************************
     ' 必须向UnitRunner添加一个控制对象，别的不需要修改
    UnitRunner1.AddTestContainer  New  TCTestContainer
     ' ************************************************
End Sub

'  Run the tests selected in the UnitRunner
Private   Sub  btnRun_Click()
    UnitRunner1.Run
End Sub

'  Close the form
Private   Sub  btnClose_Click()
    Unload Me
End Sub

'  Resize the UnitRunner control and the buttons on the form
Private   Sub  Form_Resize()
    UnitRunner1.Move  0 ,  0 , ScaleWidth, PosInt(ScaleHeight  -  btnClose.Height  -   50 )
    btnClose.Move PosInt(ScaleWidth  -  btnClose.Width), PosInt(ScaleHeight  -  btnClose.Height)
    btnRun.Move PosInt(ScaleWidth  -  btnClose.Width  -  btnRun.Width  -   100 ), PosInt(ScaleHeight  -  btnRun.Height)
End Sub

Private   Function  PosInt(iValue)  As   Integer
    PosInt  =  IIf(iValue  >   0 , iValue,  0 )
End Function

'  COMUnit 1.1 - TestContainer Class
' 建议类的前缀为TC
Option   Explicit

'  Interface declaration
Implements ITestContainer

'  Fixture Member Variables
'  TODO: specify your TestContainer test fixture member variables here

'  Return the name of the different test case methods in this test container
Public   Property   Get  ITestContainer_TestCaseNames()  As  Variant()
     '  TODO: add the names of your test methods as a parameter into the Array() function
     ' 必须将测试方法的名字加到数组中
    ITestContainer_TestCaseNames  =   Array ( " TestString " ,  " TestLong " )
End Property

'  Run the specified test case methods in this test container
Public   Sub  ITestContainer_RunTestCase(oTestCase  As  ITestCase, oTestResult  As  TestResult)
     On   Error   GoTo  ErrorHandler
    InvokeHook Me, oTestCase.Name, INVOKE_FUNC, oTestResult
     '  CallByName Me, oTestCase.Name, VbMethod, oTestResult
     Exit   Sub
ErrorHandler:
    oTestResult.AddError Err.Number, Err.Source, Err.Description
End Sub

' Initialize the test fixture
Public   Sub  ITestContainer_Setup()
     '  TODO: initialize your test fixture here
End Sub

' Destroy the test fixture
Public   Sub  ITestContainer_TearDown()
     '  TODO: destruct your test fixture here
End Sub

' Public Sub testSampleMethod(oTestResult As TestResult)
     '  TODO: add your test code here
' End Sub

Public   Sub  TestString(oTestResult  As  TestResult)
    oTestResult.Assert  " String "   =   " String " ,  " 字符串不相等 "
End Sub

Public   Sub  TestLong(oTestResult  As  TestResult)
    oTestResult.AssertEqualsLong  1 ,  456 ,  " 数值不相等 "
End Sub