From 84c6bdfcd0cd12f741bbb117648d057c26c85b89 Mon Sep 17 00:00:00 2001 From: antirez Date: Mon, 7 Nov 2011 15:35:01 +0100 Subject: [PATCH] speed-regression.tcl script: obtain test names dynamically. --- utils/speed-regression.tcl | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/utils/speed-regression.tcl b/utils/speed-regression.tcl index 503a0799..a37f6028 100755 --- a/utils/speed-regression.tcl +++ b/utils/speed-regression.tcl @@ -49,13 +49,18 @@ proc get-result-with-name {output name} { return "n/a" } -proc combine-results {results} { - set tests { - ping set get incr lpush lpop sadd spop - "lrange (first 100 elements)" - "lrange (first 600 elements)" - "mset (10 keys)" +proc get-test-names output { + set names {} + foreach line [split $output "\n"] { + lassign [split $line ","] key value + set key [string tolower [string range $key 1 end-1]] + lappend names $key } + return $names +} + +proc combine-results {results} { + set tests [get-test-names [lindex $results 1]] foreach test $tests { puts $test foreach {branch output} $results {