PERSIST: a fix and some basic test

2010-08-03 14:25:22 +02:00
parent a539d29ac5
commit 1fb4e8def7
2 changed files with 15 additions and 2 deletions
@@ -60,4 +60,15 @@ start_server {tags {"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}
 }