diff options
Diffstat (limited to 'test.tcl')
-rw-r--r-- | test.tcl | 93 |
1 files changed, 0 insertions, 93 deletions
@@ -634,99 +634,6 @@ catch {unset ::x} catch {unset ::y} ################################################################################ -# STRING MATCH -################################################################################ - -test string-11.3 {string match} { - string match abc abc -} 1 -test string-11.5 {string match} { - string match ab*c abc -} 1 -test string-11.6 {string match} { - string match ab**c abc -} 1 -test string-11.7 {string match} { - string match ab* abcdef -} 1 -test string-11.8 {string match} { - string match *c abc -} 1 -test string-11.9 {string match} { - string match *3*6*9 0123456789 -} 1 -test string-11.10 {string match} { - string match *3*6*9 01234567890 -} 0 -test string-11.11 {string match} { - string match a?c abc -} 1 -test string-11.12 {string match} { - string match a??c abc -} 0 -test string-11.13 {string match} { - string match ?1??4???8? 0123456789 -} 1 -test string-11.14 {string match} { - string match {[abc]bc} abc -} 1 -test string-11.15 {string match} { - string match {a[abc]c} abc -} 1 -test string-11.16 {string match} { - string match {a[xyz]c} abc -} 0 -test string-11.17 {string match} { - string match {12[2-7]45} 12345 -} 1 -test string-11.18 {string match} { - string match {12[ab2-4cd]45} 12345 -} 1 -test string-11.19 {string match} { - string match {12[ab2-4cd]45} 12b45 -} 1 -test string-11.20 {string match} { - string match {12[ab2-4cd]45} 12d45 -} 1 -test string-11.21 {string match} { - string match {12[ab2-4cd]45} 12145 -} 0 -test string-11.22 {string match} { - string match {12[ab2-4cd]45} 12545 -} 0 -test string-11.23 {string match} { - string match {a\*b} a*b -} 1 -test string-11.24 {string match} { - string match {a\*b} ab -} 0 -test string-11.25 {string match} { - string match {a\*\?\[\]\\\x} "a*?\[\]\\x" -} 1 -test string-11.26 {string match} { - string match ** "" -} 1 -test string-11.27 {string match} { - string match *. "" -} 0 -test string-11.28 {string match} { - string match "" "" -} 1 -test string-11.29 {string match} { - string match \[a a -} 1 -test string-11.31 {string match case} { - string match a A -} 0 -test string-11.34 {string match nocase} { - string match -nocase a*f ABCDEf -} 1 -test string-11.35 {string match case, false hope} { - # This is true because '_' lies between the A-Z and a-z ranges - string match {[A-z]} _ -} 1 - -################################################################################ # IF ################################################################################ |