summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-11-22 23:25:17 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-11-22 23:25:17 (GMT)
commitbd81bba9a8d6ec3b1acc554c2f3e04c450d39dfa (patch)
tree401bb064d0fb56c9ebdd695dcd272d9f0ffa8fad
parentf4d65f439e4de5c04bfafc2ce2b2678776c35248 (diff)
downloadtcl-bd81bba9a8d6ec3b1acc554c2f3e04c450d39dfa.zip
tcl-bd81bba9a8d6ec3b1acc554c2f3e04c450d39dfa.tar.gz
tcl-bd81bba9a8d6ec3b1acc554c2f3e04c450d39dfa.tar.bz2
[string is list] tests: fixed mixed up test name, added test of unicode handling
-rw-r--r--tests/string.test8
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/string.test b/tests/string.test
index 463bcd3..dbffc46 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -12,7 +12,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.60 2006/11/22 23:22:23 dkf Exp $
+# RCS: @(#) $Id: string.test,v 1.61 2006/11/22 23:25:17 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1553,10 +1553,14 @@ test string-25.12 {string is list} {
set x {}
list [string is list -failindex x {}] $x
} {1 {}}
-test string-25.11 {string is list} {
+test string-25.13 {string is list} {
set x {}
list [string is list -failindex x { {b c}d e}] $x
} {0 2}
+test string-25.14 {string is list} {
+ set x {}
+ list [string is list -failindex x "\uabcd {b c}d e"] $x
+} {0 2}
# cleanup
::tcltest::cleanupTests