單元測試實踐（VB版）

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