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

LTRIM now returns +OK against non existing keys. More tests in test-redis.tcl

Browse Source
This commit is contained in:
antirez 2009-12-18 06:45:26 -05:00
parent c3a7dc32c9
commit ab9d4cb1e3
2 changed files with 29 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
redis.c
View File

@ -3631,7 +3631,7 @@ static void ltrimCommand(redisClient *c) {
o = lookupKeyWrite(c->db,c->argv[1]); o = lookupKeyWrite(c->db,c->argv[1]);
if (o == NULL) { if (o == NULL) {
addReply(c,shared.nokeyerr); addReply(c,shared.ok);
} else { } else {
if (o->type != REDIS_LIST) { if (o->type != REDIS_LIST) {
addReply(c,shared.wrongtypeerr); addReply(c,shared.wrongtypeerr);

28
test-redis.tcl
View File

@ -126,7 +126,19 @@ proc createComplexDataset {r ops} {
for {set j 0} {$j < $ops} {incr j} { for {set j 0} {$j < $ops} {incr j} {
set k [randomKey] set k [randomKey]
set v [randomValue] set v [randomValue]
randpath {
set d [expr {rand()}] set d [expr {rand()}]
} {
set d [expr {rand()}]
} {
set d [expr {rand()}]
} {
set d [expr {rand()}]
} {
set d [expr {rand()}]
} {
randpath {set d +inf} {set d -inf}
}
set t [$r type $k] set t [$r type $k]
if {$t eq {none}} { if {$t eq {none}} {
@ -308,6 +320,11 @@ proc main {server port} {
$r incrby novar 17179869184 $r incrby novar 17179869184
} {34359738368} } {34359738368}
test {INCR against key with spaces (no integer encoded)} {
$r set novar " 11 "
$r incr novar
} {12}
test {DECRBY over 32bit value with over 32bit increment, negative res} { test {DECRBY over 32bit value with over 32bit increment, negative res} {
$r set novar 17179869184 $r set novar 17179869184
$r decrby novar 17179869185 $r decrby novar 17179869185
@ -370,7 +387,8 @@ proc main {server port} {
append res [$r lindex mylist 0] append res [$r lindex mylist 0]
append res [$r lindex mylist 1] append res [$r lindex mylist 1]
append res [$r lindex mylist 2] append res [$r lindex mylist 2]
} {3bac} list $res [$r lindex mylist 100]
} {3bac {}}
test {DEL a list} { test {DEL a list} {
$r del mylist $r del mylist
@ -423,11 +441,19 @@ proc main {server port} {
format $err format $err
} {ERR*} } {ERR*}
test {LLEN against non existing key} {
$r llen not-a-key
} {0}
test {LINDEX against non-list value error} { test {LINDEX against non-list value error} {
catch {$r lindex mylist 0} err catch {$r lindex mylist 0} err
format $err format $err
} {ERR*} } {ERR*}
test {LINDEX against non existing key} {
$r lindex not-a-key 10
} {}
test {LPUSH against non-list value error} { test {LPUSH against non-list value error} {
catch {$r lpush mylist 0} err catch {$r lpush mylist 0} err
format $err format $err