diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-22 12:55:50 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-22 12:55:50 (GMT) |
| commit | 75b8011dbad373e664a676ed8e3bcfec70313838 (patch) | |
| tree | 8b7d5b14cb55b6a6a4f34ebc4a422488ca364f58 /tests | |
| parent | 5689a75644f9b109581a5dc3ae15294467c657ab (diff) | |
| download | tcl-75b8011dbad373e664a676ed8e3bcfec70313838.zip tcl-75b8011dbad373e664a676ed8e3bcfec70313838.tar.gz tcl-75b8011dbad373e664a676ed8e3bcfec70313838.tar.bz2 | |
Fixed the weird edge case.bug_3613609
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/cmdIL.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/cmdIL.test b/tests/cmdIL.test index 192c10c..6fab269 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -400,6 +400,9 @@ test cmdIL-4.36 {SortCompare procedure, UTF-8 with -nocase option} { 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} { |