X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/7d5209d7d36cf1f3978f3ca09a831f0c1a9f26e2..44d77bb217b51e287e1f885445440dc85a1aa641:/tests/unit/sort.tcl diff --git a/tests/unit/sort.tcl b/tests/unit/sort.tcl index d8f93e83..ba412254 100644 --- a/tests/unit/sort.tcl +++ b/tests/unit/sort.tcl @@ -146,10 +146,50 @@ start_server { test "SORT with STORE does not create empty lists (github issue 224)" { r flushdb r lpush foo bar - r sort foo limit 10 10 store zap + r sort foo alpha limit 10 10 store zap r exists zap } {0} + test "SORT with STORE removes key if result is empty (github issue 227)" { + r flushdb + r lpush foo bar + r sort emptylist store foo + r exists foo + } {0} + + test "SORT with BY and STORE should still order output" { + r del myset mylist + r sadd myset a b c d e f g h i l m n o p q r s t u v z aa aaa azz + r sort myset alpha by _ store mylist + r lrange mylist 0 -1 + } {a aa aaa azz b c d e f g h i l m n o p q r s t u v z} + + test "SORT will complain with numerical sorting and bad doubles (1)" { + r del myset + r sadd myset 1 2 3 4 not-a-double + set e {} + catch {r sort myset} e + set e + } {*ERR*double*} + + test "SORT will complain with numerical sorting and bad doubles (2)" { + r del myset + r sadd myset 1 2 3 4 + r mset score:1 10 score:2 20 score:3 30 score:4 not-a-double + set e {} + catch {r sort myset by score:*} e + set e + } {*ERR*double*} + + test "SORT BY sub-sorts lexicographically if score is the same" { + r del myset + r sadd myset a b c d e f g h i l m n o p q r s t u v z aa aaa azz + foreach ele {a aa aaa azz b c d e f g h i l m n o p q r s t u v z} { + set score:$ele 100 + } + r sort myset by score:* + } {a aa aaa azz b c d e f g h i l m n o p q r s t u v z} + tags {"slow"} { set num 100 set res [create_random_dataset $num lpush]