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

Strip Matching Begin Line Verify Sub
String Replacements Class

Private Sub StripMatchingBeginLineVerify()
    'Test the StripMatchingBeginLine function.

    Debug.Assert IsNull(StripMatchingBeginLine(Null, "Abc")) ' Behavior #1

    Debug.Assert IsNull(StripMatchingBeginLine("Abc", Null)) ' Behavior #2

    Debug.Assert StripMatchingBeginLine("Abc", "") = "Abc" ' Behavior #3

    Debug.Assert StripMatchingBeginLine("AbcDefAbc", "Abc", vbBinaryCompare) = "DefAbc" ' Behavior #4
    Debug.Assert StripMatchingBeginLine("AbcDefAbc", "ABC", vbBinaryCompare) = "AbcDefAbc"
    Debug.Assert StripMatchingBeginLine("AbcDefAbc", "Abc", vbTextCompare) = "DefAbc"
    Debug.Assert StripMatchingBeginLine("AbcDefAbc", "ABC", vbTextCompare) = "DefAbc"

    Debug.Assert StripMatchingBeginLine("AbcDefAbc", "Abc") = "DefAbc" ' Behavior #5
    Debug.Assert StripMatchingBeginLine("AbcDefAbc", "ABC") = "AbcDefAbc"
    Debug.Assert StripMatchingBeginLine("AbcDefAbc", "ABC", Null) = "AbcDefAbc"
    Debug.Assert StripMatchingBeginLine("AbcDefAbc", "ABC", "Joe") = "AbcDefAbc"

    Debug.Assert StripMatchingBeginLine("AbcDefGhi", "Abc") = "DefGhi" ' General Behavior
    Debug.Assert StripMatchingBeginLine("AbcDefGhi", "Def") = "AbcDefGhi"
    Debug.Assert StripMatchingBeginLine("AbcDefGhi", "Ghi") = "AbcDefGhi"

End Sub

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