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
Open

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

Show file tree
Hide file tree
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
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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/},
Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/App/Prove.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/App/Prove/State.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/App/Prove/State/Result.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Base.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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);';
Expand Down
8 changes: 3 additions & 5 deletions cpan/Test-Harness/lib/TAP/Formatter/Base.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down Expand Up @@ -419,9 +419,7 @@ sub _summary_test_header {
}

sub _output {
my $self = shift;

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

sub _failure_output {
Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/Color.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/Console.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
8 changes: 4 additions & 4 deletions cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down Expand Up @@ -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;
}
Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/File.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Formatter/Session.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
14 changes: 7 additions & 7 deletions cpan/Test-Harness/lib/TAP/Harness.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down Expand Up @@ -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 {
Expand Down Expand Up @@ -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};
Expand Down Expand Up @@ -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;
Expand All @@ -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> };
Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Harness/Env.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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.
Expand Down Expand Up @@ -126,7 +126,7 @@ TAP::Harness::Env - Parsing harness related environmental variables where approp

=head1 VERSION

Version 3.50
Version 3.52

=head1 SYNOPSIS

Expand Down
8 changes: 3 additions & 5 deletions cpan/Test-Harness/lib/TAP/Object.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down Expand Up @@ -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
Expand Down
8 changes: 4 additions & 4 deletions cpan/Test-Harness/lib/TAP/Parser.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down Expand Up @@ -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};
}
}
Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
4 changes: 2 additions & 2 deletions cpan/Test-Harness/lib/TAP/Parser/Grammar.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
Loading
Loading