Fix for a SORT bug introduced with commit 16fa22f1, regression test added

This commit is contained in:
antirez
2010-04-18 17:51:15 +02:00
parent 177727542c
commit 08ee9b570f
2 changed files with 13 additions and 5 deletions

View File

@ -935,6 +935,15 @@ proc main {} {
lsort [array names myset]
} {a b c}
test {SORT ALPHA against integer encoded strings} {
$r del mylist
$r lpush mylist 2
$r lpush mylist 1
$r lpush mylist 3
$r lpush mylist 10
$r sort mylist alpha
} {1 10 2 3}
test {Create a random list and a random set} {
set tosort {}
array set seenrand {}