fuzz stresser implemented in redis-test

diff --git a/Changelog b/Changelog
index ee11a10a4d5dfda274f816302f8ef80cc314256f..8014317c2a9e73a456a2840595f85bfdf3505afd 100644 (file)
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,9 @@
+2009-04-29 fixed for HT resize check 32bits overflow
+2009-04-29 Check for fork() failure in background saving
+2009-04-29 fix for the LZF off-by-one bug added
+2009-04-28 print bytes used at exit on SHUTDOWN
+2009-04-28 SMOVE test added
+2009-04-28 SMOVE command implemented

 2009-04-28 less CPU usage in command parsing, case insensitive config directives
 2009-04-28 GETSET command doc added
 2009-04-28 GETSET tests
 2009-04-28 less CPU usage in command parsing, case insensitive config directives
 2009-04-28 GETSET command doc added
 2009-04-28 GETSET tests

diff --git a/test-redis.tcl b/test-redis.tcl
index 449e1d87b35a4664db634a21e277c7757aafc9c3..6eb1468cfb937fbe15a2285c55cf832168c6f8e9 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -18,6 +18,26 @@ proc test {name code okpattern} {
     }
 }
 
     }
 }
 

+proc randstring {min max {type binary}} {
+    set len [expr {$min+int(rand()*($max-$min+1))}]
+    set output {}
+    if {$type eq {binary}} {
+        set minval 0
+        set maxval 255
+    } elseif {$type eq {alpha}} {
+        set minval 48
+        set maxval 122
+    } elseif {$type eq {compr}} {
+        set minval 48
+        set maxval 52
+    }
+    while {$len} {
+        append output [format "%c" [expr {$minval+int(rand()*($maxval-$minval+1))}]]
+        incr len -1
+    }
+    return $output
+}
+

 proc main {server port} {
     set r [redis $server $port]
     set err ""
 proc main {server port} {
     set r [redis $server $port]
     set err ""


@@ -690,6 +710,22 @@ proc main {server port} {
         format $err
     } {ERR*}
 
         format $err
     } {ERR*}
 

+    foreach fuzztype {binary alpha compr} {
+        test "FUZZ stresser with data model $fuzztype" {
+            set err 0
+            for {set i 0} {$i < 1000} {incr i} {
+                set fuzz [randstring 0 512 $fuzztype]
+                $r set foo $fuzz
+                set got [$r get foo]
+                if {$got ne $fuzz} {
+                    incr err
+                    break
+                }
+            }
+            format $err
+        } {0}
+    }
+

     # Leave the user with a clean DB before to exit
     test {FLUSHALL} {
         $r flushall
     # Leave the user with a clean DB before to exit
     test {FLUSHALL} {
         $r flushall