From 601cea665d63bb7b5e335ce922dc4c01905e04e7 Mon Sep 17 00:00:00 2001 From: antirez 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