From 45fe1f5e0019c6745e531da3ea51eee609f15ec3 Mon Sep 17 00:00:00 2001 From: antirez Date: Tue, 21 Nov 2017 22:22:05 +0100 Subject: [PATCH] Streams: add some initial test for XREVRANGE. --- tests/unit/type/stream.tcl | 8 ++++++++ 1 file changed, 8 insertions(+) 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}}