diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2013-05-22 13:07:33 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2013-05-22 13:07:33 (GMT) |
| commit | c934181df0081cadc7c0f4cc93ffdd6b98720c94 (patch) | |
| tree | 21c32e456ae1ff62b2dbb1b4861118c3330a60c3 /tests/cmdIL.test | |
| parent | a0e7c1a2f866e88c04425c2219c518527ce48936 (diff) | |
| parent | ae092efa7333772a2e727927c92ace2d7574c613 (diff) | |
| download | tcl-c934181df0081cadc7c0f4cc93ffdd6b98720c94.zip tcl-c934181df0081cadc7c0f4cc93ffdd6b98720c94.tar.gz tcl-c934181df0081cadc7c0f4cc93ffdd6b98720c94.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 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} { |