diff options
| -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 |