diff options
Diffstat (limited to 'tests/unit/expire.tcl')
-rw-r--r-- | tests/unit/expire.tcl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl index e23e2a89a..22a9f73bb 100644 --- a/tests/unit/expire.tcl +++ b/tests/unit/expire.tcl @@ -571,6 +571,23 @@ start_server {tags {"expire"}} { assert_equal [$primary pexpiretime $key] [$replica pexpiretime $key] } } + + test {expired key which is created in writeable replicas should be deleted by active expiry} { + $primary flushall + $replica config set replica-read-only no + foreach {yes_or_no} {yes no} { + $replica config set appendonly $yes_or_no + waitForBgrewriteaof $replica + set prev_expired [s expired_keys] + $replica set foo bar PX 1 + wait_for_condition 100 10 { + [s expired_keys] eq $prev_expired + 1 + } else { + fail "key not expired" + } + assert_equal {} [$replica get foo] + } + } } test {SET command will remove expire} { |