fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-03-30 22:31:03 +00:00
Code Issues Projects Releases Wiki Activity

speed-regression.tcl script: obtain test names dynamically.

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

17
utils/speed-regression.tcl
View File

@ -49,13 +49,18 @@ proc get-result-with-name {output name} {
return "n/a" return "n/a"
} }
proc combine-results {results} { proc get-test-names output {
set tests { set names {}
ping set get incr lpush lpop sadd spop foreach line [split $output "\n"] {
"lrange (first 100 elements)" lassign [split $line ","] key value
"lrange (first 600 elements)" set key [string tolower [string range $key 1 end-1]]
"mset (10 keys)" lappend names $key
} }
return $names
}
proc combine-results {results} {
set tests [get-test-names [lindex $results 1]]
foreach test $tests { foreach test $tests {
puts $test puts $test
foreach {branch output} $results { foreach {branch output} $results {