diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-10-20 16:01:17 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-11-17 07:57:37 +1000 |
commit | 9f6ad73686d6dc1fc8628be60a0d42a6ee20817c (patch) | |
tree | 455e400d7d49937b5814d824ff40461aee93b8ff /tests/lsort.test | |
parent | abac7fb5ee7d37150951b9618ba6a0ee57d98085 (diff) | |
download | jimtcl-9f6ad73686d6dc1fc8628be60a0d42a6ee20817c.zip jimtcl-9f6ad73686d6dc1fc8628be60a0d42a6ee20817c.tar.gz jimtcl-9f6ad73686d6dc1fc8628be60a0d42a6ee20817c.tar.bz2 |
Add UTF-8 support to Jim
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/lsort.test')
-rw-r--r-- | tests/lsort.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/lsort.test b/tests/lsort.test index e03a834..fb04644 100644 --- a/tests/lsort.test +++ b/tests/lsort.test @@ -170,8 +170,9 @@ test lsort-3.19 {SortCompare procedure, -decreasing option} { lsort -decreasing -integer {35 21 0x20 30 023 100 8} } {100 35 0x20 30 21 023 8} +ifutf8 { test lsort-4.26 {DefaultCompare procedure, signed characters} { - set l [lsort [list "abc\200" "abc"]] + set l [lsort [list "abc\u80" "abc"]] set viewlist {} foreach s $l { set viewelem "" @@ -189,5 +190,6 @@ test lsort-4.26 {DefaultCompare procedure, signed characters} { } set viewlist } [list "abc" "abc\\200"] +} testreport |