multi bulk input protocol fixed

[redis.git] / test-redis.tcl

diff --git a/test-redis.tcl b/test-redis.tcl
index f5a03161ab023bb6d006b5f5c2f8eaa7e1343943..68db970632e078ce790fbaac26a84f5eb45b832a 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -651,6 +651,14 @@ proc main {server port} {
         list [$r lrange mylist 0 -1] $res
     } {{foo bar foobar foobared zap test} 2}
 
+    test {LREM, deleting objects that may be encoded as integers} {
+        $r lpush myotherlist 1
+        $r lpush myotherlist 2
+        $r lpush myotherlist 3
+        $r lrem myotherlist 1 2
+        $r llen myotherlist
+    } {2}
+
     test {MGET} {
         $r flushall
         $r set foo BAR