diff --git a/tests/unit/type/stream.tcl b/tests/unit/type/stream.tcl index 5c58e7fb2..d7b5ca2a8 100644 --- a/tests/unit/type/stream.tcl +++ b/tests/unit/type/stream.tcl @@ -121,6 +121,10 @@ start_server { assert {[llength [r xrange mystream - + COUNT 10]] == 10} } + test {XREVRANGE COUNT works as expected} { + assert {[llength [r xrevrange mystream + - COUNT 10]] == 10} + } + test {XRANGE can be used to iterate the whole stream} { set last_id "-" set j 0 @@ -136,6 +140,10 @@ start_server { assert {$j == 10000} } + test {XREVRANGE returns the reverse of XRANGE} { + assert {[r xrange mystream - +] == [lreverse [r xrevrange mystream + -]]} + } + test {XREAD with non empty stream} { set res [r XREAD COUNT 1 STREAMS mystream 0.0] assert {[lrange [lindex $res 0 1 0 1] 0 1] eq {item 0}}