From 12679ab7d3c2a210f4123163671b532b8b55d5f9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 15 Mar 2024 03:06:35 +0000 Subject: CTAN sync 202403150306 --- .../tlnet/tlpkg/tlperl/lib/TAP/Formatter/Base.pm | 29 +++++++++++++++++++--- 1 file changed, 26 insertions(+), 3 deletions(-) (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Base.pm') diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Base.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Base.pm index a9c0e3b04b..33fdd991f5 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Base.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Base.pm @@ -58,11 +58,11 @@ TAP::Formatter::Base - Base class for harness output delegates =head1 VERSION -Version 3.43 +Version 3.44 =cut -our $VERSION = '3.43'; +our $VERSION = '3.44'; =head1 DESCRIPTION @@ -387,7 +387,30 @@ sub _summary_test_header { $spaces = ' ' unless $spaces; my $output = $self->_get_output_method($parser); my $wait = $parser->wait; - defined $wait or $wait = '(none)'; + + if (defined $wait) { + my $signum = $wait & 0x7f; + + my $description; + + if ($signum) { + require Config; + my @names = split ' ', $Config::Config{'sig_name'}; + $description = "Signal: $names[$signum]"; + + my $dumped = $wait & 0x80; + $description .= ', dumped core' if $dumped; + } + elsif ($wait != 0) { + $description = sprintf 'exited %d', ($wait >> 8); + } + + $wait .= " ($description)" if $wait != 0; + } + else { + $wait = '(none)'; + } + $self->$output( sprintf "$test$spaces(Wstat: %s Tests: %d Failed: %d)\n", $wait, $parser->tests_run, scalar $parser->failed -- cgit v1.2.3