From 4ea93ad3accd39bf950acb318d65f6eef755c176 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Thu, 27 May 2010 16:08:44 +0200
Subject: [PATCH] new multi/exec tests

---
 tests/unit/other.tcl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/tests/unit/other.tcl b/tests/unit/other.tcl
index 647239488..4d42c4360 100644
--- a/tests/unit/other.tcl
+++ b/tests/unit/other.tcl
@@ -131,6 +131,22 @@ start_server default.conf {} {
         list $v1 $v2 $v3
     } {QUEUED OK {a b c}}
 
+    test {Nested MULTI are not allowed} {
+        set err {}
+        r multi
+        catch {[r multi]} err
+        r exec
+        set _ $err
+    } {*ERR MULTI*}
+
+    test {WATCH inside MULTI is not allowed} {
+        set err {}
+        r multi
+        catch {[r watch x]} err
+        r exec
+        set _ $err
+    } {*ERR WATCH*}
+
     test {APPEND basics} {
         list [r append foo bar] [r get foo] \
              [r append foo 100] [r get foo]
-- 
GitLab