SETEX implemented

[redis.git] / test-redis.tcl

diff --git a/test-redis.tcl b/test-redis.tcl
index 7f4ce9c72db5157915bc127736407dc0834a4b6c..26b7f12a7e3f29c0e4f4e39c96b426c9857d4ce1 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -1941,6 +1941,30 @@ proc main {} {
         $r ttl x
     } {1[345]}
 
+    test {SETEX - Set + Expire combo operation. Check for TTL} {
+        $r setex x 12 test
+        $r ttl x
+    } {1[012]}
+
+    test {SETEX - Check value} {
+        $r get x
+    } {test}
+
+    test {SETEX - Overwrite old key} {
+        $r setex y 1 foo
+        $r get y
+    } {foo}
+
+    test {SETEX - Wait for the key to expire} {
+        after 3000
+        $r get y
+    } {}
+
+    test {SETEX - Wrong time parameter} {
+        catch {$r setex z -10 foo} e
+        set _ $e
+    } {*invalid expire*}
+
     test {ZSETs skiplist implementation backlink consistency test} {
         set diff 0
         set elements 10000