X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/12fea9289063753ddd478f484636c343eeef49ba..638e42aca477816ab4754ffb4e1e2816bdcc163c:/test-redis.tcl

diff --git a/test-redis.tcl b/test-redis.tcl
index f5a03161..68db9706 100644
--- 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