diff options
author | antirez <antirez@gmail.com> | 2010-01-15 09:37:26 -0500 |
---|---|---|
committer | antirez <antirez@gmail.com> | 2010-01-15 09:37:26 -0500 |
commit | 7276646263e4ef39bf20ee0ee04fec5f1295eaf5 (patch) | |
tree | cd6f4e71a92123fc41f9e0464c804fdda1a75a11 /test-redis.tcl | |
parent | 4ad37480f3e9afb42d5957170b57f555171fb01c (diff) | |
download | redis-7276646263e4ef39bf20ee0ee04fec5f1295eaf5.tar.gz |
new test added
Diffstat (limited to 'test-redis.tcl')
-rw-r--r-- | test-redis.tcl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/test-redis.tcl b/test-redis.tcl index 7d529966c..2d4b9dcbc 100644 --- a/test-redis.tcl +++ b/test-redis.tcl @@ -280,6 +280,27 @@ proc main {server port} { $r get foo } [string repeat "abcd" 1000000] + test {Very big payload random access} { + set err {} + array set payload {} + for {set j 0} {$j < 100} {incr j} { + set size [expr 1+[randomInt 100000]] + set buf [string repeat "abcd" $size] + set payload($j) $buf + $r set bigpayload_$j $buf + } + for {set j 0} {$j < 1000} {incr j} { + set index [randomInt 100] + set buf [$r get bigpayload_$index] + if {$buf != $payload($index)} { + set err "Values differ: I set '$buf' but I read back '$buf2'" + break + } + } + unset payload + set _ $err + } {} + test {SET 10000 numeric keys and access all them in reverse order} { set err {} for {set x 0} {$x < 10000} {incr x} { |