From d50292d2cc255a85cd5a8f7f34d2411206a1d449 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Fri, 15 Jul 2011 18:28:24 +0200
Subject: [PATCH] make a scripting test more valgrind friendly

---
 tests/unit/scripting.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/unit/scripting.tcl b/tests/unit/scripting.tcl
index 1735b264e..15ea0d5ae 100644
--- a/tests/unit/scripting.tcl
+++ b/tests/unit/scripting.tcl
@@ -141,7 +141,7 @@ start_server {tags {"scripting repl"}} {
             r evalsha ae3477e27be955de7e1bc9adfdca626b478d3cb2 0
         } {2}
 
-        after 100
+        if {$::valgrind} {after 2000} else {after 100}
 
         test {If EVALSHA was replicated as EVAL the slave should be ok} {
             r -1 get x