summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-05-22 12:32:28 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-05-22 12:32:28 (GMT)
commit5689a75644f9b109581a5dc3ae15294467c657ab (patch)
tree6a23e0be051db2d72eac88d081283c8a5a78502e
parent52ae090e68314dd4aad0ba73e0869527bb321db4 (diff)
downloadtcl-5689a75644f9b109581a5dc3ae15294467c657ab.zip
tcl-5689a75644f9b109581a5dc3ae15294467c657ab.tar.gz
tcl-5689a75644f9b109581a5dc3ae15294467c657ab.tar.bz2
Improved tests.
-rw-r--r--tests/cmdIL.test7
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} {