summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-07-01 13:24:06 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-07-01 13:24:06 (GMT)
commitf35ac41c5ad6fb2efa6d0833f0299549c69a6329 (patch)
treec32a77be55972768ed20af9d880db3632b40da9c /tests
parent710f9b9f5fdf203a35d8cfbdcf37a90ee0eeb3f7 (diff)
downloadtcl-f35ac41c5ad6fb2efa6d0833f0299549c69a6329.zip
tcl-f35ac41c5ad6fb2efa6d0833f0299549c69a6329.tar.gz
tcl-f35ac41c5ad6fb2efa6d0833f0299549c69a6329.tar.bz2
Fix [2006884]
Diffstat (limited to 'tests')
-rw-r--r--tests/string.test18
1 files changed, 8 insertions, 10 deletions
diff --git a/tests/string.test b/tests/string.test
index 85ca3f1..b42db45 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.71 2007/12/13 15:26:07 dgp Exp $
+# RCS: @(#) $Id: string.test,v 1.72 2008/07/01 13:24:08 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -337,9 +337,7 @@ test string-6.12 {string is alnum, true} {
test string-6.13 {string is alnum, false} {
list [string is alnum -failindex var abc1.23] $var
} {0 4}
-test string-6.14 {string is alnum, unicode} {
- string is alnum abcü
-} 1
+test string-6.14 {string is alnum, unicode} "string is alnum abc\xfc" 1
test string-6.15 {string is alpha, true} {
string is alpha abc
} 1
@@ -371,7 +369,7 @@ test string-6.24 {string is digit, true} {
string is digit 0123456789
} 1
test string-6.25 {string is digit, false} {
- list [string is digit -fail var 0123Ü567] $var
+ list [string is digit -fail var 0123\u00dc567] $var
} {0 4}
test string-6.26 {string is digit, false} {
list [string is digit -fail var +123567] $var
@@ -492,7 +490,7 @@ test string-6.60 {string is lower, true} {
string is lower abc
} 1
test string-6.61 {string is lower, unicode true} {
- string is lower abcüue
+ string is lower abc\u00fcue
} 1
test string-6.62 {string is lower, false} {
list [string is lower -fail var aBc] $var
@@ -501,7 +499,7 @@ test string-6.63 {string is lower, false} {
list [string is lower -fail var abc1] $var
} {0 3}
test string-6.64 {string is lower, unicode false} {
- list [string is lower -fail var abÜUE] $var
+ list [string is lower -fail var ab\u00dcUE] $var
} {0 2}
test string-6.65 {string is space, true} {
string is space " \t\n\v\f"
@@ -539,7 +537,7 @@ test string-6.75 {string is upper, true} {
string is upper ABC
} 1
test string-6.76 {string is upper, unicode true} {
- string is upper ABCÜUE
+ string is upper ABC\u00dcUE
} 1
test string-6.77 {string is upper, false} {
list [string is upper -fail var AbC] $var
@@ -548,13 +546,13 @@ test string-6.78 {string is upper, false} {
list [string is upper -fail var AB2C] $var
} {0 2}
test string-6.79 {string is upper, unicode false} {
- list [string is upper -fail var ABCüue] $var
+ list [string is upper -fail var ABC\u00fcue] $var
} {0 3}
test string-6.80 {string is wordchar, true} {
string is wordchar abc_123
} 1
test string-6.81 {string is wordchar, unicode true} {
- string is wordchar abcüabÜAB\u5001
+ string is wordchar abc\u00fcab\u00dcAB\u5001
} 1
test string-6.82 {string is wordchar, false} {
list [string is wordchar -fail var abcd.ef] $var