Fixed some string test numberings and added a test.

2 files changed, 12 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index 8b073ed..5cf06c0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-12  Donal K. Fellows  <fellowsd@cs.man.ac.uk>
+
+	* tests/string.test: Fixed some test numberings and added a test.
+	[Patch #403229]
+
 2001-03-06  Donal K. Fellows  <fellowsd@cs.man.ac.uk>
 
 	* generic/tclVar.c (Tcl_UnsetObjCmd): Rewrote argument parser to
diff --git a/tests/string.test b/tests/string.test
index 9d22046..d725cc4 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: string.test,v 1.26 2000/09/06 18:35:13 hobbs Exp $
+# RCS: @(#) $Id: string.test,v 1.27 2001/03/12 15:58:01 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -837,12 +837,16 @@ test string-11.46 {string match, *special case} {
 test string-11.47 {string match, *special case} {
     string match "*\\*" "*"
 } 1
-test string-11.47 {string match, *special case} {
+test string-11.48 {string match, *special case} {
     string match "*\\*" "*abc"
 } 0
-test string-11.48 {string match, *special case} {
+test string-11.49 {string match, *special case} {
     string match "?\\*" "a*"
 } 1
+test string-11.50 {string match, *special case} {
+    string match "\\" "\\"
+} 0
+
 
 test string-12.1 {string range} {
     list [catch {string range} msg] $msg