From 5446315f29fd5eed3aaa2a16a9bcc8f882d67e8c Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Sat, 21 Nov 2009 11:15:12 +0100
Subject: [PATCH] EXPIREAT test

---
 TODO           | 2 +-
 test-redis.tcl | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/TODO b/TODO
index 165fee426..27102e016 100644
--- a/TODO
+++ b/TODO
@@ -3,7 +3,7 @@ VERSION 1.1 TODO
 * For now only the last argument gets integer encoded, so make sure that: 1) every multi bulk commands implemented will have the last arg that is indeed a value, and not used otherwise. 2) to explicitly call the function to encode the object in MSET and other commands where there are multiple "values".
 * Man pages for MSET MSETNX and SRANDMEMBER, Z-commands, ...
 * Use strcoll() to compare objects in sorted sets, like it already happens for SORT.
-* Tests for: EXPIREAT, ZSCORE, SRANDMEMBER, SORT with #.
+* Tests for: EXPIREAT, ZSCORE, ZINCRBY, SRANDMEMBER, SORT with #.
 * Write docs for the "STORE" operaiton of SORT, and GET "#" option.
 * Append only mode: testing and a command to rebuild the log from scratch.
 * Redis-cli should be able to select a different DB than 0 using some switch.
diff --git a/test-redis.tcl b/test-redis.tcl
index d3837026b..a7b40cd36 100644
--- 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
-- 
GitLab