diff options
| author | Steve Bennett <steveb@workware.net.au> | 2013-12-12 16:27:36 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2013-12-21 01:56:58 +1000 |
| commit | a232fad08f37ed5a3aa3c49e46e5d65db9b3d597 (patch) | |
| tree | 6310b1ec9d916dd8467fc36eaf4cd849c66e8b8a /tests | |
| parent | c9b4ead06ad0a9e66759d279dee5de9991b8dc2f (diff) | |
| download | jimtcl-a232fad08f37ed5a3aa3c49e46e5d65db9b3d597.zip jimtcl-a232fad08f37ed5a3aa3c49e46e5d65db9b3d597.tar.gz jimtcl-a232fad08f37ed5a3aa3c49e46e5d65db9b3d597.tar.bz2 | |
Fix the lsort -unique test
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/lsort.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/lsort.test b/tests/lsort.test index a1e5500..9d8ff86 100644 --- a/tests/lsort.test +++ b/tests/lsort.test @@ -187,8 +187,10 @@ test lsort-3.21 {lsort, unique sort} { } {1 2 3 4} test lsort-3.22 {lsort, unique sort with index} { # lsort -unique should return the last unique item - lsort -unique -index 0 {{a b} {c b} {a c} {d a}} -} {{a c} {c b} {d a}} + # Note that lsort is not guarunteed to be a stable sort, so + # allow for different + lsort -int -unique {0 5 05 00 004 4} +} {00 4 05} test lsort-4.26 {DefaultCompare procedure, signed characters} utf8 { set l [lsort [list "abc\u80" "abc"]] |