fixed a minor memory leak in configuration file parsing

[redis.git] / test-redis.tcl

diff --git a/test-redis.tcl b/test-redis.tcl
index 2d4b9dcbccf021810b0982abab63c7a3abd5892a..c0a025af2aecde808a002a6d54f8b4eeb33a3801 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -285,7 +285,7 @@ proc main {server port} {
         array set payload {}
         for {set j 0} {$j < 100} {incr j} {
             set size [expr 1+[randomInt 100000]]
-            set buf [string repeat "abcd" $size]
+            set buf [string repeat "pl-$j" $size]
             set payload($j) $buf
             $r set bigpayload_$j $buf
         }
@@ -293,7 +293,7 @@ proc main {server port} {
             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'"
+                set err "Values differ: I set '$payload($index)' but I read back '$buf'"
                 break
             }
         }
@@ -317,9 +317,9 @@ proc main {server port} {
         set _ $err
     } {}
 
-    test {DBSIZE should be 10001 now} {
+    test {DBSIZE should be 10101 now} {
         $r dbsize
-    } {10001}
+    } {10101}
 
     test {INCR against non existing key} {
         set res {}