diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Test-Harness/lib')
48 files changed, 148 insertions, 163 deletions
diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove.pm index 32eb59c2a5c..9298726d24f 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove.pm @@ -18,11 +18,11 @@ App::Prove - Implements the C<prove> command. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION @@ -59,6 +59,7 @@ BEGIN { verbose warnings_fail warnings_warn show_help show_man show_version state_class test_args state dry extensions ignore_exit rules state_manager normalize sources tapversion trap + statefile ); __PACKAGE__->mk_methods(@ATTR); } @@ -229,6 +230,7 @@ sub process_args { 'M=s@' => $self->{modules}, 'P=s@' => $self->{plugins}, 'state=s@' => $self->{state}, + 'statefile=s' => \$self->{statefile}, 'directives' => \$self->{directives}, 'h|help|?' => \$self->{show_help}, 'H|man' => \$self->{show_man}, @@ -279,7 +281,7 @@ sub _help { sub _color_default { my $self = shift; - return -t STDOUT && !$ENV{HARNESS_NOTTY} && !IS_WIN32; + return -t STDOUT && !$ENV{HARNESS_NOTTY}; } sub _get_args { @@ -479,7 +481,7 @@ sub run { unless ( $self->state_manager ) { $self->state_manager( - $self->state_class->new( { store => STATE_FILE } ) ); + $self->state_class->new( { store => $self->statefile || STATE_FILE } ) ); } if ( $self->show_help ) { diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State.pm index e352fb3f4a5..0b61a824590 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State.pm @@ -25,11 +25,11 @@ App::Prove::State - State storage for the C<prove> command. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result.pm index 931e52b1d95..8f89c775aff 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result.pm @@ -14,11 +14,11 @@ App::Prove::State::Result - Individual test suite results. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm index 4819ed82183..b795280f307 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/App/Prove/State/Result/Test.pm @@ -9,11 +9,11 @@ App::Prove::State::Result::Test - Individual test results. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Base.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Base.pm index e6ea22d6ecd..78e07ab0547 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Base.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Base.pm @@ -12,11 +12,11 @@ and L<TAP::Harness> =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; use constant GOT_TIME_HIRES => do { eval 'use Time::HiRes qw(time);'; diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Base.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Base.pm index a2fa3ea765f..bf65e12ca15 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Base.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Base.pm @@ -58,11 +58,11 @@ TAP::Formatter::Base - Base class for harness output delegates =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Color.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Color.pm index 728247c07d7..79807901012 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Color.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Color.pm @@ -12,56 +12,24 @@ my $NO_COLOR; BEGIN { $NO_COLOR = 0; + eval 'require Term::ANSIColor'; + if ($@) { + $NO_COLOR = $@; + }; if (IS_WIN32) { - eval 'use Win32::Console'; + eval 'use Win32::Console::ANSI'; if ($@) { $NO_COLOR = $@; } - else { - my $console = Win32::Console->new( STD_OUTPUT_HANDLE() ); - - # eval here because we might not know about these variables - my $fg = eval '$FG_LIGHTGRAY'; - my $bg = eval '$BG_BLACK'; - - *set_color = sub { - my ( $self, $output, $color ) = @_; - - my $var; - if ( $color eq 'reset' ) { - $fg = eval '$FG_LIGHTGRAY'; - $bg = eval '$BG_BLACK'; - } - elsif ( $color =~ /^on_(.+)$/ ) { - $bg = eval '$BG_' . uc($1); - } - else { - $fg = eval '$FG_' . uc($color); - } - - # In case of colors that aren't defined - $self->set_color('reset') - unless defined $bg && defined $fg; - - $console->Attr( $bg | $fg ); - }; - } - } - else { - eval 'use Term::ANSIColor'; - if ($@) { - $NO_COLOR = $@; - } - else { - *set_color = sub { - my ( $self, $output, $color ) = @_; - $output->( color($color) ); - }; - } - } + }; if ($NO_COLOR) { *set_color = sub { }; + } else { + *set_color = sub { + my ( $self, $output, $color ) = @_; + $output->( Term::ANSIColor::color($color) ); + }; } } @@ -71,11 +39,11 @@ TAP::Formatter::Color - Run Perl test scripts with color =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION @@ -87,7 +55,7 @@ in color. Passing tests are printed in green. Failing tests are in red. Skipped tests are blue on a white background and TODO tests are printed in white. -If L<Term::ANSIColor> cannot be found (or L<Win32::Console> if running +If L<Term::ANSIColor> cannot be found (and L<Win32::Console::ANSI> if running under Windows) tests will be run without color. =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console.pm index 8cc3060dac3..1c82ef43c6c 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console.pm @@ -11,11 +11,11 @@ TAP::Formatter::Console - Harness output delegate for default console output =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm index c8cdf7c998d..6826b4e379f 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/ParallelSession.pm @@ -41,11 +41,11 @@ TAP::Formatter::Console::ParallelSession - Harness output delegate for parallel =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm index 8a15812f3d8..492bdd7b081 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Console/Session.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/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.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File.pm index 45d93a1860e..ced7b3f85ea 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File.pm @@ -13,11 +13,11 @@ TAP::Formatter::File - Harness output delegate for file output =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm index 371d7d56c63..3403540e40b 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/File/Session.pm @@ -10,11 +10,11 @@ TAP::Formatter::File::Session - Harness output delegate for file output =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Session.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Session.pm index 2924276f331..2022220aaaf 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Session.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Formatter/Session.pm @@ -23,11 +23,11 @@ TAP::Formatter::Session - Abstract base class for harness output delegate =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 METHODS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness.pm index c916a32edd0..a2f6daf1dbd 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness.pm @@ -16,11 +16,11 @@ TAP::Harness - Run test scripts with statistics =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; $ENV{HARNESS_ACTIVE} = 1; $ENV{HARNESS_VERSION} = $VERSION; diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness/Env.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness/Env.pm index 0a328da76a7..077626df2de 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness/Env.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Harness/Env.pm @@ -7,7 +7,7 @@ use constant IS_VMS => ( $^O eq 'VMS' ); use TAP::Object; use Text::ParseWords qw/shellwords/; -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; # 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.36 +Version 3.42 =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Object.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Object.pm index 5195bd7f26c..e9da17f4ff1 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Object.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Object.pm @@ -9,11 +9,11 @@ TAP::Object - Base class that provides common functionality to all C<TAP::*> mod =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser.pm index f688c722f06..34f411048e3 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser.pm @@ -27,11 +27,11 @@ TAP::Parser - Parse L<TAP|Test::Harness::TAP> output =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; my $DEFAULT_TAP_VERSION = 12; my $MAX_TAP_VERSION = 13; diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm index 94289a44c85..65be445f308 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Aggregator.pm @@ -12,11 +12,11 @@ TAP::Parser::Aggregator - Aggregate TAP::Parser results =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm index e4ab7b4ecc1..ff0f2aa2ad7 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Grammar.pm @@ -14,11 +14,11 @@ TAP::Parser::Grammar - A grammar for the Test Anything Protocol. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS @@ -178,7 +178,7 @@ my %language_for; my %v13 = ( %v12, plan => { - syntax => qr/^1\.\.(\d+)(?:\s*#\s*SKIP\b(.*))?\z/i, + syntax => qr/^1\.\.(\d+)\s*(?:\s*#\s*SKIP\b(.*))?\z/i, handler => sub { my ( $self, $line ) = @_; my ( $tests_planned, $explanation ) = ( $1, $2 ); diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm index 93b8a7f5d08..fab48cb2bed 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator.pm @@ -11,11 +11,11 @@ TAP::Parser::Iterator - Base class for TAP source iterators =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm index ce7000beaa3..5a098cca7c0 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Array.pm @@ -11,11 +11,11 @@ TAP::Parser::Iterator::Array - Iterator for array-based TAP sources =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm index cf842998d22..a121485aec4 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Process.pm @@ -16,11 +16,11 @@ TAP::Parser::Iterator::Process - Iterator for process-based TAP sources =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm index f98527969e0..2a21485357f 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Iterator/Stream.pm @@ -11,11 +11,11 @@ TAP::Parser::Iterator::Stream - Iterator for filehandle-based TAP sources =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS @@ -90,6 +90,16 @@ sub _finish { close delete $self->{fh}; } +sub get_select_handles { + my $self = shift; + + # return our handle in case it's a socket or pipe (select()-able) + return ( $self->{fh}, ) + if (-S $self->{fh} || -p $self->{fh}); + + return; +} + 1; =head1 ATTRIBUTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm index 7a80031be03..cd677028bd8 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/IteratorFactory.pm @@ -16,11 +16,11 @@ TAP::Parser::IteratorFactory - Figures out which SourceHandler objects to use fo =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS @@ -243,19 +243,14 @@ sub detect_source { confess('no raw source ref defined!') unless defined $source->raw; # find a list of handlers that can handle this source: - my %handlers; - for my $dclass ( @{ $self->handlers } ) { - my $confidence = $dclass->can_handle($source); - - # warn "handler: $dclass: $confidence\n"; - $handlers{$dclass} = $confidence if $confidence; + my %confidence_for; + for my $handler ( @{ $self->handlers } ) { + my $confidence = $handler->can_handle($source); + # warn "handler: $handler: $confidence\n"; + $confidence_for{$handler} = $confidence if $confidence; } - if ( !%handlers ) { - - # use Data::Dump qw( pp ); - # warn pp( $meta ); - + if ( !%confidence_for ) { # error: can't detect source my $raw_source_short = substr( ${ $source->raw }, 0, 50 ); confess("Cannot detect source of '$raw_source_short'!"); @@ -263,23 +258,30 @@ sub detect_source { } # if multiple handlers can handle it, choose the most confident one - my @handlers = ( - map {$_} - sort { $handlers{$a} cmp $handlers{$b} } - keys %handlers - ); + my @handlers = + sort { $confidence_for{$b} <=> $confidence_for{$a} } + keys %confidence_for; + + # Check for a tie. + if( @handlers > 1 && + $confidence_for{$handlers[0]} == $confidence_for{$handlers[1]} + ) { + my $filename = $source->meta->{file}{basename}; + die("There is a tie between $handlers[0] and $handlers[1].\n". + "Both voted $confidence_for{$handlers[0]} on $filename.\n"); + } # this is really useful for debugging handlers: if ( $ENV{TAP_HARNESS_SOURCE_FACTORY_VOTES} ) { warn( "votes: ", - join( ', ', map {"$_: $handlers{$_}"} @handlers ), + join( ', ', map {"$_: $confidence_for{$_}"} @handlers ), "\n" ); } # return 1st - return pop @handlers; + return $handlers[0]; } 1; diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm index 55701f84a2d..16af2d30854 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Multiplexer.pm @@ -17,11 +17,11 @@ TAP::Parser::Multiplexer - Multiplex multiple TAP::Parsers =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result.pm index 270a24a63c7..c8927968dbe 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result.pm @@ -24,11 +24,11 @@ TAP::Parser::Result - Base class for TAP::Parser output objects =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm index d5c7e8cfdf9..facae6fe8e4 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Bailout.pm @@ -11,11 +11,11 @@ TAP::Parser::Result::Bailout - Bailout result token. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Comment.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Comment.pm index a519634436c..0f99b57b08e 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Comment.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Comment.pm @@ -11,11 +11,11 @@ TAP::Parser::Result::Comment - Comment result token. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Plan.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Plan.pm index 0b2b3362457..9db060e90df 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Plan.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Plan.pm @@ -11,11 +11,11 @@ TAP::Parser::Result::Plan - Plan result token. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Pragma.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Pragma.pm index 40380e7c603..c7a26beeedd 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Pragma.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Pragma.pm @@ -11,11 +11,11 @@ TAP::Parser::Result::Pragma - TAP pragma token. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Test.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Test.pm index 46b63e9ef07..b3bd224c16f 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Test.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Test.pm @@ -11,11 +11,11 @@ TAP::Parser::Result::Test - Test result token. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Unknown.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Unknown.pm index 89935239c19..d735ed165ac 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Unknown.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Unknown.pm @@ -11,11 +11,11 @@ TAP::Parser::Result::Unknown - Unknown result token. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm index 28bab595b9f..5f4cb932bd3 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/Version.pm @@ -11,11 +11,11 @@ TAP::Parser::Result::Version - TAP syntax version token. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/YAML.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/YAML.pm index e93b43782de..a88b8da1f7e 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/YAML.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Result/YAML.pm @@ -11,11 +11,11 @@ TAP::Parser::Result::YAML - YAML result token. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/ResultFactory.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/ResultFactory.pm index c45074d08f8..27776ea05c7 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/ResultFactory.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/ResultFactory.pm @@ -29,11 +29,11 @@ TAP::Parser::ResultFactory - Factory for creating TAP::Parser output objects =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head2 DESCRIPTION diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler.pm index 2eea054d5e0..e13d68e087b 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler.pm @@ -13,11 +13,11 @@ TAP::Parser::Scheduler - Schedule tests during parallel testing =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS @@ -87,7 +87,7 @@ Here are some examples: ], } - # Run some startup tests in sequence, then some parallel tests than some + # Run some startup tests in sequence, then some parallel tests then some # teardown tests in sequence. { seq => [ diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Job.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Job.pm index c5bb3544c5d..b765ab27b0e 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Job.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Job.pm @@ -10,11 +10,11 @@ TAP::Parser::Scheduler::Job - A single testing job. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Spinner.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Spinner.pm index 768ade96ef8..47bc28fc913 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Spinner.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Scheduler/Spinner.pm @@ -10,11 +10,11 @@ TAP::Parser::Scheduler::Spinner - A no-op job. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Source.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Source.pm index 1b4c2110fc3..5bd85e37f71 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Source.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/Source.pm @@ -14,11 +14,11 @@ TAP::Parser::Source - a TAP source & meta data about it =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler.pm index e2d1cf960ae..0156b99fd68 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler.pm @@ -12,11 +12,11 @@ TAP::Parser::SourceHandler - Base class for different TAP source handlers =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Executable.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Executable.pm index a4df5dabbe2..376e8d148d8 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Executable.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Executable.pm @@ -16,11 +16,11 @@ TAP::Parser::SourceHandler::Executable - Stream output from an executable TAP so =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/File.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/File.pm index 30187a028f3..7e1843759e8 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/File.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/File.pm @@ -16,11 +16,11 @@ TAP::Parser::SourceHandler::File - Stream TAP from a text file. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS @@ -71,7 +71,8 @@ sub can_handle { return 0.9 if $file->{lc_ext} eq '.tap'; if ( my $exts = $config->{extensions} ) { - return 0.9 if grep { lc($_) eq $file->{lc_ext} } @$exts; + my @exts = ref $exts eq 'ARRAY' ? @$exts : $exts; + return 0.9 if grep { lc($_) eq $file->{lc_ext} } @exts; } return 0; diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Handle.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Handle.pm index 05b8dcb5a87..a0a051340f7 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Handle.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Handle.pm @@ -16,11 +16,11 @@ TAP::Parser::SourceHandler::Handle - Stream TAP from an IO::Handle or a GLOB. =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Perl.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Perl.pm index 7d238cd6249..c2ea252ec2a 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Perl.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/Perl.pm @@ -21,11 +21,11 @@ TAP::Parser::SourceHandler::Perl - Stream TAP from a Perl executable =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/RawTAP.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/RawTAP.pm index 6dfc815c5ac..2ef77118bc8 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/RawTAP.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/RawTAP.pm @@ -16,11 +16,11 @@ TAP::Parser::SourceHandler::RawTAP - Stream output from raw TAP in a scalar/arra =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Reader.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Reader.pm index 3381fa110e2..1a8185eb6b5 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Reader.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Reader.pm @@ -5,7 +5,7 @@ use warnings; use base 'TAP::Object'; -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; # TODO: # Handle blessed object syntax @@ -269,7 +269,7 @@ TAP::Parser::YAMLish::Reader - Read YAMLish data from iterator =head1 VERSION -Version 3.36 +Version 3.42 =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Writer.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Writer.pm index 4897aa88478..904244ae110 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Writer.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/YAMLish/Writer.pm @@ -5,7 +5,7 @@ use warnings; use base 'TAP::Object'; -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; my $ESCAPE_CHAR = qr{ [ \x00-\x1f \" ] }x; my $ESCAPE_KEY = qr{ (?: ^\W ) | $ESCAPE_CHAR }x; @@ -146,7 +146,7 @@ TAP::Parser::YAMLish::Writer - Write YAMLish data =head1 VERSION -Version 3.36 +Version 3.42 =head1 SYNOPSIS diff --git a/gnu/usr.bin/perl/cpan/Test-Harness/lib/Test/Harness.pm b/gnu/usr.bin/perl/cpan/Test-Harness/lib/Test/Harness.pm index fe9d3049f9f..6cce46e3b62 100644 --- a/gnu/usr.bin/perl/cpan/Test-Harness/lib/Test/Harness.pm +++ b/gnu/usr.bin/perl/cpan/Test-Harness/lib/Test/Harness.pm @@ -31,11 +31,11 @@ Test::Harness - Run Perl standard test scripts with statistics =head1 VERSION -Version 3.36 +Version 3.42 =cut -our $VERSION = '3.36_01'; +our $VERSION = '3.42'; # Backwards compatibility for exportable variable names. *verbose = *Verbose; @@ -147,6 +147,7 @@ sub runtests { my $harness = _new_harness(); my $aggregate = TAP::Parser::Aggregator->new(); + local $ENV{PERL_USE_UNSAFE_INC} = 1 if not exists $ENV{PERL_USE_UNSAFE_INC}; _aggregate( $harness, $aggregate, @tests ); $harness->formatter->summary($aggregate); @@ -354,6 +355,7 @@ sub execute_tests { } ); + local $ENV{PERL_USE_UNSAFE_INC} = 1 if not exists $ENV{PERL_USE_UNSAFE_INC}; _aggregate( $harness, $aggregate, @{ $args{tests} } ); $tot{bench} = $aggregate->elapsed; |