Private Sub TranslateStringUsingTableVerify() 'Test the TranslateStringUsingTable function. Debug.Assert IsNull(TranslateStringUsingTable(Null, Space$(64) & "ABCDEF")) ' Behavior #1 Debug.Assert IsNull(TranslateStringUsingTable("ABCDEF", Null)) ' Behavior #2 Debug.Assert TranslateStringUsingTable("ABCDEF", Space$(65)) = "ABCDEF" ' Behavior #3 Debug.Assert TranslateStringUsingTable("ABCDEF", Space$(65) & "abc") = "abcDEF" ' Behavior #4 End Sub
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.