diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-30 18:58:50 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-30 18:58:50 (GMT) |
| commit | 0e720e42dbb7507bf45068b77413f95dfc20271d (patch) | |
| tree | 276981ec9897a13351a2556fa821183ed684c8de /tests/utf.test | |
| parent | 032a198c31a28d021f89780cf07fad0c71a12557 (diff) | |
| parent | 8c072488a00f4e5095531ff7a09fcadc20ec97bb (diff) | |
| download | tcl-0e720e42dbb7507bf45068b77413f95dfc20271d.zip tcl-0e720e42dbb7507bf45068b77413f95dfc20271d.tar.gz tcl-0e720e42dbb7507bf45068b77413f95dfc20271d.tar.bz2 | |
merge 8.5
Diffstat (limited to 'tests/utf.test')
| -rw-r--r-- | tests/utf.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/utf.test b/tests/utf.test index 6757608..77fb8d7 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -1336,7 +1336,7 @@ test utf-19.1 {TclUniCharLen} -body { unset -nocomplain foo } -result {1 4} -test utf-20.1 {TclUniCharNcmp} {fullutf knownBug} { +test utf-20.1 {TclUniCharNcmp} {ucs4} { string compare [string range [format %c 0xFFFF] 0 0] [string range [format %c 0x10000] 0 0] } -1 @@ -1457,8 +1457,10 @@ UniCharCaseCmpTest < a b UniCharCaseCmpTest > b a UniCharCaseCmpTest > B a UniCharCaseCmpTest > aBcB abca -UniCharCaseCmpTest < \uFFFF [format %c 0x10000] {fullutf knownBug} -UniCharCaseCmpTest < \uFFFF \U10000 {Uesc fullutf knownBug} +UniCharCaseCmpTest < \uFFFF [format %c 0x10000] ucs4 +UniCharCaseCmpTest < \uFFFF \U10000 {Uesc ucs4} +UniCharCaseCmpTest > [format %c 0x10000] \uFFFF ucs4 +UniCharCaseCmpTest > \U10000 \uFFFF {Uesc ucs4} |