Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
84c6bdfc
Commit
84c6bdfc
authored
Nov 07, 2011
by
antirez
Browse files
speed-regression.tcl script: obtain test names dynamically.
parent
d9747b49
Changes
1
Hide whitespace changes
Inline
Side-by-side
utils/speed-regression.tcl
View file @
84c6bdfc
...
@@ -49,13 +49,18 @@ proc get-result-with-name {output name} {
...
@@ -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
test
s
{
set
name
s
{
}
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
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment