summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2001-03-12 15:58:01 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2001-03-12 15:58:01 (GMT)
commit428c6a634462450a66c1164a1cd99517045ff643 (patch)
tree8a0ee18f44cc78cab0812ae1ebb54393475b6771 /tests
parent08e6bd21ecfefc05c331d7a728599d6be0be369e (diff)
downloadtcl-428c6a634462450a66c1164a1cd99517045ff643.zip
tcl-428c6a634462450a66c1164a1cd99517045ff643.tar.gz
tcl-428c6a634462450a66c1164a1cd99517045ff643.tar.bz2
Fixed some string test numberings and added a test.
Diffstat (limited to 'tests')
-rw-r--r--tests/string.test10
1 files changed, 7 insertions, 3 deletions
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