modified a bit the ZREVRANGE test to cover a few lines of code more

[redis.git] / test-redis.tcl

diff --git a/test-redis.tcl b/test-redis.tcl
index c61293fa964e15526a8c5dc75dca841e34f74b30..665d2bbff4060112954f59359970bdc803986aff 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -530,6 +530,12 @@ proc main {server port} {
         list [$r lrange mylist 0 -1] [$r type newlist] [string range $err 0 2]
     } {{a b c d} string ERR}
 
+    test {RPOPLPUSH against non existing src key} {
+        $r del mylist
+        $r del newlist
+        $r rpoplpush mylist newlist
+    } {}
+
     test {RENAME basic usage} {
         $r set mykey hello
         $r rename mykey mykey1
@@ -1178,9 +1184,10 @@ proc main {server port} {
         set _ $err
     } {}
 
-    test {ZRANGE and ZREVRANGE} {
-        list [$r zrange ztmp 0 -1] [$r zrevrange ztmp 0 -1]
-    } {{y x z} {z x y}}
+    test {ZRANGE and ZREVRANGE basics} {
+        list [$r zrange ztmp 0 -1] [$r zrevrange ztmp 0 -1] \
+            [$r zrange ztmp 1 -1] [$r zrevrange ztmp 1 -1]
+    } {{y x z} {z x y} {x z} {x y}}
 
     test {ZSETs stress tester - sorting is working well?} {
         set delta 0