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 | a19ed190dd09f1eebfdede60052d7463199f026e (patch) | |
| tree | 103b98d0d2c670db72df6f47eb2f71acf8f9abc8 /tests | |
| parent | 259faf9577a9a109dc8ef39e844a9f405a250ff4 (diff) | |
| parent | e79031dcf5635da1d3a77ba991e8ab65e0a9747a (diff) | |
| download | tcl-a19ed190dd09f1eebfdede60052d7463199f026e.zip tcl-a19ed190dd09f1eebfdede60052d7463199f026e.tar.gz tcl-a19ed190dd09f1eebfdede60052d7463199f026e.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] |