summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-05-22 13:07:33 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-05-22 13:07:33 (GMT)
commit0e1a083787efebde534b0323ba4cca840630fe71 (patch)
tree21c32e456ae1ff62b2dbb1b4861118c3330a60c3 /tests
parent6ede2e9a9c11a27ad6be06a3eceda2f98be8f8d5 (diff)
parenta515427b5b0f2be828866a2073b4720681e10e0d (diff)
downloadtcl-0e1a083787efebde534b0323ba4cca840630fe71.zip
tcl-0e1a083787efebde534b0323ba4cca840630fe71.tar.gz
tcl-0e1a083787efebde534b0323ba4cca840630fe71.tar.bz2
[3613609]: Replace strcasecmp() with UTF-8-aware version.
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdIL.test9
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} {