Configurable synchronous I/O timeout

[redis.git] / tests / unit / expire.tcl

diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl
index 5de907abb1223af8a21b01a3a0aa6d3c2e702748..6f16ed58956a1d0605e84a7061e294969aac360f 100644 (file)
--- a/tests/unit/expire.tcl
+++ b/tests/unit/expire.tcl
@@ -60,4 +60,15 @@ start_server {tags {"expire"}} {
         catch {r setex z -10 foo} e
         set _ $e
     } {*invalid expire*}
         catch {r setex z -10 foo} e
         set _ $e
     } {*invalid expire*}

+
+    test {PERSIST can undo an EXPIRE} {
+        r set x foo
+        r expire x 50
+        list [r ttl x] [r persist x] [r ttl x] [r get x]
+    } {50 1 -1 foo}
+
+    test {PERSIST returns 0 against non existing or non volatile keys} {
+        r set x foo
+        list [r persist foo] [r persist nokeyatall]
+    } {0 0}

 }
 }