New tests related to scripts max execution time.

[redis.git] / utils / speed-regression.tcl

diff --git a/utils/speed-regression.tcl b/utils/speed-regression.tcl
index af8dd31debe607ccc9f83cf137ac6d9f4915d2c0..86a7d8d86afaba4d6dd34f93f878ead33b548199 100755 (executable)
--- a/utils/speed-regression.tcl
+++ b/utils/speed-regression.tcl
@@ -4,6 +4,9 @@
 
 source ../tests/support/redis.tcl
 set ::port 12123
 
 source ../tests/support/redis.tcl
 set ::port 12123

+set ::tests {PING,SET,GET,INCR,LPUSH,LPOP,SADD,SPOP,LRANGE_100,LRANGE_600,MSET}
+set ::datasize 16
+set ::requests 100000

 
 proc run-tests branches {
     set runs {}
 
 proc run-tests branches {
     set runs {}


@@ -35,7 +38,7 @@ proc run-tests branches {
         puts "  redis INFO shows version: [lindex [split $i] 0]"
         $r close
 
         puts "  redis INFO shows version: [lindex [split $i] 0]"
         $r close
 

-        set output [exec /tmp/redis-benchmark -n 100000 --csv -p $::port]
+        set output [exec /tmp/redis-benchmark -n $::requests -t $::tests -d $::datasize --csv -p $::port]

         lappend runs $b $output
         puts "  killing server..."
         catch {exec kill -9 [lindex $pids 0]}
         lappend runs $b $output
         puts "  killing server..."
         catch {exec kill -9 [lindex $pids 0]}


@@ -86,6 +89,8 @@ proc main {} {
         slowset 2.2.0 2.4.0 unstable slowset
     }
     set results [run-tests $branches]
         slowset 2.2.0 2.4.0 unstable slowset
     }
     set results [run-tests $branches]

+    puts "\n"
+    puts "# Test results: datasize=$::datasize requests=$::requests"

     puts [combine-results $results]
 }
 
     puts [combine-results $results]
 }
 


@@ -103,4 +108,23 @@ if {!$is_not_running} {
     exit 1
 }
 
     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
 main