command line option in test suite to activate valgrind mode

diff --git a/tests/support/server.tcl b/tests/support/server.tcl
index 1507088e002e68d4d70e1627177a1a3b529b8f89..144bc2f525ffd05671935045baf7e0278915b919 100644 (file)
--- a/tests/support/server.tcl
+++ b/tests/support/server.tcl
@@ -171,7 +171,7 @@ proc start_server {options {code undefined}} {
     set stderr [format "%s/%s" [dict get $config "dir"] "stderr"]
 
     if {$::valgrind} {
     set stderr [format "%s/%s" [dict get $config "dir"] "stderr"]
 
     if {$::valgrind} {

-        exec valgrind src/redis-server $config_file > $stdout 2> $stderr &
+        exec valgrind --suppressions=src/valgrind.sup src/redis-server $config_file > $stdout 2> $stderr &

     } else {
         exec src/redis-server $config_file > $stdout 2> $stderr &
     }
     } else {
         exec src/redis-server $config_file > $stdout 2> $stderr &
     }

diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index 4c207f643cf8abfc23b3817754b85fc73d732378..82c4f91a5a4c9777ba199298a43d8349c8bf0b10 100644 (file)
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@@ -167,6 +167,8 @@ for {set j 0} {$j < [llength $argv]} {incr j} {
             }
         }
         incr j
             }
         }
         incr j

+    } elseif {$opt eq {--valgrind}} {
+        set ::valgrind 1

     } elseif {$opt eq {--file}} {
         set ::file $arg
         incr j
     } elseif {$opt eq {--file}} {
         set ::file $arg
         incr j