Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
0eeb2a4b
Commit
0eeb2a4b
authored
Apr 28, 2009
by
antirez
Browse files
SMOVE test added
parent
a4460ef4
Changes
2
Show whitespace changes
Inline
Side-by-side
client-libraries/tcl/redis.tcl
View file @
0eeb2a4b
...
@@ -19,7 +19,7 @@ array set ::redis::bulkarg {}
...
@@ -19,7 +19,7 @@ array set ::redis::bulkarg {}
# Flag commands requiring last argument as a bulk write operation
# Flag commands requiring last argument as a bulk write operation
foreach redis_bulk_cmd
{
foreach redis_bulk_cmd
{
set setnx rpush lpush lset lrem sadd srem sismember echo getset
set setnx rpush lpush lset lrem sadd srem sismember echo getset
smove
}
{
}
{
set ::redis::bulkarg
(
$redis
_bulk_cmd
)
{}
set ::redis::bulkarg
(
$redis
_bulk_cmd
)
{}
}
}
...
...
test-redis.tcl
View file @
0eeb2a4b
...
@@ -655,6 +655,41 @@ proc main {server port} {
...
@@ -655,6 +655,41 @@ proc main {server port} {
list
[
$r
getset foo xyz
]
[
$r
get foo
]
list
[
$r
getset foo xyz
]
[
$r
get foo
]
}
{
bar xyz
}
}
{
bar xyz
}
test
{
SMOVE basics
}
{
$r sadd myset1 a
$r sadd myset1 b
$r sadd myset1 c
$r sadd myset2 x
$r sadd myset2 y
$r sadd myset2 z
$r smove myset1 myset2 a
list
[
lsort
[
$r
smembers myset2
]]
[
lsort
[
$r
smembers myset1
]]
}
{{
a x y z
}
{
b c
}}
test
{
SMOVE non existing key
}
{
list
[
$r
smove myset1 myset2 foo
]
[
lsort
[
$r
smembers myset2
]]
[
lsort
[
$r
smembers myset1
]]
}
{
0
{
a x y z
}
{
b c
}}
test
{
SMOVE non existing src set
}
{
list
[
$r
smove noset myset2 foo
]
[
lsort
[
$r
smembers myset2
]]
}
{
0
{
a x y z
}}
test
{
SMOVE non existing dst set
}
{
list
[
$r
smove myset2 myset3 y
]
[
lsort
[
$r
smembers myset2
]]
[
lsort
[
$r
smembers myset3
]]
}
{
1
{
a x z
}
y
}
test
{
SMOVE wrong src key type
}
{
$r set x 10
catch
{
$r
smove x myset2 foo
}
err
format $err
}
{
ERR*
}
test
{
SMOVE wrong dst key type
}
{
$r set x 10
catch
{
$r
smove myset2 x foo
}
err
format $err
}
{
ERR*
}
# Leave the user with a clean DB before to exit
# Leave the user with a clean DB before to exit
test
{
FLUSHALL
}
{
test
{
FLUSHALL
}
{
$r flushall
$r flushall
...
...
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