complete-run: implement --valgrind

This commit is contained in:
Michael Stapelberg
2011-11-07 20:53:49 +00:00
parent 389fdcf79f
commit 1c0d69d4e6
3 changed files with 12 additions and 1 deletions

View File

@ -50,10 +50,12 @@ sub slurp {
}
my $coverage_testing = 0;
my $valgrind = 0;
my @displays = ();
my $result = GetOptions(
"coverage-testing" => \$coverage_testing,
"valgrind" => \$valgrind,
"display=s" => \@displays,
);
@ -143,6 +145,7 @@ sub take_job {
configfile => $tmpfile,
outdir => $outdir,
logpath => $logpath,
valgrind => $valgrind,
cv => $activate_cv
);
@ -190,7 +193,7 @@ sub take_job {
my $output;
open(my $spool, '>', \$output);
my $parser = TAP::Parser->new({
exec => [ 'sh', '-c', qq|DISPLAY=$display LOGPATH="$logpath" OUTDIR="$outdir" /usr/bin/perl -Ilib $test| ],
exec => [ 'sh', '-c', qq|DISPLAY=$display LOGPATH="$logpath" OUTDIR="$outdir" VALGRIND=$valgrind /usr/bin/perl -Ilib $test| ],
spool => $spool,
merge => 1,
});