diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-22 12:32:28 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-22 12:32:28 (GMT) |
| commit | 5689a75644f9b109581a5dc3ae15294467c657ab (patch) | |
| tree | 6a23e0be051db2d72eac88d081283c8a5a78502e | |
| parent | 52ae090e68314dd4aad0ba73e0869527bb321db4 (diff) | |
| download | tcl-5689a75644f9b109581a5dc3ae15294467c657ab.zip tcl-5689a75644f9b109581a5dc3ae15294467c657ab.tar.gz tcl-5689a75644f9b109581a5dc3ae15294467c657ab.tar.bz2 | |
Improved tests.
| -rw-r--r-- | tests/cmdIL.test | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/cmdIL.test b/tests/cmdIL.test index c9a10b6..192c10c 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -395,8 +395,11 @@ 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} { - lsort -ascii -nocase [list \u101 \u100] -} [list \u101 \u100] + 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-5.1 {lsort with list style index} { lsort -ascii -decreasing -index {0 1} { |