Add more attempts to a timing sensitive test (#8770)
This commit is contained in:
parent
38da8d07d0
commit
c07e16fadd
@ -76,7 +76,7 @@ start_server {tags {"expire"}} {
|
|||||||
# This test is very likely to do a false positive if the
|
# This test is very likely to do a false positive if the
|
||||||
# server is under pressure, so if it does not work give it a few more
|
# server is under pressure, so if it does not work give it a few more
|
||||||
# chances.
|
# chances.
|
||||||
for {set j 0} {$j < 3} {incr j} {
|
for {set j 0} {$j < 10} {incr j} {
|
||||||
r del x
|
r del x
|
||||||
r setex x 1 somevalue
|
r setex x 1 somevalue
|
||||||
after 900
|
after 900
|
||||||
@ -85,6 +85,9 @@ start_server {tags {"expire"}} {
|
|||||||
set b [r get x]
|
set b [r get x]
|
||||||
if {$a eq {somevalue} && $b eq {}} break
|
if {$a eq {somevalue} && $b eq {}} break
|
||||||
}
|
}
|
||||||
|
if {$::verbose} {
|
||||||
|
puts "millisecond expire test attempts: $j"
|
||||||
|
}
|
||||||
list $a $b
|
list $a $b
|
||||||
} {somevalue {}}
|
} {somevalue {}}
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user