From 02a3e582582c381f14bc23aa9bed4b4645a2f118 Mon Sep 17 00:00:00 2001 From: antirez Date: Mon, 10 Oct 2011 12:01:13 +0200 Subject: [PATCH] Added two new tests for RENAME, currently both will fail because of bug #128. --- tests/unit/basic.tcl | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) 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