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
b9bb7ba2
Commit
b9bb7ba2
authored
Nov 20, 2009
by
antirez
Browse files
more RPOPLPUSH tests
parent
c08f1734
Changes
1
Show whitespace changes
Inline
Side-by-side
test-redis.tcl
View file @
b9bb7ba2
...
@@ -296,6 +296,33 @@ proc main {server port} {
...
@@ -296,6 +296,33 @@ proc main {server port} {
list $v1 $v2 $l1 $l2
list $v1 $v2 $l1 $l2
}
{
d c
{
a b
}
{
c d x
}}
}
{
d c
{
a b
}
{
c d x
}}
test
{
RPOPLPUSH against non existing key
}
{
$r del mylist
$r del newlist
set v1
[
$r
rpoplpush mylist newlist
]
list $v1
[
$r
exists mylist
]
[
$r
exists newlist
]
}
{{}
0 0
}
test
{
RPOPLPUSH against non list src key
}
{
$r del mylist
$r del newlist
$r set mylist x
catch
{
$r
rpoplpush mylist newlist
}
err
list
[
$r
type mylist
]
[
$r
exists newlist
]
[
string range $err 0 2
]
}
{
string 0 ERR
}
test
{
RPOPLPUSH against non list dst key
}
{
$r del mylist
$r del newlist
$r rpush mylist a
$r rpush mylist b
$r rpush mylist c
$r rpush mylist d
$r set newlist x
catch
{
$r
rpoplpush mylist newlist
}
err
list
[
$r
lrange mylist 0 -1
]
[
$r
type newlist
]
[
string range $err 0 2
]
}
{{
a b c d
}
string ERR
}
test
{
RENAME basic usage
}
{
test
{
RENAME basic usage
}
{
$r set mykey hello
$r set mykey hello
$r rename mykey mykey1
$r rename mykey mykey1
...
...
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