diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-06-16 15:19:41 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-06-16 15:19:41 (GMT) |
| commit | 9899c6d8097c67a31bc107c77ff8848bcc23d6db (patch) | |
| tree | f824e5fe9e245730af806b3a5aabf69b2c8e1e08 /tests/cmdIL.test | |
| parent | b700360ad9501defb0b1e2d86353ac8d0db8eef4 (diff) | |
| parent | 3f61f168eb9d98c28312cdea25b214827c3692f2 (diff) | |
| download | tcl-9899c6d8097c67a31bc107c77ff8848bcc23d6db.zip tcl-9899c6d8097c67a31bc107c77ff8848bcc23d6db.tar.gz tcl-9899c6d8097c67a31bc107c77ff8848bcc23d6db.tar.bz2 | |
Merge up to a197e6853e. Still works. Next checkin restarts the segfaults.
Diffstat (limited to 'tests/cmdIL.test')
| -rw-r--r-- | tests/cmdIL.test | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/cmdIL.test b/tests/cmdIL.test index 721773f..23a5f96 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -417,6 +417,15 @@ test cmdIL-4.34 {SortCompare procedure, -ascii option with -nocase option} { test cmdIL-4.35 {SortCompare procedure, -ascii option with -nocase option} { lsort -ascii -nocase {d E c B a D35 d300 100 20} } {100 20 a B c d d300 D35 E} +test cmdIL-4.36 {SortCompare procedure, UTF-8 with -nocase option} { + scan [lsort -ascii -nocase [list \u101 \u100]] %c%c%c +} {257 32 256} +test cmdIL-4.37 {SortCompare procedure, UTF-8 with -nocase option} { + scan [lsort -ascii -nocase [list a\u0000a a]] %c%c%c%c%c +} {97 32 97 0 97} +test cmdIL-4.38 {SortCompare procedure, UTF-8 with -nocase option} { + scan [lsort -ascii -nocase [list a a\u0000a]] %c%c%c%c%c +} {97 32 97 0 97} test cmdIL-5.1 {lsort with list style index} { lsort -ascii -decreasing -index {0 1} { |