From 93e7a130fc9594e41ccfc996b5eca7626ae5356a Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Thu, 24 Apr 2014 18:21:12 +0200
Subject: [PATCH] Test: fixed scripting.tcl test false positive.

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

diff --git a/tests/unit/scripting.tcl b/tests/unit/scripting.tcl
index a17892d30..ff3f00ab5 100644
--- a/tests/unit/scripting.tcl
+++ b/tests/unit/scripting.tcl
@@ -326,6 +326,7 @@ start_server {tags {"scripting"}} {
         catch {r ping} e
         assert_match {BUSY*} $e
         r script kill
+        after 200 ; # Give some time to Lua to call the hook again...
         assert_equal [r ping] "PONG"
     }