Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
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} {
$r lrange mylist 0 -1
}
{
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
}
{
$r del mylist
foreach x
{
99 98 97 96 95
}
{
$r rpush mylist $x
}
$r lset mylist 1 foo
$r lset mylist -1 bar
$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