diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-12-26 18:42:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-12-26 18:42:09 (GMT) |
| commit | 536fad2c6dfefbf4d92d89acb20159d0c5310a25 (patch) | |
| tree | 58bae3e25ed31c58aeb4de6ecaaa9c5ccb9625e7 /tests | |
| parent | ad77faa0e48048e3c41fb0897324affebe14056e (diff) | |
| download | tcl-536fad2c6dfefbf4d92d89acb20159d0c5310a25.zip tcl-536fad2c6dfefbf4d92d89acb20159d0c5310a25.tar.gz tcl-536fad2c6dfefbf4d92d89acb20159d0c5310a25.tar.bz2 | |
Suppress testing of known bug only when it is present. Allow tests that pass.
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 ab98294..99d4c36 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -1281,7 +1281,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] |