Make an EXEC test more latency proof.

diff --git a/tests/unit/multi.tcl b/tests/unit/multi.tcl
index 6f44767b502f90857dd5ddbd28ce9e4f259e2f20..f7a1f6468ece79d2939c4abc7e9412c7eba92ec2 100644 (file)
--- 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
         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
         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
         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}
         $rd close
         list [r exists foo1] [r exists foo2]
     } {0 0}