From 55758a5fab86390b37b584c3ee6b6d80bb98c320 Mon Sep 17 00:00:00 2001 From: antirez Date: Mon, 7 Nov 2011 16:52:55 +0100 Subject: [PATCH] speed-regression.tcl: move tests, data size, requests in global vars that will be changed via command line options. --- utils/speed-regression.tcl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/utils/speed-regression.tcl b/utils/speed-regression.tcl index af8dd31d..c3bf51c9 100755 --- a/utils/speed-regression.tcl +++ b/utils/speed-regression.tcl @@ -4,6 +4,9 @@ source ../tests/support/redis.tcl set ::port 12123 +set ::tests {PING,SET,GET,INCR,LPUSH,LPOP,SADD,SPOP,LRANGE_100,LRANGE_600,MSET} +set ::datasize 16 +set ::requests 100000 proc run-tests branches { set runs {} @@ -35,7 +38,7 @@ proc run-tests branches { puts " redis INFO shows version: [lindex [split $i] 0]" $r close - set output [exec /tmp/redis-benchmark -n 100000 --csv -p $::port] + set output [exec /tmp/redis-benchmark -n $::requests -t $::tests -d $::datasize --csv -p $::port] lappend runs $b $output puts " killing server..." catch {exec kill -9 [lindex $pids 0]} @@ -86,6 +89,8 @@ proc main {} { slowset 2.2.0 2.4.0 unstable slowset } set results [run-tests $branches] + puts "\n" + puts "# Test results: datasize=$::datasize requests=$::requests" puts [combine-results $results] }