diff --git a/tests/unit/multi.tcl b/tests/unit/multi.tcl index 55f18bec80b7f101ec980f32804df2cfa41ce8fe..0c70fbde7e9ad6c78b5f6075a47ee97ddc9534a2 100644 --- a/tests/unit/multi.tcl +++ b/tests/unit/multi.tcl @@ -363,6 +363,9 @@ start_server {tags {"multi"}} { set xx [r get xx] # make sure that either the whole transcation passed or none of it (we actually expect none) assert { $xx == 1 || $xx == 3} + # Discard the transaction since EXEC likely got -BUSY error + # so the client is still in MULTI state. + catch { $rd2 discard ;$rd2 read } e # check that the connection is no longer in multi state $rd2 ping asdf set pong [$rd2 read]