diff options
author | dgp <dgp@users.sourceforge.net> | 2020-04-30 21:07:02 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-04-30 21:07:02 (GMT) |
commit | a3d900f322a935841622ac0c8d81a45c91a16e65 (patch) | |
tree | 5614562d79468ede640eaa4e3b7562e8fbda9eef /tests/utf.test | |
parent | 48cdeac127371f0e7c02cc834f01e5138ad0a67d (diff) | |
parent | ba28f4892362a62309d8809b4dc5099a888a9f91 (diff) | |
download | tcl-a3d900f322a935841622ac0c8d81a45c91a16e65.zip tcl-a3d900f322a935841622ac0c8d81a45c91a16e65.tar.gz tcl-a3d900f322a935841622ac0c8d81a45c91a16e65.tar.bz2 |
merge 8.6
Diffstat (limited to 'tests/utf.test')
-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 0a29e87..8d923ba 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -1213,6 +1213,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} knownBug { + set one [format %c 0xFFFF] + set two [format %c 0x10000] + 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 |