From d5a80182870140ff338c9ad9a35d3698f3911bc1 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Mon, 7 Nov 2011 17:18:50 +0100
Subject: [PATCH] speed-regression.tcl: command line options to select tests,
data size, and number of requests.
---
utils/speed-regression.tcl | 19 +++++++++++++++++++
1 file changed, 19 insertions(+)
diff --git a/utils/speed-regression.tcl b/utils/speed-regression.tcl
index c3bf51c9b..86a7d8d86 100755
--- a/utils/speed-regression.tcl
+++ b/utils/speed-regression.tcl
@@ -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