fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-03-18 16:40:50 +00:00
Code Issues Projects Releases Wiki Activity

LTRIM stress testing test added

Browse Source
This commit is contained in:
antirez 2009-12-18 06:56:51 -05:00
parent ab9d4cb1e3
commit c632369b52
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
test-redis.tcl
View File

@ -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