diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-22 13:07:33 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-22 13:07:33 (GMT) |
| commit | 0e1a083787efebde534b0323ba4cca840630fe71 (patch) | |
| tree | 21c32e456ae1ff62b2dbb1b4861118c3330a60c3 /tests | |
| parent | 6ede2e9a9c11a27ad6be06a3eceda2f98be8f8d5 (diff) | |
| parent | a515427b5b0f2be828866a2073b4720681e10e0d (diff) | |
| download | tcl-0e1a083787efebde534b0323ba4cca840630fe71.zip tcl-0e1a083787efebde534b0323ba4cca840630fe71.tar.gz tcl-0e1a083787efebde534b0323ba4cca840630fe71.tar.bz2 | |
[3613609]: Replace strcasecmp() with UTF-8-aware version.
Diffstat (limited to 'tests')
| -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} { |