Index: string.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/string.test,v
retrieving revision 1.26
diff -u -r1.26 string.test
--- string.test 2000/09/06 18:35:13 1.26
+++ string.test 2001/01/14 00:34:26
@@ -820,27 +820,30 @@
string match {*[ab]*} abc
} 1
test string-11.42 {string match, *special case} {
- string match "*\\" "\\"
+ string match \\ \\
} 0
test string-11.43 {string match, *special case} {
+ string match "*\\" "\\"
+} 0
+test string-11.44 {string match, *special case} {
string match "*\\\\" "\\"
} 1
-test string-11.44 {string match, *special case} {
+test string-11.45 {string match, *special case} {
string match "*???" "12345"
} 1
-test string-11.45 {string match, *special case} {
+test string-11.46 {string match, *special case} {
string match "*???" "12"
} 0
-test string-11.46 {string match, *special case} {
+test string-11.47 {string match, *special case} {
string match "*\\*" "abc*"
} 1
-test string-11.47 {string match, *special case} {
+test string-11.48 {string match, *special case} {
string match "*\\*" "*"
} 1
-test string-11.47 {string match, *special case} {
+test string-11.49 {string match, *special case} {
string match "*\\*" "*abc"
} 0
-test string-11.48 {string match, *special case} {
+test string-11.50 {string match, *special case} {
string match "?\\*" "a*"
} 1
