X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/762eea07cac57eecb89bf5a079139cd664f4b9d8..9bd0e097aa19b697757cdb73dd447e2c6f4960c6:/tests/unit/expire.tcl diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl index b88ff821..56a59f76 100644 --- a/tests/unit/expire.tcl +++ b/tests/unit/expire.tcl @@ -79,9 +79,9 @@ start_server {tags {"expire"}} { for {set j 0} {$j < 3} {incr j} { r del x r setex x 1 somevalue - after 997 + after 900 set a [r get x] - after 1002 + after 1100 set b [r get x] if {$a eq {somevalue} && $b eq {}} break } @@ -95,23 +95,23 @@ start_server {tags {"expire"}} { for {set j 0} {$j < 3} {incr j} { r del x y z r psetex x 100 somevalue - after 97 + after 80 set a [r get x] - after 102 + after 120 set b [r get x] r set x somevalue r pexpire x 100 - after 97 + after 80 set c [r get x] - after 102 + after 120 set d [r get x] r set x somevalue r pexpireat x [expr ([clock seconds]*1000)+100] - after 97 + after 80 set e [r get x] - after 102 + after 120 set f [r get x] if {$a eq {somevalue} && $b eq {} && @@ -141,4 +141,15 @@ start_server {tags {"expire"}} { set size2 [r dbsize] list $size1 $size2 } {3 0} + + test {5 keys in, 5 keys out} { + r flushdb + r set a c + r expire a 5 + r set t c + r set e c + r set s c + r set foo b + lsort [r keys *] + } {a e foo s t} }