EXPIREAT test

2025-06-17 03:01:20 +00:00 · 2009-11-21 11:15:12 +01:00
parent b9febaab5d
commit 5446315f29
2 changed files with 8 additions and 1 deletions
--- a/test-redis.tcl
+++ b/test-redis.tcl
@ -960,6 +960,13 @@ proc main {server port} {
        $r lrange x 0 -1
    } {bar}

+    test {EXPIREAT - Check for EXPIRE alike behavior} {
+        $r del x
+        $r set x foo
+        $r expireat x [expr [clock seconds]+15]
+        $r ttl x
+    } {1[345]}
+
    test {ZSETs skiplist implementation backlink consistency test} {
        set diff 0
        set elements 10000