Commit ced6709c authored by Pieter Noordhuis's avatar Pieter Noordhuis
Browse files

Make SORT tests use both ziplists and linked lists as input

parent 5d4f3a8c
......@@ -34,15 +34,23 @@ start_server {
set _ $result
}
set result [create_random_dataset 16 lpush]
test "SORT BY key" {
assert_equal $result [r sort tosort {BY weight_*}]
}
foreach {num cmd enc title} {
16 lpush ziplist "Ziplist"
64 lpush linkedlist "Linked list"
} {
set result [create_random_dataset $num $cmd]
assert_encoding $enc tosort
test "$title: SORT BY key" {
assert_equal $result [r sort tosort {BY weight_*}]
}
test "SORT BY hash field" {
assert_equal $result [r sort tosort {BY wobj_*->weight}]
test "$title: SORT BY hash field" {
assert_equal $result [r sort tosort {BY wobj_*->weight}]
}
}
set result [create_random_dataset 16 lpush]
test "SORT GET #" {
assert_equal [lsort -integer $result] [r sort tosort GET #]
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment