summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-08-18 11:31:21 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-08-18 11:31:21 (GMT)
commitcb112714d6dc2adff4f7a31b2268de41a0fbb6bd (patch)
tree0a66df2cb2c1ccd849d7a08e50fe9cae4107472d /tests
parent1d11a7f1fd50b863d05886dbe18ca3ed326e5df8 (diff)
parent7146f318cfdc287a7b582b62a17240d5f219915d (diff)
downloadtcl-cb112714d6dc2adff4f7a31b2268de41a0fbb6bd.zip
tcl-cb112714d6dc2adff4f7a31b2268de41a0fbb6bd.tar.gz
tcl-cb112714d6dc2adff4f7a31b2268de41a0fbb6bd.tar.bz2
[Bug 3393714] overflow in toupper delta
Diffstat (limited to 'tests')
-rw-r--r--tests/utf.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/utf.test b/tests/utf.test
index 92b3a48..3bf7b06 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -247,8 +247,9 @@ test utf-16.1 {Tcl_UniCharToLower, negative delta} {
string tolower aA
} aa
test utf-16.2 {Tcl_UniCharToLower, positive delta} {
- string tolower \u0178\u00ff
-} \u00ff\u00ff
+ string tolower \u0178\u00ff\uA78D
+} \u00ff\u00ff\u0265
+
test utf-17.1 {Tcl_UniCharToLower, no delta} {
string tolower !
} !