summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
a46a9d7)
print "\n" . join("\n", @log) . "\n";
}
print "\n" . join("\n", @log) . "\n";
}
- print STDERR "Killed by signal.\n";
+ print STDERR "\n! Killed by signal FAILED\n";
($pid > 0) || die("pid is '$pid'?!\n");
($pid > 0) || die("pid is '$pid'?!\n");
# parent
local $SIG{INT} = sub { bigkill($pid); };
# parent
local $SIG{INT} = sub { bigkill($pid); };
-local $SIG{TERM} = sub { bikill($pid); };
+local $SIG{TERM} = sub { bigkill($pid); };
+local $SIG{ALRM} = sub {
+ print STDERR "Alarm timed out! No test results for too long.\n";
+ bigkill($pid);
+};
if (/^\s*Testing "(.*)" in (.*):\s*$/)
{
if (/^\s*Testing "(.*)" in (.*):\s*$/)
{
my ($sect, $file) = ($1, $2);
if ($insection) {
my ($sect, $file) = ($1, $2);
if ($insection) {
}
elsif (/^!\s*(.*?)\s+(\S+)\s*$/)
{
}
elsif (/^!\s*(.*?)\s+(\S+)\s*$/)
{
my ($name, $result) = ($1, $2);
my $pass = ($result eq "ok");
my ($name, $result) = ($1, $2);
my $pass = ($result eq "ok");