mirror of
https://github.com/fluencelabs/redis
synced 2025-03-30 22:31:03 +00:00
Test: XDEL fuzz testing. Remove and check stage.
This commit is contained in:
parent
3d7d20b7f3
commit
2352a51992
@ -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} {
|
||||||
|
Loading…
x
Reference in New Issue
Block a user