diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl index 477df0242..39ef28ea9 100644 --- a/tests/unit/expire.tcl +++ b/tests/unit/expire.tcl @@ -220,7 +220,7 @@ start_server {tags {"expire"}} { assert {$ttl <= 98 && $ttl > 90} } - test { EXPIREMEMBER works (set) } { + test {EXPIREMEMBER works (set)} { r flushall r sadd testkey foo bar baz r expiremember testkey foo 1 @@ -228,7 +228,7 @@ start_server {tags {"expire"}} { assert_equal {2} [r scard testkey] } - test { EXPIREMEMBER works (hash) } { + test {EXPIREMEMBER works (hash)} { r flushall r hset testkey foo bar r expiremember testkey foo 1 @@ -236,7 +236,7 @@ start_server {tags {"expire"}} { r exists testkey } {0} - test { EXPIREMEMBER works (zset) } { + test {EXPIREMEMBER works (zset)} { r flushall r zadd testkey 1 foo r zadd testkey 2 bar @@ -246,10 +246,19 @@ start_server {tags {"expire"}} { assert_equal {1} [r zcard testkey] } - test { TTL for subkey expires works } { + test {TTL for subkey expires works} { r flushall r sadd testkey foo bar baz r expiremember testkey foo 10000 assert [expr [r ttl testkey foo] > 0] } + + test {Roundtrip for subkey expires works} { + r flushall + r sadd testkey foo bar baz + r expiremember testkey foo 10000 + r save + r debug reload + assert [expr [r ttl testkey foo] > 0] + } }