Changeset 4275

Timestamp:

12/30/06 07:04:06 (6 years ago)

Author:

mmh

Message:

Run regression tests under valgrind, if it is available.

Files:

• lm-sensors/trunk/lib/test/test-scanner.pl (modified) (1 diff)

lm-sensors/trunk/lib/test/test-scanner.pl

@@ -48 +48 @@
 plan tests => ($#scenarios + 1) * 3;
 
-$test = Test::Cmd->new(prog => 'test-scanner', workdir => '');
+chomp(my $valgrind = `which valgrind 2>/dev/null`);
+
+if ($valgrind) {
+        $test = Test::Cmd->new(prog => "$valgrind --tool=memcheck --show-reachable=yes --leak-check=full --quiet ./test-scanner", workdir => '');
+} else {
+        diag("Couldn't find valgrind(1), running tests without it...");
+        $test = Test::Cmd->new(prog => "test-scanner", workdir => '');
+}
 
 foreach $scenario (@scenarios) {