complete-run: implement --valgrind
This commit is contained in:
@ -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,
|
||||
});
|
||||
|
Reference in New Issue
Block a user