mirrors/valkey
1
0
Fork 0
mirror of http://github.com/valkey-io/valkey synced 2024-11-21 16:46:15 +00:00
Code Issues Packages 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"
}
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 {