summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorantirez <antirez@gmail.com>2011-11-07 16:52:55 +0100
committerantirez <antirez@gmail.com>2011-11-07 16:52:55 +0100
commit55758a5fab86390b37b584c3ee6b6d80bb98c320 (patch)
tree1b31734cff30651821b8a8fcce335c7a3dcebdef /utils
parent85bc9b06b747939dcf4151a9a820957d2b37168b (diff)
downloadredis-55758a5fab86390b37b584c3ee6b6d80bb98c320.tar.gz
speed-regression.tcl: move tests, data size, requests in global vars that will be changed via command line options.
Diffstat (limited to 'utils')
-rwxr-xr-xutils/speed-regression.tcl7
1 files changed, 6 insertions, 1 deletions
diff --git a/utils/speed-regression.tcl b/utils/speed-regression.tcl
index af8dd31de..c3bf51c9b 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]
}