summaryrefslogtreecommitdiff
path: root/tests/unit/expire.tcl
diff options
context:
space:
mode:
authorantirez <antirez@gmail.com>2013-03-28 11:46:14 +0100
committerantirez <antirez@gmail.com>2013-03-28 11:46:14 +0100
commit601cea665d63bb7b5e335ce922dc4c01905e04e7 (patch)
tree0d7d7cde0ab8678755fed055c6bfbf6f3e895736 /tests/unit/expire.tcl
parent3816e7bda90422283884a1e738701e526ca7fdd3 (diff)
downloadredis-601cea665d63bb7b5e335ce922dc4c01905e04e7.tar.gz
Test: regression test for issue #1026.
Diffstat (limited to 'tests/unit/expire.tcl')
-rw-r--r--tests/unit/expire.tcl10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl
index f1b0e0110..ff3dacb33 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