Commit 85b69afe authored by antirez's avatar antirez
Browse files

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

parent 846bcd9a
...@@ -79,9 +79,9 @@ start_server {tags {"expire"}} { ...@@ -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"}} { ...@@ -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 {} &&
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment