tests: add --coverage-testing option to complete-run.pl

This commit is contained in:
Michael Stapelberg 2011-05-08 20:08:35 +02:00
parent 78264958c0
commit 098fc06942
1 changed files with 27 additions and 1 deletions

View File

@ -11,6 +11,9 @@ use Proc::Background;
use TAP::Harness;
use TAP::Parser::Aggregator;
use File::Basename qw(basename);
use AnyEvent::I3 qw(:all);
use Try::Tiny;
use Getopt::Long;
# reads in a whole file
sub slurp {
@ -19,6 +22,12 @@ sub slurp {
<$fh>;
}
my $coverage_testing = 0;
my $result = GetOptions(
"coverage-testing" => \$coverage_testing
);
my $i3cmd = "export DISPLAY=:0; exec " . abs_path("../i3") . " -V -d all --disable-signalhandler -c " . abs_path("../i3.config");
# 1: get a list of all testcases
@ -51,7 +60,24 @@ for my $t (@testfiles) {
my $process = Proc::Background->new($cmd) unless $dont_start;
say "testing $t with logfile $logpath";
$harness->aggregate_tests($aggregator, [ $t ]);
kill(9, $process->pid) or die "could not kill i3" unless $dont_start;
# Dont bother killing i3 when we havent started it
next if $dont_start;
# When measuring code coverage, try to exit i3 cleanly (otherwise, .gcda
# files are not written) and fallback to killing it
if ($coverage_testing) {
my $exited = 0;
try {
say "Exiting i3 cleanly...";
i3("/tmp/nestedcons")->command('exit')->recv;
$exited = 1;
};
next if $exited;
}
say "Killing i3";
kill(9, $process->pid) or die "could not kill i3";
}
$aggregator->stop();