diff options
Diffstat (limited to 'tests/unit/other.tcl')
| -rw-r--r-- | tests/unit/other.tcl | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/tests/unit/other.tcl b/tests/unit/other.tcl index 14fd73ac7..a53f3f5c8 100644 --- a/tests/unit/other.tcl +++ b/tests/unit/other.tcl @@ -193,53 +193,6 @@ start_server {tags {"other"}} { } {1} } - test {MUTLI / EXEC basics} { - r del mylist - r rpush mylist a - r rpush mylist b - r rpush mylist c - r multi - set v1 [r lrange mylist 0 -1] - set v2 [r ping] - set v3 [r exec] - list $v1 $v2 $v3 - } {QUEUED QUEUED {{a b c} PONG}} - - test {DISCARD} { - r del mylist - r rpush mylist a - r rpush mylist b - r rpush mylist c - r multi - set v1 [r del mylist] - set v2 [r discard] - set v3 [r lrange mylist 0 -1] - 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 {MULTI where commands alter argc/argv} { - r sadd myset a - r multi - r spop myset - list [r exec] [r exists myset] - } {a 0} - - 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] |