From aa96ebec897ef3259ec3b45fa14111aca7e5d74b Mon Sep 17 00:00:00 2001
From: Hampus Wessman <hampus.wessman@gmail.com>
Date: Sun, 3 Jul 2011 11:04:55 +0200
Subject: [PATCH] Add test for incorrect expiration when loading AOF.

---
 tests/integration/aof.tcl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/tests/integration/aof.tcl b/tests/integration/aof.tcl
index 927969b62..954edc2c4 100644
--- a/tests/integration/aof.tcl
+++ b/tests/integration/aof.tcl
@@ -101,4 +101,22 @@ tags {"aof"} {
             assert_equal 1 [$client scard set]
         }
     }
+
+    ## Test that EXPIREAT is loaded correctly
+    create_aof {
+        append_to_aof [formatCommand rpush list foo]
+        append_to_aof [formatCommand expireat list 1000]
+        append_to_aof [formatCommand rpush list bar]
+    }
+
+    start_server_aof [list dir $server_path] {
+        test "AOF+EXPIRE: Server should have been started" {
+            assert_equal 1 [is_alive $srv]
+        }
+
+        test "AOF+EXPIRE: List should be empty" {
+            set client [redis [dict get $srv host] [dict get $srv port]]
+            assert_equal 0 [$client llen list]
+        }
+    }
 }