VB6测试工具ComUnit使用心得

1.例如函数main1中调用了一个下位函数fun1，则需要在源代码中的两个地方插入代码：
（1）main1调用fun1的上一步插入代码isShield_ fun1 = True，表示确定屏蔽函数fun1。
（2）fun1的第一步插入代码执行屏蔽，如下：
     If isShield_ fun1 Then
         '这里可以增加fun1执行的结果，例如：设置函数返回值True或者False
         Exit Function
     End If
这样的目的使得当前被测试的函数变得独立，无需考虑下位函数的情况。

2.在具体case中根据情况设置相关屏蔽条件True还是False，一般的做法是如果当前测试的函数含有屏蔽条件。
比如上面的fun1，那么在测试fun1的case中调用fun1前必须执行此语句：isShield_ fun1 = False，这样以便fun1被实际执行。

3.其实在最上面提到的main1中插入代码isShield_ fun1 = True也可以根据实际情况确定是否需要。
如果你需要连同下位函数一起测试或者下位函数已经被确认是正确无误的，那么则可以拿掉这一行，这样也可以在测试main1的case中对isShield_ fun1进行控制了。
一般情况下如果下位函数需要提供大量数据则应当屏蔽以减少工作量。

4.对于一个函数可能会设计了很多个case，这样可能就需要在每个case中加入isShield_ fun1 = False，
但是ComUnit是按照你设置的case的顺序执行的，这样其实只需要在第一个case中插入代码即可，不过还需要根据具体情况进行操作，严格来讲应该每个case里面都加入。

5.另外可以借助于辅助工具“ConvertCaseString”来提高效率，减少部分重复劳动。
例如ComUnit最前面通过Array方法声明case，有时几十个case一个个复制粘贴很容易出错且比较麻烦，用“ConvertCaseString”就方便多了，做法如下：
直接从excel中复制第一列粘贴到该程序的“Function Name”处即可一下子获得声明，他还会自动分行。
另外许多类似的case也可以瞬间生成，典型的像仅仅是错误号返回不同的case，可以通过设置“Function Name”、“Key Value”、“Function Content”三部分来一下子获得。

图1（获得声明）


图2（类似代码自动生成）