diff options
author | antirez <antirez@gmail.com> | 2011-11-07 16:00:15 +0100 |
---|---|---|
committer | antirez <antirez@gmail.com> | 2011-11-07 16:00:15 +0100 |
commit | 85bc9b06b747939dcf4151a9a820957d2b37168b (patch) | |
tree | 84228538608c2e9259d368e8385104877499ea4b /utils | |
parent | 84c6bdfcd0cd12f741bbb117648d057c26c85b89 (diff) | |
download | redis-85bc9b06b747939dcf4151a9a820957d2b37168b.tar.gz |
speed-regression.tcl script: killing previously tested instance fixed. Don't run if there is already an instance running in the same port.
Diffstat (limited to 'utils')
-rwxr-xr-x | utils/speed-regression.tcl | 28 |
1 files changed, 22 insertions, 6 deletions
diff --git a/utils/speed-regression.tcl b/utils/speed-regression.tcl index a37f60284..af8dd31de 100755 --- a/utils/speed-regression.tcl +++ b/utils/speed-regression.tcl @@ -2,6 +2,9 @@ # Copyright (C) 2011 Salvatore Sanfilippo # Released under the BSD license like Redis itself +source ../tests/support/redis.tcl +set ::port 12123 + proc run-tests branches { set runs {} set branch_id 0 @@ -22,16 +25,21 @@ proc run-tests branches { # Start the Redis server puts " starting the server... [exec ./redis-server -v]" - set pids [exec echo "port 12123\nloglevel warning\n" | ./redis-server - > /dev/null 2> /dev/null &] + set pids [exec echo "port $::port\nloglevel warning\n" | ./redis-server - > /dev/null 2> /dev/null &] + puts " pids: $pids" after 1000 puts " running the benchmark" - set output [exec /tmp/redis-benchmark -n 100000 --csv -p 12123] + + set r [redis 127.0.0.1 $::port] + set i [$r info] + puts " redis INFO shows version: [lindex [split $i] 0]" + $r close + + set output [exec /tmp/redis-benchmark -n 100000 --csv -p $::port] lappend runs $b $output puts " killing server..." - catch { - exec kill -9 [lindex $pids 0] - exec kill -9 [lindex $pids 1] - } + catch {exec kill -9 [lindex $pids 0]} + catch {exec kill -9 [lindex $pids 1]} incr branch_id } return $runs @@ -87,4 +95,12 @@ if {![file exists speed-regression.tcl]} { puts "Example: cd utils; ./speed-regression.tcl" exit 1 } + +# Make sure there is not already a server runnign on port 12123 +set is_not_running [catch {set r [redis 127.0.0.1 $::port]}] +if {!$is_not_running} { + puts "Sorry, you have a running server on port $::port" + exit 1 +} + main |