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
c632369b
Commit
c632369b
authored
Dec 18, 2009
by
antirez
Browse files
LTRIM stress testing test added
parent
ab9d4cb1
Changes
1
Show whitespace changes
Inline
Side-by-side
test-redis.tcl
View file @
c632369b
...
@@ -693,7 +693,36 @@ proc main {server port} {
...
@@ -693,7 +693,36 @@ proc main {server port} {
$r lrange mylist 0 -1
$r lrange mylist 0 -1
}
{
99 98 97 96 95
}
}
{
99 98 97 96 95
}
test
{
LTRIM stress testing
}
{
set mylist
{}
set err
{}
for
{
set i 0
}
{
$i
< 20
}
{
incr i
}
{
lappend mylist $i
}
for
{
set j 0
}
{
$j
< 100
}
{
incr j
}
{
# Fill the list
$r del mylist
for
{
set i 0
}
{
$i
< 20
}
{
incr i
}
{
$r rpush mylist $i
}
# Trim at random
set a
[
randomInt 20
]
set b
[
randomInt 20
]
$r ltrim mylist $a $b
if
{[
$r
lrange mylist 0 -1
]
ne
[
lrange $mylist $a $b
]}
{
set err
"
[
$r
lrange mylist 0 -1
]
!=
[
lrange $mylist $a $b
]
"
break
}
}
set _ $err
}
{}
test
{
LSET
}
{
test
{
LSET
}
{
$r del mylist
foreach x
{
99 98 97 96 95
}
{
$r rpush mylist $x
}
$r lset mylist 1 foo
$r lset mylist 1 foo
$r lset mylist -1 bar
$r lset mylist -1 bar
$r lrange mylist 0 -1
$r lrange mylist 0 -1
...
...
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