diff options
author | dgp <dgp@users.sourceforge.net> | 2020-04-30 20:32:38 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-04-30 20:32:38 (GMT) |
commit | 2414411935e501e37c25ceeea273e5bcdc837fbb (patch) | |
tree | ab90b56928e837f12f7e25dcf06962bef9e6f579 /tests | |
parent | 8c072488a00f4e5095531ff7a09fcadc20ec97bb (diff) | |
download | tcl-2414411935e501e37c25ceeea273e5bcdc837fbb.zip tcl-2414411935e501e37c25ceeea273e5bcdc837fbb.tar.gz tcl-2414411935e501e37c25ceeea273e5bcdc837fbb.tar.bz2 |
Test for [4c591fa487].
Diffstat (limited to 'tests')
-rw-r--r-- | tests/utf.test | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/utf.test b/tests/utf.test index 2a468f9..a00f89d 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -1327,6 +1327,15 @@ test utf-19.1 {TclUniCharLen} -body { test utf-20.1 {TclUniCharNcmp} {ucs4} { string compare [string range [format %c 0xFFFF] 0 0] [string range [format %c 0x10000] 0 0] } -1 +test utf-20.2 {[4c591fa487] TclUniCharNcmp/TclUtfNcmp} { + set one [format %c 0xFFFF] + set two [format %c 0xFFFF] + set first [string compare $one $two] + string range $one 0 0 + string range $two 0 0 + set second [string compare $one $two] + expr {($first == $second) ? "agree" : "disagree"} +} agree test utf-21.1 {TclUniCharIsAlnum} { # this returns 1 with Unicode 7 compliance |