From: antirez <antirez@gmail.com>
Date: Fri, 18 Dec 2009 12:13:13 +0000 (-0500)
Subject: Added a missing server.dirty increment in a non critical place, added more tests
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/fdcaae84d32e284a86cabddb4298c52a8e41a9f6

Added a missing server.dirty increment in a non critical place, added more tests
---

diff --git a/redis.c b/redis.c
index dde1630d..459b25c4 100644
--- a/redis.c
+++ b/redis.c
@@ -3968,7 +3968,8 @@ static void sinterGenericCommand(redisClient *c, robj **setskeys, unsigned long
         if (!setobj) {
             zfree(dv);
             if (dstkey) {
-                deleteKey(c->db,dstkey);
+                if (deleteKey(c->db,dstkey))
+                    server.dirty++;
                 addReply(c,shared.czero);
             } else {
                 addReply(c,shared.nullmultibulk);
diff --git a/test-redis.tcl b/test-redis.tcl
index c61293fa..004dc696 100644
--- 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