From: antirez <antirez@gmail.com>
Date: Mon, 7 Nov 2011 16:18:50 +0000 (+0100)
Subject: speed-regression.tcl: command line options to select tests, data size, and number... 
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/d5a80182870140ff338c9ad9a35d3698f3911bc1?ds=inline

speed-regression.tcl: command line options to select tests, data size, and number of requests.
---

diff --git a/utils/speed-regression.tcl b/utils/speed-regression.tcl
index c3bf51c9..86a7d8d8 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