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
ab9d4cb1
Commit
ab9d4cb1
authored
Dec 18, 2009
by
antirez
Browse files
LTRIM now returns +OK against non existing keys. More tests in test-redis.tcl
parent
c3a7dc32
Changes
2
Hide whitespace changes
Inline
Side-by-side
redis.c
View file @
ab9d4cb1
...
@@ -3631,7 +3631,7 @@ static void ltrimCommand(redisClient *c) {
...
@@ -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
.
n
ok
eyerr
);
addReply
(
c
,
shared
.
ok
);
}
else
{
}
else
{
if
(
o
->
type
!=
REDIS_LIST
)
{
if
(
o
->
type
!=
REDIS_LIST
)
{
addReply
(
c
,
shared
.
wrongtypeerr
);
addReply
(
c
,
shared
.
wrongtypeerr
);
...
...
test-redis.tcl
View file @
ab9d4cb1
...
@@ -126,7 +126,19 @@ proc createComplexDataset {r ops} {
...
@@ -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
]
set d
[
expr
{
rand
()}]
randpath
{
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} {
...
@@ -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} {
...
@@ -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} {
...
@@ -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
...
...
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