summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-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