fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-04-18 15:12:13 +00:00
Code Issues Projects Releases Wiki Activity

APPEND tests

Browse Source
This commit is contained in:
antirez 2010-02-04 16:38:33 +01:00
parent 4b00bebd3d
commit 3c290b9b52
2 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
redis.tcl
View File

@ -20,7 +20,7 @@ array set ::redis::multibulkarg {}
# 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 smove zadd zrem zscore zincrby set setnx rpush lpush lset lrem sadd srem sismember echo getset smove zadd zrem zscore zincrby append
} { } {
set ::redis::bulkarg($redis_bulk_cmd) {} set ::redis::bulkarg($redis_bulk_cmd) {}
} }

23
test-redis.tcl
View File

@ -1600,6 +1600,29 @@ proc main {server port} {
list $v1 $v2 $v3 list $v1 $v2 $v3
} {QUEUED QUEUED {{a b c} PONG}} } {QUEUED QUEUED {{a b c} PONG}}
test {APPEND basics} {
list [$r append foo bar] [$r get foo] \
[$r append foo 100] [$r get foo]
} {3 bar 6 bar100}
test {APPEND fuzzing} {
set err {}
foreach type {binary alpha compr} {
set buf {}
$r del x
for {set i 0} {$i < 1000} {incr i} {
set bin [randstring 0 10 $type]
append buf $bin
$r append x $bin
}
if {$buf != [$r get x]} {
set err "Expected '$buf' found '[$r get x]'"
break
}
}
set _ $err
} {}
# Leave the user with a clean DB before to exit # Leave the user with a clean DB before to exit
test {FLUSHDB} { test {FLUSHDB} {
set aux {} set aux {}