a few more stuff in INFO about VM. Test #11 changed a bit in order to be less lame

This commit is contained in:
antirez
2010-01-12 09:57:00 -05:00
parent c953f24bce
commit 25fd2cb284
3 changed files with 18 additions and 5 deletions

View File

@ -281,14 +281,19 @@ proc main {server port} {
} [string repeat "abcd" 1000000]
test {SET 10000 numeric keys and access all them in reverse order} {
set err {}
for {set x 0} {$x < 10000} {incr x} {
$r set $x $x
}
set sum 0
for {set x 9999} {$x >= 0} {incr x -1} {
incr sum [$r get $x]
set val [$r get $x]
if {$val ne $x} {
set err "Eleemnt at position $x is $val instead of $x"
break
}
}
format $sum
set _ $err
} {49995000}
test {DBSIZE should be 10001 now} {