diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-04 07:48:36 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-04 07:48:36 (GMT) |
commit | 89653c15cf9ebdfc823fd905682b6760da4a1d44 (patch) | |
tree | 103b98d0d2c670db72df6f47eb2f71acf8f9abc8 /tests | |
parent | b91eaa4a758229d9a7b3a08c859c3f3368782b4f (diff) | |
parent | 7dd3bef5d360c692c4afe0e520f8516391bd5ccb (diff) | |
download | tcl-89653c15cf9ebdfc823fd905682b6760da4a1d44.zip tcl-89653c15cf9ebdfc823fd905682b6760da4a1d44.tar.gz tcl-89653c15cf9ebdfc823fd905682b6760da4a1d44.tar.bz2 |
Merge 8.7
Diffstat (limited to 'tests')
-rw-r--r-- | tests/utf.test | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/tests/utf.test b/tests/utf.test index 964938c..b6c23ba 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -1173,7 +1173,25 @@ 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 { +test utf-20.2 {[4c591fa487] TclUniCharNcmp/TclUtfNcmp} ucs2 { + 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-20.2.1 {[4c591fa487] TclUniCharNcmp/TclUtfNcmp} {utf16 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-20.2.2 {[4c591fa487] TclUniCharNcmp/TclUtfNcmp} ucs4 { set one [format %c 0xFFFF] set two [format %c 0x10000] set first [string compare $one $two] |