From 601cea665d63bb7b5e335ce922dc4c01905e04e7 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Thu, 28 Mar 2013 11:46:14 +0100
Subject: [PATCH] Test: regression test for issue #1026.

---
 tests/unit/expire.tcl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl
index f1b0e011..ff3dacb3 100644
--- a/tests/unit/expire.tcl
+++ b/tests/unit/expire.tcl
@@ -178,6 +178,16 @@ start_server {tags {"expire"}} {
         list $size1 $size2 $size3
     } {3 3 0}
 
+    test {EXPIRE should not resurrect keys (issue #1026)} {
+        r debug set-active-expire 0
+        r set foo bar
+        r pexpire foo 500
+        after 1000
+        r expire foo 10
+        r debug set-active-expire 1
+        r exists foo
+    } {0}
+
     test {5 keys in, 5 keys out} {
         r flushdb
         r set a c