scip/pcp
1
0
Fork 0
mirror of https://codeberg.org/scip/pcp.git synced 2025-12-16 19:40:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

abort unit tests if a segfault ocurred and print a backtrace in that case

Browse Source
This commit is contained in:
TLINDEN
2013-11-09 10:51:44 +01:00
parent 4f8e40ac03
commit bccdaf4ff2
2 changed files with 33 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
tests/.gdb Normal file
View File

@@ -0,0 +1 @@
bt

43
tests/unittests.pl
View File

@@ -29,6 +29,9 @@ use Data::Dumper;
sub run;
sub execute;
sub final;
my $output;
my ($config, $check) = @ARGV;
if (! $config) {
@@ -103,18 +106,17 @@ sub runtest {
$cfg->{input},
\$out, \$error, 5, 0, undef);
my $output = $out . $error;
$output = $out . $error;
$output =~ s/^\s*//;
$output =~ s/\s*$//;
if (exists $cfg->{expect}) {
if ($cfg->{expect} =~ /^\//) {
like($output, $cfg->{expect}, "$name") or return 0;
like($output, $cfg->{expect}, "$name") or return final 0;
}
else {
is($output, $cfg->{expect}, "$name") or return 0;
is($output, $cfg->{expect}, "$name") or return final 0;
}
}
@@ -123,7 +125,7 @@ sub runtest {
if (-s $cfg->{"expect-file"}) {
$e = 1;
}
is($e, 1, "$name") or return 0;
is($e, 1, "$name") or return final 0;
}
elsif (exists $cfg->{"expect-file-contains"}) {
@@ -132,33 +134,52 @@ sub runtest {
if (-s $file) {
$e = 1;
}
is($e, 1, "$name") or return 0;
is($e, 1, "$name") or return final 0;
if (open F, "<$file") {
my $content = join '', <F>;
close F;
like($content, qr/$expect/s, "$name") or return 0;
like($content, qr/$expect/s, "$name") or return final 0;
}
else {
fail($test);
return 0;
return final 0;
}
}
elsif (exists $cfg->{exit}) {
is($ret, $cfg->{exit}, "$name") or return 0;
is($ret, $cfg->{exit}, "$name") or return final 0;
}
else {
diag("invalid test spec for $test");
fail($test);
return 0;
return final 0;
}
return 1;
return final 1;
}
done_testing;
sub final {
my $ret = shift;
if ($output =~ /(segmentation fault|bus error)/i || -s "pcp1.core") {
# override $ret
$ret = 0;
diag("Abnormal program termination");
# if there is a coredump, extract a backtrace
if (-s "pcp1.core") {
# print a backtrace
system("gdb -x .gdb -batch $cfg{pcp} pcp1.core");
unlink "pcp1.core";
}
}
return $ret;
}
sub run {
# open3 wrapper. catch stderr, stdout, errno; add timeout and kill
my($cmd, $input, $output, $error, $timeout, $debug, $monitorfile) = @_;