From: antirez <antirez@gmail.com>
Date: Mon, 7 Nov 2011 14:35:01 +0000 (+0100)
Subject: speed-regression.tcl script: obtain test names dynamically.
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/84c6bdfcd0cd12f741bbb117648d057c26c85b89

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

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 {