EXPIRE tests more tolerant to random latency while the test is running.

This commit is contained in:
antirez 2011-12-07 12:44:27 +01:00
parent 846bcd9abe
commit 85b69afede

View File

@ -79,9 +79,9 @@ start_server {tags {"expire"}} {
for {set j 0} {$j < 3} {incr j} { for {set j 0} {$j < 3} {incr j} {
r del x r del x
r setex x 1 somevalue r setex x 1 somevalue
after 997 after 900
set a [r get x] set a [r get x]
after 1002 after 1100
set b [r get x] set b [r get x]
if {$a eq {somevalue} && $b eq {}} break if {$a eq {somevalue} && $b eq {}} break
} }
@ -95,23 +95,23 @@ start_server {tags {"expire"}} {
for {set j 0} {$j < 3} {incr j} { for {set j 0} {$j < 3} {incr j} {
r del x y z r del x y z
r psetex x 100 somevalue r psetex x 100 somevalue
after 97 after 80
set a [r get x] set a [r get x]
after 102 after 120
set b [r get x] set b [r get x]
r set x somevalue r set x somevalue
r pexpire x 100 r pexpire x 100
after 97 after 80
set c [r get x] set c [r get x]
after 102 after 120
set d [r get x] set d [r get x]
r set x somevalue r set x somevalue
r pexpireat x [expr ([clock seconds]*1000)+100] r pexpireat x [expr ([clock seconds]*1000)+100]
after 97 after 80
set e [r get x] set e [r get x]
after 102 after 120
set f [r get x] set f [r get x]
if {$a eq {somevalue} && $b eq {} && if {$a eq {somevalue} && $b eq {} &&