<-- Previous || Up || Next -->

Translate String Using Table Verify Sub
String Replacements Class

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.