debug loadaof implemented in order to add more consistency tests in test-redis.tcl

[redis.git] / test-redis.tcl

diff --git a/test-redis.tcl b/test-redis.tcl
index f002dfa771056e9599e1e4871e647cd7485aea43..e679b7fa142b85c45e282334601e3f9a4f978d89 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -1394,6 +1394,16 @@ proc main {server port} {
         } {1}
     }
 
+    test {EXPIRES after a reload} {
+        $r flushdb
+        $r set x 10
+        $r expire x 1000
+        $r save
+        $r debug reload
+        set ttl [$r ttl x]
+        expr {$ttl > 900 && $ttl <= 1000}
+    } {1}
+
     # Leave the user with a clean DB before to exit
     test {FLUSHDB} {
         set aux {}