VB6－改造ComUnit（免除用例名称注册）

在进行测试驱动开发的过程中，编写测试用例是比较繁琐的，但是更繁琐的是使用ComUnit框架进行测试的过程中，需要在频繁进行测试用例名称的注册，如下边的代码：

'  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 ()
End Property

这很好，但是测试用例的名称的注册、删除、修改的过程就麻烦了，需要改好多地方，时间长了，Array就好长的，周末在回家的路上又开始翻看《重构》这本书, Martin Fowler提到，在Junit框架中，如果测试用例的名称如果是固定前缀的，那么，就不需要频繁注册测试用例名称了，嗯，这个方法很好，至少我这个懒人很喜欢，经过研究，利用TLI很容易就实现了在VB6中得这种反射用法，代码如下：

'  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()
    ITestContainer_TestCaseNames  =  AutoGetTestCaseNames
End Property

' Auto get testcasenames
' TestCaseName prefix must is "Test_"
Private   Function  AutoGetTestCaseNames()  As  Variant()
        Dim  TypeLib  As   Object
        Dim  Prop    As   Object
        Dim  i  As   Integer
        Dim  vHas  As   Boolean
        Dim  v()  As  Variant
        Set  TypeLib  =   CreateObject ( " TLI.TLIApplication " )
        Set  TypeLib  =  TypeLib.InterfaceInfoFromObject(Me)
        For   Each  Prop In TypeLib.Members
             If  Prop.InvokeKind  =  INVOKE_FUNC  Then
                 If   UCase (VBA.Left(Prop.Name,  5 ))  =   UCase ( " Test_ " )  Then
                     If  vHas  =   False   Then
                        vHas  =   True
                         ReDim  Preserve v( 0 )
                     Else
                         ReDim  Preserve v( UBound (v)  +   1 )
                     End   If
                    v( UBound (v))  =  Prop.Name
                 End   If
             End   If
        Next
        Set  TypeLib  =   Nothing
        Set  Prop  =   Nothing
        On   Error   GoTo  onErrors:
       AutoGetTestCaseNames  =  v
        Exit   Function
onErrors:
       AutoGetTestCaseNames  =   Array ()
End Function

测试用例如下：

     Public   Sub  Test_Ver(oTestResult  As  TestResult)
          With  oTestResult
            f.Config App.Path  &   " \TestMatter\FileClass\ver.exe "
            .Assert f.Ver()  =   " 2.0.0.30 " ,  " 0001 "
            f.Config App.Path  &   " \TestMatter\FileClass\ver.txt "
             On   Error   GoTo  onErrors
            f.Ver
            .Assert  False ,  " 0002 "
onErrors:
          End   With
     End Sub

利用这段代码所有Test_开头得测试用例，系统会自动发现，就不需要频繁注册用例名称了，感觉爽。

现在才感受到开源之美，很多小功能，自己修订就好了，而且用起来也好舒服。

点滴：

以前也看过几遍Refactoring这本书了，每次都有新得收获，最近采用ComUnit进行开发后，效率真的不错，而且开发方式也有了本质得变化，测试驱动开发必须经过实践，才能感受到其中得乐趣。