diff options
author | antirez <antirez@gmail.com> | 2013-03-28 11:46:14 +0100 |
---|---|---|
committer | antirez <antirez@gmail.com> | 2013-03-28 11:46:14 +0100 |
commit | 601cea665d63bb7b5e335ce922dc4c01905e04e7 (patch) | |
tree | 0d7d7cde0ab8678755fed055c6bfbf6f3e895736 /tests/unit/expire.tcl | |
parent | 3816e7bda90422283884a1e738701e526ca7fdd3 (diff) | |
download | redis-601cea665d63bb7b5e335ce922dc4c01905e04e7.tar.gz |
Test: regression test for issue #1026.
Diffstat (limited to 'tests/unit/expire.tcl')
-rw-r--r-- | tests/unit/expire.tcl | 10 |
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 |