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

GETSET tests

Browse Source
This commit is contained in:
antirez 2009-04-28 16:21:16 +02:00
parent a431eb74ba
commit 7ac6d4613f
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
client-libraries/tcl/redis.tcl
View File

@ -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 set setnx rpush lpush lset lrem sadd srem sismember echo getset
} { } {
set ::redis::bulkarg($redis_bulk_cmd) {} set ::redis::bulkarg($redis_bulk_cmd) {}
} }

9
test-redis.tcl
View File

@ -646,6 +646,15 @@ proc main {server port} {
$r randomkey $r randomkey
} {} } {}
test {GETSET (set new value)} {
list [$r getset foo xyz] [$r get foo]
} {{} xyz}
test {GETSET (replace old value)} {
$r set foo bar
list [$r getset foo xyz] [$r get foo]
} {bar xyz}
# 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