fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-03-18 16:40:50 +00:00
Code Issues Projects Releases Wiki Activity

more RPOPLPUSH tests

Browse Source
This commit is contained in:
antirez 2009-11-20 14:27:09 +01:00
parent c08f173487
commit b9bb7ba220
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
test-redis.tcl
View File

@ -296,6 +296,33 @@ proc main {server port} {
list $v1 $v2 $l1 $l2
} {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} {
$r set mykey hello
$r rename mykey mykey1