diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-10 15:39:15 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-10 15:39:15 (GMT) |
commit | 0834bb45471baf76fe11345ac6893304cd971420 (patch) | |
tree | a4958cb3ca82ac54079b26a0d7315332bd75b55b /tests | |
parent | 8aca3246abd4f40476a6f99fce4ee021703a71e7 (diff) | |
download | tcl-0834bb45471baf76fe11345ac6893304cd971420.zip tcl-0834bb45471baf76fe11345ac6893304cd971420.tar.gz tcl-0834bb45471baf76fe11345ac6893304cd971420.tar.bz2 |
Fix [4c591fa487]: [string compare] EIAS violation
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 8985313..f4d9134 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -1332,25 +1332,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] |