Skip to content

cpan/Test-Harness - Update to version 3.52 #23256

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: blead
Choose a base branch
from
+315 −194
Open

cpan/Test-Harness - Update to version 3.52 #23256

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions Porting/Maintainers.pl
View file
Original file line number Diff line number Diff line change
@@ -1109,8 +1109,8 @@ package Maintainers;
},

'Test::Harness' => {
'DISTRIBUTION' => 'LEONT/Test-Harness-3.50.tar.gz',
'SYNCINFO' => 'jkeenan on Wed Aug 14 21:59:59 2024',
'DISTRIBUTION' => 'LEONT/Test-Harness-3.52.tar.gz',
'SYNCINFO' => 'jkeenan on Sun May 4 07:13:21 2025',
'FILES' => q[cpan/Test-Harness],
'EXCLUDED' => [
qr{^examples/},
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/App/Prove.pm
View file
Original file line number Diff line number Diff line change
@@ -18,11 +18,11 @@ App::Prove - Implements the C<prove> command.

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 DESCRIPTION

4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/App/Prove/State.pm
View file
Original file line number Diff line number Diff line change
@@ -25,11 +25,11 @@ App::Prove::State - State storage for the C<prove> command.

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 DESCRIPTION

4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/App/Prove/State/Result.pm
View file
Original file line number Diff line number Diff line change
@@ -14,11 +14,11 @@ App::Prove::State::Result - Individual test suite results.

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 DESCRIPTION

4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm
View file
Original file line number Diff line number Diff line change
@@ -9,11 +9,11 @@ App::Prove::State::Result::Test - Individual test results.

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 DESCRIPTION

4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Base.pm
View file
Original file line number Diff line number Diff line change
@@ -12,11 +12,11 @@ and L<TAP::Harness>

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

use constant GOT_TIME_HIRES => do {
eval 'use Time::HiRes qw(time);';
8 changes: 3 additions & 5 deletions cpan/Test-Harness/lib/TAP/Formatter/Base.pm
View file
Original file line number Diff line number Diff line change
@@ -58,11 +58,11 @@ TAP::Formatter::Base - Base class for harness output delegates

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 DESCRIPTION

@@ -419,9 +419,7 @@ sub _summary_test_header {
}

sub _output {
my $self = shift;

print { $self->stdout } @_;
print { shift->stdout } @_;
}

sub _failure_output {
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/Color.pm
View file
Original file line number Diff line number Diff line change
@@ -39,11 +39,11 @@ TAP::Formatter::Color - Run Perl test scripts with color

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 DESCRIPTION

4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/Console.pm
View file
Original file line number Diff line number Diff line change
@@ -11,11 +11,11 @@ TAP::Formatter::Console - Harness output delegate for default console output

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 DESCRIPTION

4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm
View file
Original file line number Diff line number Diff line change
@@ -41,11 +41,11 @@ TAP::Formatter::Console::ParallelSession - Harness output delegate for parallel

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 DESCRIPTION

8 changes: 4 additions & 4 deletions cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm
View file
Original file line number Diff line number Diff line change
@@ -26,11 +26,11 @@ TAP::Formatter::Console::Session - Harness output delegate for default console o

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 DESCRIPTION

@@ -128,17 +128,17 @@ sub _closures {
my $planned = $parser->tests_planned || '?';
$plan = "/$planned ";
}
$output = $formatter->_get_output_method($parser);

if ( $show_count and $is_test ) {
my $number = $result->number;
my $now = CORE::time;

# Print status roughly once per second.
# We will always get the first number as a side effect of
# $last_status_printed starting with the value 0, which $now
# will never be. (Unless someone sets their clock to 1970)
if ( $last_status_printed != $now ) {
my $number = $result->number;
$output = $formatter->_get_output_method($parser);
$formatter->$output("\r$pretty$number$plan");
$last_status_printed = $now;
}
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/File.pm
View file
Original file line number Diff line number Diff line change
@@ -13,11 +13,11 @@ TAP::Formatter::File - Harness output delegate for file output

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 DESCRIPTION

4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm
View file
Original file line number Diff line number Diff line change
@@ -10,11 +10,11 @@ TAP::Formatter::File::Session - Harness output delegate for file output

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 DESCRIPTION

4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/Session.pm
View file
Original file line number Diff line number Diff line change
@@ -23,11 +23,11 @@ TAP::Formatter::Session - Abstract base class for harness output delegate

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 METHODS

14 changes: 7 additions & 7 deletions cpan/Test-Harness/lib/TAP/Harness.pm
View file
Original file line number Diff line number Diff line change
@@ -16,11 +16,11 @@ TAP::Harness - Run test scripts with statistics

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

$ENV{HARNESS_ACTIVE} = 1;
$ENV{HARNESS_VERSION} = $VERSION;
@@ -87,7 +87,7 @@ BEGIN {
trap => sub { shift; shift },
);

for my $method ( sort keys %VALIDATION_FOR ) {
for my $method ( keys %VALIDATION_FOR ) {
no strict 'refs';
if ( $method eq 'lib' || $method eq 'switches' ) {
*{$method} = sub {
@@ -432,7 +432,7 @@ Any keys for which the value is C<undef> will be ignored.
$self->SUPER::_initialize( $arg_for, \@legal_callback );
my %arg_for = %$arg_for; # force a shallow copy

for my $name ( sort keys %VALIDATION_FOR ) {
for my $name ( keys %VALIDATION_FOR ) {
my $property = delete $arg_for{$name};
if ( defined $property ) {
my $validate = $VALIDATION_FOR{$name};
@@ -475,8 +475,8 @@ Any keys for which the value is C<undef> will be ignored.
);
}

if ( my @props = sort keys %arg_for ) {
$self->_croak("Unknown arguments to TAP::Harness::new (@props)");
if ( my @props = keys %arg_for ) {
$self->_croak('Unknown arguments to TAP::Harness::new ('.join(' ',sort @props).')');
}

return $self;
@@ -494,7 +494,7 @@ Any keys for which the value is C<undef> will be ignored.
warn "CPAN::Meta::YAML required to process $rulesfile" ;
return;
}
my $layer = $] lt "5.008" ? "" : ":encoding(UTF-8)";
my $layer = "$]" < "5.008" ? "" : ":encoding(UTF-8)";
open my $fh, "<$layer", $rulesfile
or die "Couldn't open $rulesfile: $!";
my $yaml_text = do { local $/; <$fh> };
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Harness/Env.pm
View file
Original file line number Diff line number Diff line change
@@ -7,7 +7,7 @@ use constant IS_VMS => ( $^O eq 'VMS' );
use TAP::Object;
use Text::ParseWords qw/shellwords/;

our $VERSION = '3.50';
our $VERSION = '3.52';

# Get the parts of @INC which are changed from the stock list AND
# preserve reordering of stock directories.
@@ -126,7 +126,7 @@ TAP::Harness::Env - Parsing harness related environmental variables where approp

=head1 VERSION

Version 3.50
Version 3.52

=head1 SYNOPSIS

8 changes: 3 additions & 5 deletions cpan/Test-Harness/lib/TAP/Object.pm
View file
Original file line number Diff line number Diff line change
@@ -9,11 +9,11 @@ TAP::Object - Base class that provides common functionality to all C<TAP::*> mod

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 SYNOPSIS

@@ -50,9 +50,7 @@ L</_initialize> method. Returns a new object.
=cut

sub new {
my $class = shift;
my $self = bless {}, $class;
return $self->_initialize(@_);
return bless({}, shift)->_initialize(@_);
}

=head2 Instance Methods
8 changes: 4 additions & 4 deletions cpan/Test-Harness/lib/TAP/Parser.pm
View file
Original file line number Diff line number Diff line change
@@ -27,11 +27,11 @@ TAP::Parser - Parse L<TAP|Test::Harness::TAP> output

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

my $DEFAULT_TAP_VERSION = 12;
my $MAX_TAP_VERSION = 14;
@@ -1340,9 +1340,9 @@ sub _make_state_table {
my $st = { %state_globals, %{ $states{$name} } };

# Add defaults
for my $next ( sort keys %{$st} ) {
for my $next ( keys %$st ) {
if ( my $default = $state_defaults{$next} ) {
for my $def ( sort keys %{$default} ) {
for my $def ( keys %$default ) {
$st->{$next}->{$def} ||= $default->{$def};
}
}
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm
View file
Original file line number Diff line number Diff line change
@@ -12,11 +12,11 @@ TAP::Parser::Aggregator - Aggregate TAP::Parser results

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 SYNOPSIS

4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Parser/Grammar.pm
View file
Original file line number Diff line number Diff line change
@@ -14,11 +14,11 @@ TAP::Parser::Grammar - A grammar for the Test Anything Protocol.

=head1 VERSION

Version 3.50
Version 3.52

=cut

our $VERSION = '3.50';
our $VERSION = '3.52';

=head1 SYNOPSIS

Loading