summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
committerNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
commit12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch)
tree0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter
parent62170822e034fdd3f81de7274835d0d3b0467100 (diff)
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Base.pm29
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Color.pm4
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console.pm4
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console/ParallelSession.pm4
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console/Session.pm4
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/File.pm4
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm4
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Session.pm4
8 files changed, 40 insertions, 17 deletions
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
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Color.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Color.pm
index 0f08edfe78..b10f2d5c36 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Color.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Color.pm
@@ -39,11 +39,11 @@ TAP::Formatter::Color - Run Perl test scripts with color
=head1 VERSION
-Version 3.43
+Version 3.44
=cut
-our $VERSION = '3.43';
+our $VERSION = '3.44';
=head1 DESCRIPTION
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console.pm
index 3217099a71..d7df761cf8 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console.pm
@@ -11,11 +11,11 @@ TAP::Formatter::Console - Harness output delegate for default console output
=head1 VERSION
-Version 3.43
+Version 3.44
=cut
-our $VERSION = '3.43';
+our $VERSION = '3.44';
=head1 DESCRIPTION
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console/ParallelSession.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console/ParallelSession.pm
index 7f6767c700..867e025e63 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console/ParallelSession.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console/ParallelSession.pm
@@ -41,11 +41,11 @@ TAP::Formatter::Console::ParallelSession - Harness output delegate for parallel
=head1 VERSION
-Version 3.43
+Version 3.44
=cut
-our $VERSION = '3.43';
+our $VERSION = '3.44';
=head1 DESCRIPTION
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console/Session.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console/Session.pm
index 8c2f95734d..aba854c4ea 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console/Session.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Console/Session.pm
@@ -26,11 +26,11 @@ TAP::Formatter::Console::Session - Harness output delegate for default console o
=head1 VERSION
-Version 3.43
+Version 3.44
=cut
-our $VERSION = '3.43';
+our $VERSION = '3.44';
=head1 DESCRIPTION
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/File.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/File.pm
index 5a3a55813e..c103e52cce 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/File.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/File.pm
@@ -13,11 +13,11 @@ TAP::Formatter::File - Harness output delegate for file output
=head1 VERSION
-Version 3.43
+Version 3.44
=cut
-our $VERSION = '3.43';
+our $VERSION = '3.44';
=head1 DESCRIPTION
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm
index fb7b1829ba..e167bc5cec 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/File/Session.pm
@@ -10,11 +10,11 @@ TAP::Formatter::File::Session - Harness output delegate for file output
=head1 VERSION
-Version 3.43
+Version 3.44
=cut
-our $VERSION = '3.43';
+our $VERSION = '3.44';
=head1 DESCRIPTION
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Session.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Session.pm
index a26048d9d9..59b6afa300 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Session.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/TAP/Formatter/Session.pm
@@ -23,11 +23,11 @@ TAP::Formatter::Session - Abstract base class for harness output delegate
=head1 VERSION
-Version 3.43
+Version 3.44
=cut
-our $VERSION = '3.43';
+our $VERSION = '3.44';
=head1 METHODS