fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-04-03 16:21:03 +00:00
Code Issues Projects Releases Wiki Activity

Move SORT tests around

Browse Source
This commit is contained in:
Pieter Noordhuis 2010-08-21 10:55:53 +02:00
parent a53ebb4c8e
commit 5d4f3a8c85
1 changed files with 141 additions and 152 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

233
tests/unit/sort.tcl
View File

@ -1,22 +1,19 @@
start_server {tags {"sort"}} { start_server {
test {SORT ALPHA against integer encoded strings} { tags {"sort"}
r del mylist overrides {
r lpush mylist 2 "list-max-ziplist-value" 16
r lpush mylist 1 "list-max-ziplist-entries" 32
r lpush mylist 3 }
r lpush mylist 10 } {
r sort mylist alpha proc create_random_dataset {num cmd} {
} {1 10 2 3}
tags {"slow"} {
set res {}
test {Create a random list and a random set} {
set tosort {} set tosort {}
set result {}
array set seenrand {} array set seenrand {}
for {set i 0} {$i < 10000} {incr i} { r del tosort
while 1 { for {set i 0} {$i < $num} {incr i} {
# Make sure all the weights are different because # Make sure all the weights are different because
# Redis does not use a stable sort but Tcl does. # Redis does not use a stable sort but Tcl does.
while 1 {
randpath { randpath {
set rint [expr int(rand()*1000000)] set rint [expr int(rand()*1000000)]
} { } {
@ -25,138 +22,76 @@ start_server {tags {"sort"}} {
if {![info exists seenrand($rint)]} break if {![info exists seenrand($rint)]} break
} }
set seenrand($rint) x set seenrand($rint) x
r lpush tosort $i r $cmd tosort $i
r sadd tosort-set $i
r set weight_$i $rint r set weight_$i $rint
r hset wobj_$i weight $rint r hset wobj_$i weight $rint
lappend tosort [list $i $rint] lappend tosort [list $i $rint]
} }
set sorted [lsort -index 1 -real $tosort] set sorted [lsort -index 1 -real $tosort]
for {set i 0} {$i < 10000} {incr i} { for {set i 0} {$i < $num} {incr i} {
lappend res [lindex $sorted $i 0] lappend result [lindex $sorted $i 0]
}
set _ $result
} }
format {}
} {}
test {SORT with BY against the newly created list} { set result [create_random_dataset 16 lpush]
r sort tosort {BY weight_*} test "SORT BY key" {
} $res assert_equal $result [r sort tosort {BY weight_*}]
}
test {SORT with BY (hash field) against the newly created list} { test "SORT BY hash field" {
r sort tosort {BY wobj_*->weight} assert_equal $result [r sort tosort {BY wobj_*->weight}]
} $res }
test {SORT with GET (key+hash) with sanity check of each element (list)} { test "SORT GET #" {
set err {} assert_equal [lsort -integer $result] [r sort tosort GET #]
}
test "SORT GET <const>" {
r del foo
set res [r sort tosort GET foo]
assert_equal 16 [llength $res]
foreach item $res { assert_equal {} $item }
}
test "SORT GET (key and hash) with sanity check" {
set l1 [r sort tosort GET # GET weight_*] set l1 [r sort tosort GET # GET weight_*]
set l2 [r sort tosort GET # GET wobj_*->weight] set l2 [r sort tosort GET # GET wobj_*->weight]
foreach {id1 w1} $l1 {id2 w2} $l2 { foreach {id1 w1} $l1 {id2 w2} $l2 {
set realweight [r get weight_$id1] assert_equal $id1 $id2
if {$id1 != $id2} { assert_equal $w1 [r get weight_$id1]
set err "ID mismatch $id1 != $id2" assert_equal $w2 [r get weight_$id1]
break
}
if {$realweight != $w1 || $realweight != $w2} {
set err "Weights mismatch! w1: $w1 w2: $w2 real: $realweight"
break
} }
} }
set _ $err
} {}
test {SORT with BY, but against the newly created set} { test "SORT BY key STORE" {
r sort tosort-set {BY weight_*}
} $res
test {SORT with BY (hash field), but against the newly created set} {
r sort tosort-set {BY wobj_*->weight}
} $res
test {SORT with BY and STORE against the newly created list} {
r sort tosort {BY weight_*} store sort-res r sort tosort {BY weight_*} store sort-res
r lrange sort-res 0 -1 assert_equal $result [r lrange sort-res 0 -1]
} $res assert_equal 16 [r llen sort-res]
assert_encoding ziplist sort-res
}
test {SORT with BY (hash field) and STORE against the newly created list} { test "SORT BY hash field STORE" {
r sort tosort {BY wobj_*->weight} store sort-res r sort tosort {BY wobj_*->weight} store sort-res
r lrange sort-res 0 -1 assert_equal $result [r lrange sort-res 0 -1]
} $res assert_equal 16 [r llen sort-res]
assert_encoding ziplist sort-res
test {SORT direct, numeric, against the newly created list} {
r sort tosort
} [lsort -integer $res]
test {SORT decreasing sort} {
r sort tosort {DESC}
} [lsort -decreasing -integer $res]
test {SORT speed, sorting 10000 elements list using BY, 100 times} {
set start [clock clicks -milliseconds]
for {set i 0} {$i < 100} {incr i} {
set sorted [r sort tosort {BY weight_* LIMIT 0 10}]
}
set elapsed [expr [clock clicks -milliseconds]-$start]
puts -nonewline "\n Average time to sort: [expr double($elapsed)/100] milliseconds "
flush stdout
format {}
} {}
test {SORT speed, as above but against hash field} {
set start [clock clicks -milliseconds]
for {set i 0} {$i < 100} {incr i} {
set sorted [r sort tosort {BY wobj_*->weight LIMIT 0 10}]
}
set elapsed [expr [clock clicks -milliseconds]-$start]
puts -nonewline "\n Average time to sort: [expr double($elapsed)/100] milliseconds "
flush stdout
format {}
} {}
test {SORT speed, sorting 10000 elements list directly, 100 times} {
set start [clock clicks -milliseconds]
for {set i 0} {$i < 100} {incr i} {
set sorted [r sort tosort {LIMIT 0 10}]
}
set elapsed [expr [clock clicks -milliseconds]-$start]
puts -nonewline "\n Average time to sort: [expr double($elapsed)/100] milliseconds "
flush stdout
format {}
} {}
test {SORT speed, pseudo-sorting 10000 elements list, BY <const>, 100 times} {
set start [clock clicks -milliseconds]
for {set i 0} {$i < 100} {incr i} {
set sorted [r sort tosort {BY nokey LIMIT 0 10}]
}
set elapsed [expr [clock clicks -milliseconds]-$start]
puts -nonewline "\n Average time to sort: [expr double($elapsed)/100] milliseconds "
flush stdout
format {}
} {}
} }
test {SORT regression for issue #19, sorting floats} { test "SORT DESC" {
r flushdb assert_equal [lsort -decreasing -integer $result] [r sort tosort {DESC}]
foreach x {1.1 5.10 3.10 7.44 2.1 5.75 6.12 0.25 1.15} {
r lpush mylist $x
} }
r sort mylist
} [lsort -real {1.1 5.10 3.10 7.44 2.1 5.75 6.12 0.25 1.15}]
test {SORT with GET #} { test "SORT ALPHA against integer encoded strings" {
r del mylist r del mylist
r lpush mylist 1
r lpush mylist 2 r lpush mylist 2
r lpush mylist 1
r lpush mylist 3 r lpush mylist 3
r mset weight_1 10 weight_2 5 weight_3 30 r lpush mylist 10
r sort mylist BY weight_* GET # r sort mylist alpha
} {2 1 3} } {1 10 2 3}
test {SORT with constant GET} { test "SORT sorted set" {
r sort mylist GET foo
} {{} {} {}}
test {SORT against sorted sets} {
r del zset r del zset
r zadd zset 1 a r zadd zset 1 a
r zadd zset 5 b r zadd zset 5 b
@ -166,7 +101,7 @@ start_server {tags {"sort"}} {
r sort zset alpha desc r sort zset alpha desc
} {e d c b a} } {e d c b a}
test {Sorted sets +inf and -inf handling} { test "SORT sorted set: +inf and -inf handling" {
r del zset r del zset
r zadd zset -100 a r zadd zset -100 a
r zadd zset 200 b r zadd zset 200 b
@ -176,4 +111,58 @@ start_server {tags {"sort"}} {
r zadd zset -inf min r zadd zset -inf min
r zrange zset 0 -1 r zrange zset 0 -1
} {min c a b d max} } {min c a b d max}
test "SORT regression for issue #19, sorting floats" {
r flushdb
set floats {1.1 5.10 3.10 7.44 2.1 5.75 6.12 0.25 1.15}
foreach x $floats {
r lpush mylist $x
}
assert_equal [lsort -real $floats] [r sort mylist]
}
tags {"slow"} {
set num 100
set res [create_random_dataset $num lpush]
test "SORT speed, $num element list BY key, 100 times" {
set start [clock clicks -milliseconds]
for {set i 0} {$i < 100} {incr i} {
set sorted [r sort tosort {BY weight_* LIMIT 0 10}]
}
set elapsed [expr [clock clicks -milliseconds]-$start]
puts -nonewline "\n Average time to sort: [expr double($elapsed)/100] milliseconds "
flush stdout
}
test "SORT speed, $num element list BY hash field, 100 times" {
set start [clock clicks -milliseconds]
for {set i 0} {$i < 100} {incr i} {
set sorted [r sort tosort {BY wobj_*->weight LIMIT 0 10}]
}
set elapsed [expr [clock clicks -milliseconds]-$start]
puts -nonewline "\n Average time to sort: [expr double($elapsed)/100] milliseconds "
flush stdout
}
test "SORT speed, $num element list directly, 100 times" {
set start [clock clicks -milliseconds]
for {set i 0} {$i < 100} {incr i} {
set sorted [r sort tosort {LIMIT 0 10}]
}
set elapsed [expr [clock clicks -milliseconds]-$start]
puts -nonewline "\n Average time to sort: [expr double($elapsed)/100] milliseconds "
flush stdout
}
test "SORT speed, $num element list BY <const>, 100 times" {
set start [clock clicks -milliseconds]
for {set i 0} {$i < 100} {incr i} {
set sorted [r sort tosort {BY nokey LIMIT 0 10}]
}
set elapsed [expr [clock clicks -milliseconds]-$start]
puts -nonewline "\n Average time to sort: [expr double($elapsed)/100] milliseconds "
flush stdout
}
}
} }