Redis test: wait more time for the server to start if it is running using valgrind.

diff --git a/tests/support/server.tcl b/tests/support/server.tcl
index f1849ef45e4e5107bf19749f5f858a616129d7b7..948b5356ed17e8011e15bcff2b5d09ffb43c0897 100644 (file)
--- a/tests/support/server.tcl
+++ b/tests/support/server.tcl
@@ -183,7 +183,7 @@ proc start_server {options {code undefined}} {
     
     # check that the server actually started
     # ugly but tries to be as fast as possible...
-    set retrynum 100
+    if {$::valgrind} {set retrynum 1000} else {set retrynum 100}
     set serverisup 0
 
     if {$::verbose} {