Commit 2352a519 authored by antirez's avatar antirez
Browse files

Test: XDEL fuzz testing. Remove and check stage.

parent 3d7d20b7
...@@ -264,6 +264,21 @@ start_server { ...@@ -264,6 +264,21 @@ start_server {
# to report the right number of elements with XRANGE: this will also # to report the right number of elements with XRANGE: this will also
# force accessing the whole data structure to check sanity. # force accessing the whole data structure to check sanity.
assert {[r xlen somestream] == $x} assert {[r xlen somestream] == $x}
# We want to remove elements in random order to really test the
# implementation in a better way.
set ids [lshuffle $ids]
foreach id $ids {
assert {[r xdel somestream $id] == 1}
incr x -1
assert {[r xlen somestream] == $x}
# The test would be too slow calling XRANGE for every iteration.
# Do it every 100 removal.
if {$x % 100 == 0} {
set res [r xrange somestream - +]
assert {[llength $res] == $x}
}
}
} }
test {XRANGE fuzzing} { test {XRANGE fuzzing} {
......
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