diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-22 12:59:45 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-22 12:59:45 (GMT) |
| commit | a515427b5b0f2be828866a2073b4720681e10e0d (patch) | |
| tree | 218f3ee1b36b96a9c5be01173b1c55abc142432e /tests/cmdIL.test | |
| parent | bf486a2007f9d3d45855d43e623ad85d29bcd0b7 (diff) | |
| parent | 75b8011dbad373e664a676ed8e3bcfec70313838 (diff) | |
| download | tcl-a515427b5b0f2be828866a2073b4720681e10e0d.zip tcl-a515427b5b0f2be828866a2073b4720681e10e0d.tar.gz tcl-a515427b5b0f2be828866a2073b4720681e10e0d.tar.bz2 | |
[3613609]: Replace strcasecmp() with UTF-8-aware version.
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 b387e71..6fab269 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -394,6 +394,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} { |