Streams: add some initial test for XREVRANGE.

1 files changed, 8 insertions, 0 deletions

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}}