From: antirez <antirez@gmail.com>
Date: Wed, 7 Dec 2011 11:44:27 +0000 (+0100)
Subject: EXPIRE tests more tolerant to random latency while the test is running.
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/85b69afedea1c31ded63495983eb168a7799bfcd?ds=inline

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

diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl
index b88ff821..82876ddd 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 {} &&