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进行开发后，效率真的不错，而且开发方式也有了本质得变化，测试驱动开发必须经过实践，才能感受到其中得乐趣。