From 925090f47628d1916b91baefd4e85633eb31b91f Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Thu, 29 Nov 2012 16:12:14 +0100
Subject: [PATCH] Make an EXEC test more latency proof.

---
 tests/unit/multi.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/unit/multi.tcl b/tests/unit/multi.tcl
index 6f44767b5..f7a1f6468 100644
--- a/tests/unit/multi.tcl
+++ b/tests/unit/multi.tcl
@@ -63,13 +63,13 @@ start_server {tags {"multi"}} {
         r multi
         r set foo1 bar1
         $rd config set maxmemory 1
+        assert  {[$rd read] eq {OK}}
         catch {r lpush mylist myvalue}
         $rd config set maxmemory 0
+        assert  {[$rd read] eq {OK}}
         r set foo2 bar2
         catch {r exec} e
         assert_match {EXECABORT*} $e
-        assert  {[$rd read] eq {OK}}
-        assert  {[$rd read] eq {OK}}
         $rd close
         list [r exists foo1] [r exists foo2]
     } {0 0}