Permalink
Browse files

speed-regression.tcl: command line options to select tests, data size…

…, and number of requests.
  • Loading branch information...
antirez committed Nov 7, 2011
1 parent 55758a5 commit d5a80182870140ff338c9ad9a35d3698f3911bc1
Showing with 19 additions and 0 deletions.
  1. +19 −0 utils/speed-regression.tcl
View
@@ -108,4 +108,23 @@ if {!$is_not_running} {
exit 1
}
+# parse arguments
+for {set j 0} {$j < [llength $argv]} {incr j} {
+ set opt [lindex $argv $j]
+ set arg [lindex $argv [expr $j+1]]
+ if {$opt eq {--tests}} {
+ set ::tests $arg
+ incr j
+ } elseif {$opt eq {--datasize}} {
+ set ::datasize $arg
+ incr j
+ } elseif {$opt eq {--requests}} {
+ set ::requests $arg
+ incr j
+ } else {
+ puts "Wrong argument: $opt"
+ exit 1
+ }
+}
+
main

0 comments on commit d5a8018

Please sign in to comment.