Permalink
Browse files

Make an EXEC test more latency proof.

  • Loading branch information...
1 parent 2f62c96 commit 925090f47628d1916b91baefd4e85633eb31b91f @antirez committed Nov 29, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 tests/unit/multi.tcl
View
@@ -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}

0 comments on commit 925090f

Please sign in to comment.