diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-18 11:27:45 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-18 11:27:45 (GMT) |
commit | ab6c3373709490cffb5dc59491cc76c5969ca3ec (patch) | |
tree | 9b71d25df49f9d777139e17a2179d177dcda49ab /tests/utf.test | |
parent | 0fbae940e6936a72bc0caf6fa0a39ba6098c0804 (diff) | |
parent | 667535b90dd874c53772570d4bcc498c158452c6 (diff) | |
download | tcl-ab6c3373709490cffb5dc59491cc76c5969ca3ec.zip tcl-ab6c3373709490cffb5dc59491cc76c5969ca3ec.tar.gz tcl-ab6c3373709490cffb5dc59491cc76c5969ca3ec.tar.bz2 |
[Bug 3393714] overflow in toupper delta
Diffstat (limited to 'tests/utf.test')
-rw-r--r-- | tests/utf.test | 5 |
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 ! } ! |