diff options
Diffstat (limited to 'contrib/tcl/tests/string.test')
-rw-r--r-- | contrib/tcl/tests/string.test | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/contrib/tcl/tests/string.test b/contrib/tcl/tests/string.test index 08ade64..6643d4f 100644 --- a/contrib/tcl/tests/string.test +++ b/contrib/tcl/tests/string.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) string.test 1.14 97/03/09 17:47:19 +# SCCS: @(#) string.test 1.15 97/07/02 16:49:27 if {[string compare test [info procs test]] == 1} then {source defs} @@ -43,9 +43,12 @@ test string-2.4 {string first} { string first xxx x123xx345xxx789xxx012 } 9 test string-2.5 {string first} { + string first "" x123xx345xxx789xxx012 +} -1 +test string-2.6 {string first} { list [catch {string first a} msg] $msg } {1 {wrong # args: should be "string first string1 string2"}} -test string-2.6 {string first} { +test string-2.7 {string first} { list [catch {string first a b c} msg] $msg } {1 {wrong # args: should be "string first string1 string2"}} |