Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
9c00f078
Commit
9c00f078
authored
Nov 17, 2012
by
antirez
Browse files
Test: MULTI/EXEC tests moved into multi.tcl.
parent
3d139127
Changes
3
Hide whitespace changes
Inline
Side-by-side
tests/test_helper.tcl
View file @
9c00f078
...
@@ -24,7 +24,7 @@ set ::all_tests {
...
@@ -24,7 +24,7 @@ set ::all_tests {
unit/sort
unit/sort
unit/expire
unit/expire
unit/other
unit/other
unit/
cas
unit/
multi
unit/quit
unit/quit
unit/aofrw
unit/aofrw
integration/replication
integration/replication
...
...
tests/unit/
cas
.tcl
→
tests/unit/
multi
.tcl
View file @
9c00f078
start_server
{
tags
{
"cas"
}}
{
start_server
{
tags
{
"multi"
}}
{
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
{
EXEC works on WATCHed key not modified
}
{
test
{
EXEC works on WATCHed key not modified
}
{
r watch x y z
r watch x y z
r watch k
r watch k
...
...
tests/unit/other.tcl
View file @
9c00f078
...
@@ -193,53 +193,6 @@ start_server {tags {"other"}} {
...
@@ -193,53 +193,6 @@ start_server {tags {"other"}} {
}
{
1
}
}
{
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
}
{
test
{
APPEND basics
}
{
list
[
r append foo bar
]
[
r get foo
]
\
list
[
r append foo bar
]
[
r get foo
]
\
[
r append foo 100
]
[
r get foo
]
[
r append foo 100
]
[
r get foo
]
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment