From c07e16fadd2de67be99b627b07310f7015c1085a Mon Sep 17 00:00:00 2001
From: Oran Agra <oran@redislabs.com>
Date: Tue, 13 Apr 2021 17:35:10 +0300
Subject: [PATCH] Add more attempts to a timing sensitive test (#8770)

---
 tests/unit/expire.tcl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl
index 900856848..459503adc 100644
--- a/tests/unit/expire.tcl
+++ b/tests/unit/expire.tcl
@@ -76,7 +76,7 @@ start_server {tags {"expire"}} {
         # 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
         # chances.
-        for {set j 0} {$j < 3} {incr j} {
+        for {set j 0} {$j < 10} {incr j} {
             r del x
             r setex x 1 somevalue
             after 900
@@ -85,6 +85,9 @@ start_server {tags {"expire"}} {
             set b [r get x]
             if {$a eq {somevalue} && $b eq {}} break
         }
+        if {$::verbose} {
+            puts "millisecond expire test attempts: $j"
+        }
         list $a $b
     } {somevalue {}}