From: antirez <antirez@gmail.com>
Date: Mon, 10 Oct 2011 10:01:13 +0000 (+0200)
Subject: Added two new tests for RENAME, currently both will fail because of bug #128.
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/02a3e582582c381f14bc23aa9bed4b4645a2f118?ds=sidebyside

Added two new tests for RENAME, currently both will fail because of bug #128.
---

diff --git a/tests/unit/basic.tcl b/tests/unit/basic.tcl
index a7267fd8..86645e95 100644
--- a/tests/unit/basic.tcl
+++ b/tests/unit/basic.tcl
@@ -262,6 +262,25 @@ start_server {tags {"basic"}} {
         format $err
     } {ERR*}
 
+    test {RENAME with volatile key, should move the TTL as well} {
+        r del mykey mykey2
+        r set mykey foo
+        r expire mykey 100
+        assert {[r ttl mykey] > 95 && [r ttl mykey] <= 100}
+        r rename mykey mykey2
+        assert {[r ttl mykey2] > 95 && [r ttl mykey2] <= 100}
+    }
+
+    test {RENAME with volatile key, should not inherit TTL of target key} {
+        r del mykey mykey2
+        r set mykey foo
+        r set mykey2 bar
+        r expire mykey2 100
+        assert {[r ttl mykey] == -1 && [r ttl mykey2] > 0}
+        r rename mykey mykey2
+        r ttl mykey2
+    } {-1}
+
     test {DEL all keys again (DB 0)} {
         foreach key [r keys *] {
             r del $key