mirrors/valkey
1
0
Fork 0
mirror of http://github.com/valkey-io/valkey synced 2024-11-22 00:52:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

speed-regression.tcl script: killing previously tested instance fixed. Don't run if there is already an instance running in the same port.

Browse Source
This commit is contained in:
antirez 2011-11-07 16:00:15 +01:00
parent 84c6bdfcd0
commit 85bc9b06b7
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
utils/speed-regression.tcl
View File

@ -2,6 +2,9 @@
# Copyright (C) 2011 Salvatore Sanfilippo # Copyright (C) 2011 Salvatore Sanfilippo
# Released under the BSD license like Redis itself # Released under the BSD license like Redis itself
source ../tests/support/redis.tcl
set ::port 12123
proc run-tests branches { proc run-tests branches {
set runs {} set runs {}
set branch_id 0 set branch_id 0
@ -22,16 +25,21 @@ proc run-tests branches {
# Start the Redis server # Start the Redis server
puts " starting the server... [exec ./redis-server -v]" 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 after 1000
puts " running the benchmark" 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 lappend runs $b $output
puts " killing server..." puts " killing server..."
catch { catch {exec kill -9 [lindex $pids 0]}
exec kill -9 [lindex $pids 0] catch {exec kill -9 [lindex $pids 1]}
exec kill -9 [lindex $pids 1]
}
incr branch_id incr branch_id
} }
return $runs return $runs
@ -87,4 +95,12 @@ if {![file exists speed-regression.tcl]} {
puts "Example: cd utils; ./speed-regression.tcl" puts "Example: cd utils; ./speed-regression.tcl"
exit 1 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 main