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

Strip Nil Character Forward Verify Sub
String Replacements Class

Private Sub StripNilCharacterForwardVerify()
    'Test the StripNilCharacterForward function.

    Debug.Assert IsNull(StripNilCharacterForward(Null)) ' Behavior #1
    
    Debug.Assert StripNilCharacterForward("ABC") = "ABC" ' Behavior #2

    Debug.Assert StripNilCharacterForward("ABC" & Chr$(0) & "DEF") = "ABC" ' General Behavior

End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.