UnitTesting.bas

Public Const DEVELOPMENT_MODE As Boolean = True

Public Sub Assert(ByRef bConditional As Boolean, _
                    Optional ByRef TestName As String)
    If DEVELOPMENT_MODE Then
        Debug.Print bConditional, TestName
    End If
    
End Sub

Public Sub AssertNot(ByRef bConditional As Boolean, _
                        Optional ByRef TestName As String)
                        
    Call Assert(Not bConditional, TestName)

End Sub

Public Sub AssertEqual(ByRef vFoo As Variant, ByRef vBar As Variant, _
                            Optional ByRef TestName As String)
    
    Assert vFoo = vBar, TestName

End Sub

Public Sub AssertNotEqual(ByRef vFoo As Variant, ByRef vBar As Variant, _
                            Optional ByRef TestName As String)
    
    AssertNot vFoo = vBar, TestName

End Sub

Public Sub AssertNumeric(ByRef vFoo As Variant, _
                            Optional ByRef TestName As String)
    
    Assert IsNumeric(vFoo), TestName

End Sub

Public Sub AssertString(ByRef vFoo As Variant, _
                            Optional ByRef TestName As String)
    
    Assert TypeName(vFoo) = "String", TestName

End Sub