mirror of
https://github.com/fluencelabs/redis
synced 2025-03-28 05:11:03 +00:00
Test both sorted set encodings for every test
This commit is contained in:
Pieter Noordhuis
parent
69298a05eb
commit
9ec4ea20a7
@ -6,25 +6,54 @@ start_server {tags {"zset"}} {
|
||||
}
|
||||
}
|
||||
|
||||
test {ZSET basic ZADD and score update} {
|
||||
proc basics {encoding} {
|
||||
if {$encoding == "ziplist"} {
|
||||
r config set zset-max-ziplist-entries 128
|
||||
r config set zset-max-ziplist-value 64
|
||||
} elseif {$encoding == "raw"} {
|
||||
r config set zset-max-ziplist-entries 0
|
||||
r config set zset-max-ziplist-value 0
|
||||
} else {
|
||||
puts "Unknown sorted set encoding"
|
||||
exit
|
||||
}
|
||||
|
||||
test "Check encoding - $encoding" {
|
||||
r del ztmp
|
||||
r zadd ztmp 10 x
|
||||
assert_encoding $encoding ztmp
|
||||
}
|
||||
|
||||
test "ZSET basic ZADD and score update - $encoding" {
|
||||
r del ztmp
|
||||
r zadd ztmp 10 x
|
||||
r zadd ztmp 20 y
|
||||
r zadd ztmp 30 z
|
||||
set aux1 [r zrange ztmp 0 -1]
|
||||
assert_equal {x y z} [r zrange ztmp 0 -1]
|
||||
|
||||
r zadd ztmp 1 y
|
||||
set aux2 [r zrange ztmp 0 -1]
|
||||
list $aux1 $aux2
|
||||
} {{x y z} {y x z}}
|
||||
assert_equal {y x z} [r zrange ztmp 0 -1]
|
||||
}
|
||||
|
||||
test {ZCARD basics} {
|
||||
r zcard ztmp
|
||||
} {3}
|
||||
test "ZSET element can't be set to NaN with ZADD - $encoding" {
|
||||
assert_error "*not a double*" {r zadd myzset nan abc}
|
||||
}
|
||||
|
||||
test {ZCARD non existing key} {
|
||||
r zcard ztmp-blabla
|
||||
} {0}
|
||||
test "ZSET element can't be set to NaN with ZINCRBY" {
|
||||
assert_error "*not a double*" {r zadd myzset nan abc}
|
||||
}
|
||||
|
||||
test "ZRANGE basics" {
|
||||
test "ZINCRBY calls leading to NaN result in error" {
|
||||
r zincrby myzset +inf abc
|
||||
assert_error "*NaN*" {r zincrby myzset -inf abc}
|
||||
}
|
||||
|
||||
test "ZCARD basics - $encoding" {
|
||||
assert_equal 3 [r zcard ztmp]
|
||||
assert_equal 0 [r zcard zdoesntexist]
|
||||
}
|
||||
|
||||
test "ZRANGE basics - $encoding" {
|
||||
r del ztmp
|
||||
r zadd ztmp 1 a
|
||||
r zadd ztmp 2 b
|
||||
@ -54,7 +83,7 @@ start_server {tags {"zset"}} {
|
||||
assert_equal {a 1 b 2 c 3 d 4} [r zrange ztmp 0 -1 withscores]
|
||||
}
|
||||
|
||||
test "ZREVRANGE basics" {
|
||||
test "ZREVRANGE basics - $encoding" {
|
||||
r del ztmp
|
||||
r zadd ztmp 1 a
|
||||
r zadd ztmp 2 b
|
||||
@ -84,120 +113,47 @@ start_server {tags {"zset"}} {
|
||||
assert_equal {d 4 c 3 b 2 a 1} [r zrevrange ztmp 0 -1 withscores]
|
||||
}
|
||||
|
||||
test {ZRANK basics} {
|
||||
test "ZRANK/ZREVRANK basics - $encoding" {
|
||||
r del zranktmp
|
||||
r zadd zranktmp 10 x
|
||||
r zadd zranktmp 20 y
|
||||
r zadd zranktmp 30 z
|
||||
list [r zrank zranktmp x] [r zrank zranktmp y] [r zrank zranktmp z]
|
||||
} {0 1 2}
|
||||
assert_equal 0 [r zrank zranktmp x]
|
||||
assert_equal 1 [r zrank zranktmp y]
|
||||
assert_equal 2 [r zrank zranktmp z]
|
||||
assert_equal "" [r zrank zranktmp foo]
|
||||
assert_equal 2 [r zrevrank zranktmp x]
|
||||
assert_equal 1 [r zrevrank zranktmp y]
|
||||
assert_equal 0 [r zrevrank zranktmp z]
|
||||
assert_equal "" [r zrevrank zranktmp foo]
|
||||
}
|
||||
|
||||
test {ZREVRANK basics} {
|
||||
list [r zrevrank zranktmp x] [r zrevrank zranktmp y] [r zrevrank zranktmp z]
|
||||
} {2 1 0}
|
||||
|
||||
test {ZRANK - after deletion} {
|
||||
test "ZRANK - after deletion - $encoding" {
|
||||
r zrem zranktmp y
|
||||
list [r zrank zranktmp x] [r zrank zranktmp z]
|
||||
} {0 1}
|
||||
assert_equal 0 [r zrank zranktmp x]
|
||||
assert_equal 1 [r zrank zranktmp z]
|
||||
}
|
||||
|
||||
test {ZSCORE} {
|
||||
set aux {}
|
||||
set err {}
|
||||
for {set i 0} {$i < 1000} {incr i} {
|
||||
set score [expr rand()]
|
||||
lappend aux $score
|
||||
r zadd zscoretest $score $i
|
||||
}
|
||||
for {set i 0} {$i < 1000} {incr i} {
|
||||
if {[r zscore zscoretest $i] != [lindex $aux $i]} {
|
||||
set err "Expected score was [lindex $aux $i] but got [r zscore zscoretest $i] for element $i"
|
||||
break
|
||||
}
|
||||
}
|
||||
set _ $err
|
||||
} {}
|
||||
|
||||
test {ZSCORE after a DEBUG RELOAD} {
|
||||
set aux {}
|
||||
set err {}
|
||||
r del zscoretest
|
||||
for {set i 0} {$i < 1000} {incr i} {
|
||||
set score [expr rand()]
|
||||
lappend aux $score
|
||||
r zadd zscoretest $score $i
|
||||
}
|
||||
r debug reload
|
||||
for {set i 0} {$i < 1000} {incr i} {
|
||||
if {[r zscore zscoretest $i] != [lindex $aux $i]} {
|
||||
set err "Expected score was [lindex $aux $i] but got [r zscore zscoretest $i] for element $i"
|
||||
break
|
||||
}
|
||||
}
|
||||
set _ $err
|
||||
} {}
|
||||
|
||||
test {ZSETs stress tester - sorting is working well?} {
|
||||
set delta 0
|
||||
for {set test 0} {$test < 2} {incr test} {
|
||||
unset -nocomplain auxarray
|
||||
array set auxarray {}
|
||||
set auxlist {}
|
||||
r del myzset
|
||||
for {set i 0} {$i < 1000} {incr i} {
|
||||
if {$test == 0} {
|
||||
set score [expr rand()]
|
||||
} else {
|
||||
set score [expr int(rand()*10)]
|
||||
}
|
||||
set auxarray($i) $score
|
||||
r zadd myzset $score $i
|
||||
# Random update
|
||||
if {[expr rand()] < .2} {
|
||||
set j [expr int(rand()*1000)]
|
||||
if {$test == 0} {
|
||||
set score [expr rand()]
|
||||
} else {
|
||||
set score [expr int(rand()*10)]
|
||||
}
|
||||
set auxarray($j) $score
|
||||
r zadd myzset $score $j
|
||||
}
|
||||
}
|
||||
foreach {item score} [array get auxarray] {
|
||||
lappend auxlist [list $score $item]
|
||||
}
|
||||
set sorted [lsort -command zlistAlikeSort $auxlist]
|
||||
set auxlist {}
|
||||
foreach x $sorted {
|
||||
lappend auxlist [lindex $x 1]
|
||||
}
|
||||
set fromredis [r zrange myzset 0 -1]
|
||||
set delta 0
|
||||
for {set i 0} {$i < [llength $fromredis]} {incr i} {
|
||||
if {[lindex $fromredis $i] != [lindex $auxlist $i]} {
|
||||
incr delta
|
||||
}
|
||||
}
|
||||
}
|
||||
format $delta
|
||||
} {0}
|
||||
|
||||
test {ZINCRBY - can create a new sorted set} {
|
||||
test "ZINCRBY - can create a new sorted set - $encoding" {
|
||||
r del zset
|
||||
r zincrby zset 1 foo
|
||||
list [r zrange zset 0 -1] [r zscore zset foo]
|
||||
} {foo 1}
|
||||
assert_equal {foo} [r zrange zset 0 -1]
|
||||
assert_equal 1 [r zscore zset foo]
|
||||
}
|
||||
|
||||
test {ZINCRBY - increment and decrement} {
|
||||
test "ZINCRBY - increment and decrement - $encoding" {
|
||||
r zincrby zset 2 foo
|
||||
r zincrby zset 1 bar
|
||||
set v1 [r zrange zset 0 -1]
|
||||
assert_equal {bar foo} [r zrange zset 0 -1]
|
||||
|
||||
r zincrby zset 10 bar
|
||||
r zincrby zset -5 foo
|
||||
r zincrby zset -5 bar
|
||||
set v2 [r zrange zset 0 -1]
|
||||
list $v1 $v2 [r zscore zset foo] [r zscore zset bar]
|
||||
} {{bar foo} {foo bar} -2 6}
|
||||
assert_equal {foo bar} [r zrange zset 0 -1]
|
||||
|
||||
assert_equal -2 [r zscore zset foo]
|
||||
assert_equal 6 [r zscore zset bar]
|
||||
}
|
||||
|
||||
proc create_default_zset {} {
|
||||
create_zset zset {-inf a 1 b 2 c 3 d 4 e 5 f +inf g}
|
||||
@ -285,88 +241,6 @@ start_server {tags {"zset"}} {
|
||||
assert_error "*not a double*" {r zrangebyscore fooz 1 NaN}
|
||||
}
|
||||
|
||||
tags {"slow"} {
|
||||
test {ZRANGEBYSCORE fuzzy test, 100 ranges in 1000 elements sorted set} {
|
||||
set err {}
|
||||
r del zset
|
||||
for {set i 0} {$i < 1000} {incr i} {
|
||||
r zadd zset [expr rand()] $i
|
||||
}
|
||||
for {set i 0} {$i < 100} {incr i} {
|
||||
set min [expr rand()]
|
||||
set max [expr rand()]
|
||||
if {$min > $max} {
|
||||
set aux $min
|
||||
set min $max
|
||||
set max $aux
|
||||
}
|
||||
set low [r zrangebyscore zset -inf $min]
|
||||
set ok [r zrangebyscore zset $min $max]
|
||||
set high [r zrangebyscore zset $max +inf]
|
||||
set lowx [r zrangebyscore zset -inf ($min]
|
||||
set okx [r zrangebyscore zset ($min ($max]
|
||||
set highx [r zrangebyscore zset ($max +inf]
|
||||
|
||||
if {[r zcount zset -inf $min] != [llength $low]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
if {[r zcount zset $min $max] != [llength $ok]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
if {[r zcount zset $max +inf] != [llength $high]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
if {[r zcount zset -inf ($min] != [llength $lowx]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
if {[r zcount zset ($min ($max] != [llength $okx]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
if {[r zcount zset ($max +inf] != [llength $highx]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
|
||||
foreach x $low {
|
||||
set score [r zscore zset $x]
|
||||
if {$score > $min} {
|
||||
append err "Error, score for $x is $score > $min\n"
|
||||
}
|
||||
}
|
||||
foreach x $lowx {
|
||||
set score [r zscore zset $x]
|
||||
if {$score >= $min} {
|
||||
append err "Error, score for $x is $score >= $min\n"
|
||||
}
|
||||
}
|
||||
foreach x $ok {
|
||||
set score [r zscore zset $x]
|
||||
if {$score < $min || $score > $max} {
|
||||
append err "Error, score for $x is $score outside $min-$max range\n"
|
||||
}
|
||||
}
|
||||
foreach x $okx {
|
||||
set score [r zscore zset $x]
|
||||
if {$score <= $min || $score >= $max} {
|
||||
append err "Error, score for $x is $score outside $min-$max open range\n"
|
||||
}
|
||||
}
|
||||
foreach x $high {
|
||||
set score [r zscore zset $x]
|
||||
if {$score < $max} {
|
||||
append err "Error, score for $x is $score < $max\n"
|
||||
}
|
||||
}
|
||||
foreach x $highx {
|
||||
set score [r zscore zset $x]
|
||||
if {$score <= $max} {
|
||||
append err "Error, score for $x is $score <= $max\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
set _ $err
|
||||
} {}
|
||||
}
|
||||
|
||||
test "ZREMRANGEBYSCORE basics" {
|
||||
proc remrangebyscore {min max} {
|
||||
create_zset zset {1 a 2 b 3 c 4 d 5 e}
|
||||
@ -451,12 +325,13 @@ start_server {tags {"zset"}} {
|
||||
assert_equal {} [r zrange zset 0 -1]
|
||||
}
|
||||
|
||||
test {ZUNIONSTORE against non-existing key doesn't set destination} {
|
||||
test "ZUNIONSTORE against non-existing key doesn't set destination - $encoding" {
|
||||
r del zseta
|
||||
list [r zunionstore dst_key 1 zseta] [r exists dst_key]
|
||||
} {0 0}
|
||||
assert_equal 0 [r zunionstore dst_key 1 zseta]
|
||||
assert_equal 0 [r exists dst_key]
|
||||
}
|
||||
|
||||
test {ZUNIONSTORE basics} {
|
||||
test "ZUNIONSTORE basics - $encoding" {
|
||||
r del zseta zsetb zsetc
|
||||
r zadd zseta 1 a
|
||||
r zadd zseta 2 b
|
||||
@ -464,55 +339,67 @@ start_server {tags {"zset"}} {
|
||||
r zadd zsetb 1 b
|
||||
r zadd zsetb 2 c
|
||||
r zadd zsetb 3 d
|
||||
list [r zunionstore zsetc 2 zseta zsetb] [r zrange zsetc 0 -1 withscores]
|
||||
} {4 {a 1 b 3 d 3 c 5}}
|
||||
|
||||
test {ZUNIONSTORE with weights} {
|
||||
list [r zunionstore zsetc 2 zseta zsetb weights 2 3] [r zrange zsetc 0 -1 withscores]
|
||||
} {4 {a 2 b 7 d 9 c 12}}
|
||||
assert_equal 4 [r zunionstore zsetc 2 zseta zsetb]
|
||||
assert_equal {a 1 b 3 d 3 c 5} [r zrange zsetc 0 -1 withscores]
|
||||
}
|
||||
|
||||
test {ZUNIONSTORE with a regular set and weights} {
|
||||
test "ZUNIONSTORE with weights - $encoding" {
|
||||
assert_equal 4 [r zunionstore zsetc 2 zseta zsetb weights 2 3]
|
||||
assert_equal {a 2 b 7 d 9 c 12} [r zrange zsetc 0 -1 withscores]
|
||||
}
|
||||
|
||||
test "ZUNIONSTORE with a regular set and weights - $encoding" {
|
||||
r del seta
|
||||
r sadd seta a
|
||||
r sadd seta b
|
||||
r sadd seta c
|
||||
list [r zunionstore zsetc 2 seta zsetb weights 2 3] [r zrange zsetc 0 -1 withscores]
|
||||
} {4 {a 2 b 5 c 8 d 9}}
|
||||
|
||||
test {ZUNIONSTORE with AGGREGATE MIN} {
|
||||
list [r zunionstore zsetc 2 zseta zsetb aggregate min] [r zrange zsetc 0 -1 withscores]
|
||||
} {4 {a 1 b 1 c 2 d 3}}
|
||||
assert_equal 4 [r zunionstore zsetc 2 seta zsetb weights 2 3]
|
||||
assert_equal {a 2 b 5 c 8 d 9} [r zrange zsetc 0 -1 withscores]
|
||||
}
|
||||
|
||||
test {ZUNIONSTORE with AGGREGATE MAX} {
|
||||
list [r zunionstore zsetc 2 zseta zsetb aggregate max] [r zrange zsetc 0 -1 withscores]
|
||||
} {4 {a 1 b 2 c 3 d 3}}
|
||||
test "ZUNIONSTORE with AGGREGATE MIN - $encoding" {
|
||||
assert_equal 4 [r zunionstore zsetc 2 zseta zsetb aggregate min]
|
||||
assert_equal {a 1 b 1 c 2 d 3} [r zrange zsetc 0 -1 withscores]
|
||||
}
|
||||
|
||||
test {ZINTERSTORE basics} {
|
||||
list [r zinterstore zsetc 2 zseta zsetb] [r zrange zsetc 0 -1 withscores]
|
||||
} {2 {b 3 c 5}}
|
||||
test "ZUNIONSTORE with AGGREGATE MAX - $encoding" {
|
||||
assert_equal 4 [r zunionstore zsetc 2 zseta zsetb aggregate max]
|
||||
assert_equal {a 1 b 2 c 3 d 3} [r zrange zsetc 0 -1 withscores]
|
||||
}
|
||||
|
||||
test {ZINTERSTORE with weights} {
|
||||
list [r zinterstore zsetc 2 zseta zsetb weights 2 3] [r zrange zsetc 0 -1 withscores]
|
||||
} {2 {b 7 c 12}}
|
||||
test "ZINTERSTORE basics - $encoding" {
|
||||
assert_equal 2 [r zinterstore zsetc 2 zseta zsetb]
|
||||
assert_equal {b 3 c 5} [r zrange zsetc 0 -1 withscores]
|
||||
}
|
||||
|
||||
test {ZINTERSTORE with a regular set and weights} {
|
||||
test "ZINTERSTORE with weights - $encoding" {
|
||||
assert_equal 2 [r zinterstore zsetc 2 zseta zsetb weights 2 3]
|
||||
assert_equal {b 7 c 12} [r zrange zsetc 0 -1 withscores]
|
||||
}
|
||||
|
||||
test "ZINTERSTORE with a regular set and weights - $encoding" {
|
||||
r del seta
|
||||
r sadd seta a
|
||||
r sadd seta b
|
||||
r sadd seta c
|
||||
list [r zinterstore zsetc 2 seta zsetb weights 2 3] [r zrange zsetc 0 -1 withscores]
|
||||
} {2 {b 5 c 8}}
|
||||
assert_equal 2 [r zinterstore zsetc 2 seta zsetb weights 2 3]
|
||||
assert_equal {b 5 c 8} [r zrange zsetc 0 -1 withscores]
|
||||
}
|
||||
|
||||
test {ZINTERSTORE with AGGREGATE MIN} {
|
||||
list [r zinterstore zsetc 2 zseta zsetb aggregate min] [r zrange zsetc 0 -1 withscores]
|
||||
} {2 {b 1 c 2}}
|
||||
test "ZINTERSTORE with AGGREGATE MIN - $encoding" {
|
||||
assert_equal 2 [r zinterstore zsetc 2 zseta zsetb aggregate min]
|
||||
assert_equal {b 1 c 2} [r zrange zsetc 0 -1 withscores]
|
||||
}
|
||||
|
||||
test {ZINTERSTORE with AGGREGATE MAX} {
|
||||
list [r zinterstore zsetc 2 zseta zsetb aggregate max] [r zrange zsetc 0 -1 withscores]
|
||||
} {2 {b 2 c 3}}
|
||||
test "ZINTERSTORE with AGGREGATE MAX - $encoding" {
|
||||
assert_equal 2 [r zinterstore zsetc 2 zseta zsetb aggregate max]
|
||||
assert_equal {b 2 c 3} [r zrange zsetc 0 -1 withscores]
|
||||
}
|
||||
|
||||
foreach cmd {ZUNIONSTORE ZINTERSTORE} {
|
||||
test "$cmd with +inf/-inf scores" {
|
||||
test "$cmd with +inf/-inf scores - $encoding" {
|
||||
r del zsetinf1 zsetinf2
|
||||
|
||||
r zadd zsetinf1 +inf key
|
||||
@ -536,7 +423,7 @@ start_server {tags {"zset"}} {
|
||||
assert_equal -inf [r zscore zsetinf3 key]
|
||||
}
|
||||
|
||||
test "$cmd with NaN weights" {
|
||||
test "$cmd with NaN weights $encoding" {
|
||||
r del zsetinf1 zsetinf2
|
||||
|
||||
r zadd zsetinf1 1.0 key
|
||||
@ -546,15 +433,195 @@ start_server {tags {"zset"}} {
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
tags {"slow"} {
|
||||
test {ZSETs skiplist implementation backlink consistency test} {
|
||||
basics ziplist
|
||||
basics raw
|
||||
|
||||
proc stressers {encoding} {
|
||||
if {$encoding == "ziplist"} {
|
||||
# Little extra to allow proper fuzzing in the sorting stresser
|
||||
r config set zset-max-ziplist-entries 256
|
||||
r config set zset-max-ziplist-value 64
|
||||
set elements 128
|
||||
} elseif {$encoding == "raw"} {
|
||||
r config set zset-max-ziplist-entries 0
|
||||
r config set zset-max-ziplist-value 0
|
||||
set elements 1000
|
||||
} else {
|
||||
puts "Unknown sorted set encoding"
|
||||
exit
|
||||
}
|
||||
|
||||
test "ZSCORE - $encoding" {
|
||||
r del zscoretest
|
||||
set aux {}
|
||||
for {set i 0} {$i < $elements} {incr i} {
|
||||
set score [expr rand()]
|
||||
lappend aux $score
|
||||
r zadd zscoretest $score $i
|
||||
}
|
||||
|
||||
assert_encoding $encoding zscoretest
|
||||
for {set i 0} {$i < $elements} {incr i} {
|
||||
assert_equal [lindex $aux $i] [r zscore zscoretest $i]
|
||||
}
|
||||
}
|
||||
|
||||
test "ZSCORE after a DEBUG RELOAD - $encoding" {
|
||||
r del zscoretest
|
||||
set aux {}
|
||||
for {set i 0} {$i < $elements} {incr i} {
|
||||
set score [expr rand()]
|
||||
lappend aux $score
|
||||
r zadd zscoretest $score $i
|
||||
}
|
||||
|
||||
r debug reload
|
||||
assert_encoding $encoding zscoretest
|
||||
for {set i 0} {$i < $elements} {incr i} {
|
||||
assert_equal [lindex $aux $i] [r zscore zscoretest $i]
|
||||
}
|
||||
}
|
||||
|
||||
test "ZSET sorting stresser - $encoding" {
|
||||
set delta 0
|
||||
for {set test 0} {$test < 2} {incr test} {
|
||||
unset -nocomplain auxarray
|
||||
array set auxarray {}
|
||||
set auxlist {}
|
||||
r del myzset
|
||||
for {set i 0} {$i < $elements} {incr i} {
|
||||
if {$test == 0} {
|
||||
set score [expr rand()]
|
||||
} else {
|
||||
set score [expr int(rand()*10)]
|
||||
}
|
||||
set auxarray($i) $score
|
||||
r zadd myzset $score $i
|
||||
# Random update
|
||||
if {[expr rand()] < .2} {
|
||||
set j [expr int(rand()*1000)]
|
||||
if {$test == 0} {
|
||||
set score [expr rand()]
|
||||
} else {
|
||||
set score [expr int(rand()*10)]
|
||||
}
|
||||
set auxarray($j) $score
|
||||
r zadd myzset $score $j
|
||||
}
|
||||
}
|
||||
foreach {item score} [array get auxarray] {
|
||||
lappend auxlist [list $score $item]
|
||||
}
|
||||
set sorted [lsort -command zlistAlikeSort $auxlist]
|
||||
set auxlist {}
|
||||
foreach x $sorted {
|
||||
lappend auxlist [lindex $x 1]
|
||||
}
|
||||
|
||||
assert_encoding $encoding myzset
|
||||
set fromredis [r zrange myzset 0 -1]
|
||||
set delta 0
|
||||
for {set i 0} {$i < [llength $fromredis]} {incr i} {
|
||||
if {[lindex $fromredis $i] != [lindex $auxlist $i]} {
|
||||
incr delta
|
||||
}
|
||||
}
|
||||
}
|
||||
assert_equal 0 $delta
|
||||
}
|
||||
|
||||
test "ZRANGEBYSCORE fuzzy test, 100 ranges in $elements element sorted set - $encoding" {
|
||||
set err {}
|
||||
r del zset
|
||||
for {set i 0} {$i < $elements} {incr i} {
|
||||
r zadd zset [expr rand()] $i
|
||||
}
|
||||
|
||||
assert_encoding $encoding zset
|
||||
for {set i 0} {$i < 100} {incr i} {
|
||||
set min [expr rand()]
|
||||
set max [expr rand()]
|
||||
if {$min > $max} {
|
||||
set aux $min
|
||||
set min $max
|
||||
set max $aux
|
||||
}
|
||||
set low [r zrangebyscore zset -inf $min]
|
||||
set ok [r zrangebyscore zset $min $max]
|
||||
set high [r zrangebyscore zset $max +inf]
|
||||
set lowx [r zrangebyscore zset -inf ($min]
|
||||
set okx [r zrangebyscore zset ($min ($max]
|
||||
set highx [r zrangebyscore zset ($max +inf]
|
||||
|
||||
if {[r zcount zset -inf $min] != [llength $low]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
if {[r zcount zset $min $max] != [llength $ok]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
if {[r zcount zset $max +inf] != [llength $high]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
if {[r zcount zset -inf ($min] != [llength $lowx]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
if {[r zcount zset ($min ($max] != [llength $okx]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
if {[r zcount zset ($max +inf] != [llength $highx]} {
|
||||
append err "Error, len does not match zcount\n"
|
||||
}
|
||||
|
||||
foreach x $low {
|
||||
set score [r zscore zset $x]
|
||||
if {$score > $min} {
|
||||
append err "Error, score for $x is $score > $min\n"
|
||||
}
|
||||
}
|
||||
foreach x $lowx {
|
||||
set score [r zscore zset $x]
|
||||
if {$score >= $min} {
|
||||
append err "Error, score for $x is $score >= $min\n"
|
||||
}
|
||||
}
|
||||
foreach x $ok {
|
||||
set score [r zscore zset $x]
|
||||
if {$score < $min || $score > $max} {
|
||||
append err "Error, score for $x is $score outside $min-$max range\n"
|
||||
}
|
||||
}
|
||||
foreach x $okx {
|
||||
set score [r zscore zset $x]
|
||||
if {$score <= $min || $score >= $max} {
|
||||
append err "Error, score for $x is $score outside $min-$max open range\n"
|
||||
}
|
||||
}
|
||||
foreach x $high {
|
||||
set score [r zscore zset $x]
|
||||
if {$score < $max} {
|
||||
append err "Error, score for $x is $score < $max\n"
|
||||
}
|
||||
}
|
||||
foreach x $highx {
|
||||
set score [r zscore zset $x]
|
||||
if {$score <= $max} {
|
||||
append err "Error, score for $x is $score <= $max\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
assert_equal {} $err
|
||||
}
|
||||
|
||||
test "ZSETs skiplist implementation backlink consistency test - $encoding" {
|
||||
set diff 0
|
||||
set elements 10000
|
||||
for {set j 0} {$j < $elements} {incr j} {
|
||||
r zadd myzset [expr rand()] "Element-$j"
|
||||
r zrem myzset "Element-[expr int(rand()*$elements)]"
|
||||
}
|
||||
|
||||
assert_encoding $encoding myzset
|
||||
set l1 [r zrange myzset 0 -1]
|
||||
set l2 [r zrevrange myzset 0 -1]
|
||||
for {set j 0} {$j < [llength $l1]} {incr j} {
|
||||
@ -562,20 +629,22 @@ start_server {tags {"zset"}} {
|
||||
incr diff
|
||||
}
|
||||
}
|
||||
format $diff
|
||||
} {0}
|
||||
assert_equal 0 $diff
|
||||
}
|
||||
|
||||
test {ZSETs ZRANK augmented skip list stress testing} {
|
||||
test "ZSETs ZRANK augmented skip list stress testing - $encoding" {
|
||||
set err {}
|
||||
r del myzset
|
||||
for {set k 0} {$k < 10000} {incr k} {
|
||||
set i [expr {$k%1000}]
|
||||
for {set k 0} {$k < 2000} {incr k} {
|
||||
set i [expr {$k % $elements}]
|
||||
if {[expr rand()] < .2} {
|
||||
r zrem myzset $i
|
||||
} else {
|
||||
set score [expr rand()]
|
||||
r zadd myzset $score $i
|
||||
assert_encoding $encoding myzset
|
||||
}
|
||||
|
||||
set card [r zcard myzset]
|
||||
if {$card > 0} {
|
||||
set index [randomInt $card]
|
||||
@ -587,20 +656,12 @@ start_server {tags {"zset"}} {
|
||||
}
|
||||
}
|
||||
}
|
||||
set _ $err
|
||||
} {}
|
||||
assert_equal {} $err
|
||||
}
|
||||
}
|
||||
|
||||
test {ZSET element can't be set to NaN with ZADD} {
|
||||
assert_error "*not a double*" {r zadd myzset nan abc}
|
||||
}
|
||||
|
||||
test {ZSET element can't be set to NaN with ZINCRBY} {
|
||||
assert_error "*not a double*" {r zadd myzset nan abc}
|
||||
}
|
||||
|
||||
test {ZINCRBY calls leading to NaN result in error} {
|
||||
r zincrby myzset +inf abc
|
||||
assert_error "*NaN*" {r zincrby myzset -inf abc}
|
||||
tags {"slow"} {
|
||||
stressers ziplist
|
||||
stressers raw
|
||||
}
|
||||
}
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user