VB单元测试
转自：软件测试网
vb有多个单元测试的软件，如VBunit,communit。此处选择communit来作为单元测试的，原因是一、它是完全开放源码的，二、它不仅能 测试VB源代码，还能测试标准COM组件。communit可以从sourceforge.net下载，也可以本地下载,本地版本与有两个修改，一是修正模板的安装，原来的包没有完全设置好，二是增加了时间的计算，能显示测试花费的时间。
第一个，ITestContainer_TestCaseNames。是测试函数的列表，ITestContainer_TestCaseNames = Array("TestFields")，TestFields就是函数名，要测试这个函数，就写在这个数组里。
这个函数是自动生成的，不用修改。
这个函数是每一个测试函数运行时自动调用的，可以在这个函数中初始化测试的内容。
这三个函数就是测试函数。TestFields是公共测试函数，另两个函数由TestFields调用。先把文件导入到数据库，再从数据库把文件导出到文件中，最后比较两个文件是否相同。
vb有多个单元测试的软件，如VBunit,communit。此处选择communit来作为单元测试的，原因是一、它是完全开放源码的，二、它不仅能 测试VB源代码，还能测试标准COM组件。communit可以从sourceforge.net下载，也可以本地下载,本地版本与有两个修改，一是修正模板的安装，原来的包没有完全设置好，二是增加了时间的计算，能显示测试花费的时间。
使用，把包下载，然后解到一个目录，运行install.exe，打开VB。可以发现可以新建CoMunit Test Project的工程。有两个文件frmTestRunner的form,TCTestContainer是测试类。下面我们看一下如何使用 comunit。先下载测试代码。
这个代码是测试二进制文件在数据库里的存取。有关二进制代码在数据库里存取的技术问题，请看另一篇文章。用什么办法来确定代码是正确工作了呢？答案当然是单元测试。
测试代码很简单，但的确很有效，它保证这段代码是正确的工作了。
' COMUnit 1.1 - TestContainer Class
Option Explicit
' Interface declaration
Implements ITestContainer
'定义一个recordset
Dim k As New adodb.Recordset
'定义bin类
Dim BinTest As clsManagerBinFields
'定义源文件名和目标文件名
Dim SourceFile As String, DesFile As String
' 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("TestFields")
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
'指定源文件名，这里就指定这个文件
SourceFile = App.Path & "\tctestcontainer.cls"
'指定目标文件名，这里指定为当前目录下的test
DesFile = App.Path & "\test"
Set BinTest = New clsManagerBinFields
'如果目标文件存在，则删除这个文件
If Dir(DesFile) <> "" Then Kill DesFile
'建立一个新的Recordset，这里用一个虚拟的数据源来代替，这样就不用打开数据库了
k.Source = "test"
k.Fields.Append "thefile", adBinary, -1, adFldUpdatable
k.Open , , adOpenKeyset, adLockBatchOptimistic
k.AddNew
End Sub
'Destroy the test fixture
Public Sub ITestContainer_TearDown()
' TODO: destruct your test fixture here
' k.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\xpconnect\db\test.mdb;Persist Security Info=False"
' k.UpdateBatch adAffectAllChapters
' k.Close
'测试完成后自动完成
Set k = Nothing
Set BinTest = Nothing
End Sub
'Public Sub testSampleMethod(oTestResult As TestResult)
' TODO: add your test code here
'End Sub
Private Sub TestFieldtoFile(oTestResult As TestResult)
oTestResult.Assert BinTest.FieldToFile(DesFile, k!thefile), "导出到文件不成功"
End Sub
Private Sub TestFiletofield(oTestResult As TestResult)
oTestResult.Assert BinTest.fileTofield(SourceFile, k!thefile), "导入到数据库不成功"
End Sub
Public Sub TestFields(oTestResult As TestResult)
TestFiletofield oTestResult
TestFieldtoFile oTestResult
oTestResult.Assert FileLen(SourceFile) = FileLen(DesFile), "文件不相符!"
End Sub
Option Explicit
' Interface declaration
Implements ITestContainer
'定义一个recordset
Dim k As New adodb.Recordset
'定义bin类
Dim BinTest As clsManagerBinFields
'定义源文件名和目标文件名
Dim SourceFile As String, DesFile As String
' 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("TestFields")
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
'指定源文件名，这里就指定这个文件
SourceFile = App.Path & "\tctestcontainer.cls"
'指定目标文件名，这里指定为当前目录下的test
DesFile = App.Path & "\test"
Set BinTest = New clsManagerBinFields
'如果目标文件存在，则删除这个文件
If Dir(DesFile) <> "" Then Kill DesFile
'建立一个新的Recordset，这里用一个虚拟的数据源来代替，这样就不用打开数据库了
k.Source = "test"
k.Fields.Append "thefile", adBinary, -1, adFldUpdatable
k.Open , , adOpenKeyset, adLockBatchOptimistic
k.AddNew
End Sub
'Destroy the test fixture
Public Sub ITestContainer_TearDown()
' TODO: destruct your test fixture here
' k.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\xpconnect\db\test.mdb;Persist Security Info=False"
' k.UpdateBatch adAffectAllChapters
' k.Close
'测试完成后自动完成
Set k = Nothing
Set BinTest = Nothing
End Sub
'Public Sub testSampleMethod(oTestResult As TestResult)
' TODO: add your test code here
'End Sub
Private Sub TestFieldtoFile(oTestResult As TestResult)
oTestResult.Assert BinTest.FieldToFile(DesFile, k!thefile), "导出到文件不成功"
End Sub
Private Sub TestFiletofield(oTestResult As TestResult)
oTestResult.Assert BinTest.fileTofield(SourceFile, k!thefile), "导入到数据库不成功"
End Sub
Public Sub TestFields(oTestResult As TestResult)
TestFiletofield oTestResult
TestFieldtoFile oTestResult
oTestResult.Assert FileLen(SourceFile) = FileLen(DesFile), "文件不相符!"
End Sub
写单元测试代码很简单，只要完成几个函数就可以了。
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("TestFields")
End Property
' TODO: add the names of your test methods as a parameter into the Array() function
ITestContainer_TestCaseNames = Array("TestFields")
End Property
第一个，ITestContainer_TestCaseNames。是测试函数的列表，ITestContainer_TestCaseNames = Array("TestFields")，TestFields就是函数名，要测试这个函数，就写在这个数组里。
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
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
这个函数是自动生成的，不用修改。
'在测试开始时自动调用
Public Sub ITestContainer_Setup()
End Sub
Public Sub ITestContainer_Setup()
End Sub
这个函数是每一个测试函数运行时自动调用的，可以在这个函数中初始化测试的内容。
Public Sub ITestContainer_TearDown()
End Sub
这个函数是每个测试函数结束时，自动运行，在这个函数中可以释放在测试中使用的资源。
End Sub
'Public Sub testSampleMethod(oTestResult As TestResult)
' TODO: add your test code here
'End Sub
Private Sub TestFieldtoFile(oTestResult As TestResult)
oTestResult.Assert BinTest.FieldToFile(DesFile, k!thefile), "导出到文件不成功"
End Sub
Private Sub TestFiletofield(oTestResult As TestResult)
oTestResult.Assert BinTest.fileTofield(SourceFile, k!thefile), "导入到数据库不成功"
End Sub
Public Sub TestFields(oTestResult As TestResult)
TestFiletofield oTestResult
TestFieldtoFile oTestResult
oTestResult.Assert FileLen(SourceFile) = FileLen(DesFile), "文件不相符!"
End Sub
' TODO: add your test code here
'End Sub
Private Sub TestFieldtoFile(oTestResult As TestResult)
oTestResult.Assert BinTest.FieldToFile(DesFile, k!thefile), "导出到文件不成功"
End Sub
Private Sub TestFiletofield(oTestResult As TestResult)
oTestResult.Assert BinTest.fileTofield(SourceFile, k!thefile), "导入到数据库不成功"
End Sub
Public Sub TestFields(oTestResult As TestResult)
TestFiletofield oTestResult
TestFieldtoFile oTestResult
oTestResult.Assert FileLen(SourceFile) = FileLen(DesFile), "文件不相符!"
End Sub
这三个函数就是测试函数。TestFields是公共测试函数，另两个函数由TestFields调用。先把文件导入到数据库，再从数据库把文件导出到文件中，最后比较两个文件是否相同。
下面我们来看怎么在VB中使用。打开工程，在VB工具菜单中选项中把修改错误捕获的设置。改成遇到未处理错误的中断。如下图所未。
运行程序，出现下面这个界面。下面可以看到有一个类可以测试，选择这个类，看Test Case列表，就能看到TestFields这个测试函数了。 按RunTest。如果通过测试，就能说明这两段代码就达成目的了。
下面我们来看出现错误的情况。把函数TestField中TestFieldtoFile oTestResult注释掉。这样就只导入文件，不进行导出文件。看一下Run Tests的结果，如下图所未：
可以看到，progress条变成红色，表示运行过程中有出错的测试。下错误列表中列出出现错误函数名及错误内容，可以双击出现某条单独的错误说明。下面状态条有测试的统计信息。
我们看上面的简单的39行代码，就能保证另一个类代码的正确性，并且，以后可以进行任意的修改，只要代码能够通过测试就能保证修改的没有产生意外的错误。
 | 本作品采用 知识共享署名-非商业性使用 2.5 中国大陆许可协议进行许可。 |
