summaryrefslogtreecommitdiffstats
path: root/tests/cmdIL.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-05-22 12:55:50 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-05-22 12:55:50 (GMT)
commit75b8011dbad373e664a676ed8e3bcfec70313838 (patch)
tree8b7d5b14cb55b6a6a4f34ebc4a422488ca364f58 /tests/cmdIL.test
parent5689a75644f9b109581a5dc3ae15294467c657ab (diff)
downloadtcl-75b8011dbad373e664a676ed8e3bcfec70313838.zip
tcl-75b8011dbad373e664a676ed8e3bcfec70313838.tar.gz
tcl-75b8011dbad373e664a676ed8e3bcfec70313838.tar.bz2
Fixed the weird edge case.bug_3613609
Diffstat (limited to 'tests/cmdIL.test')
-rw-r--r--tests/cmdIL.test3
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} {