summaryrefslogtreecommitdiffstats
path: root/tests/utf.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-08-18 11:27:45 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-08-18 11:27:45 (GMT)
commit7146f318cfdc287a7b582b62a17240d5f219915d (patch)
tree9b71d25df49f9d777139e17a2179d177dcda49ab /tests/utf.test
parent87eec7b8e8ba4d79a1348508f91bb0fab33fc6e4 (diff)
parent7566b1eb16a459b4da0ec48e3de2771b8184c909 (diff)
downloadtcl-7146f318cfdc287a7b582b62a17240d5f219915d.zip
tcl-7146f318cfdc287a7b582b62a17240d5f219915d.tar.gz
tcl-7146f318cfdc287a7b582b62a17240d5f219915d.tar.bz2
[Bug 3393714] overflow in toupper delta
Diffstat (limited to 'tests/utf.test')
-rw-r--r--tests/utf.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/utf.test b/tests/utf.test
index d319f6e..a9485a8 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -244,8 +244,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 !
} !