MS Access 中的单元测试

VBA
Option Compare Database
Option Explicit
' 测试函数
Function AddNumbers(ByVal a As Integer, ByVal b As Integer) As Integer
    AddNumbers = a + b
End Function
' 单元测试
Sub Test_AddNumbers()
    Dim result As Integer
    
    ' 测试用例1
    result = AddNumbers(2, 3)
    Debug.Assert result = 5
    
    ' 测试用例2
    result = AddNumbers(0, 0)
    Debug.Assert result = 0
    
    ' 测试用例3
    result = AddNumbers(-1, 1)
    Debug.Assert result = 0
    
    ' 测试用例4
    result = AddNumbers(100, -50)
    Debug.Assert result = 50
    
    ' 输出测试结果
    Debug.Print "All test cases passed successfully!"
End Sub