diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-10 15:47:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-10 15:47:34 (GMT) |
| commit | 07c6dc0d49850424e34bb1666203ac8f0c5b210a (patch) | |
| tree | f3028f3e1c36e5a43a02e4a53a04e289f49d0fee /tests | |
| parent | 764ef9b409175a603666871249e5991dcb7cbd50 (diff) | |
| parent | 0834bb45471baf76fe11345ac6893304cd971420 (diff) | |
| download | tcl-07c6dc0d49850424e34bb1666203ac8f0c5b210a.zip tcl-07c6dc0d49850424e34bb1666203ac8f0c5b210a.tar.gz tcl-07c6dc0d49850424e34bb1666203ac8f0c5b210a.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/utf.test | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/tests/utf.test b/tests/utf.test index 7b71f89..5edad6e 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -1212,25 +1212,7 @@ 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} 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 { +test utf-20.2 {[4c591fa487] TclUniCharNcmp/TclUtfNcmp} { set one [format %c 0xFFFF] set two [format %c 0x10000] set first [string compare $one $two] |