Test: regression test for issue #1026.

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