In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4bd7fb59f6e67c2ea1804cba99d5e728e3b6359f?hp=5b615f05fa936a4d25984453e5dfbd4e32cc8f5b>
- Log ----------------------------------------------------------------- commit 4bd7fb59f6e67c2ea1804cba99d5e728e3b6359f Author: Chris 'BinGOs' Williams <[email protected]> Date: Thu Oct 16 13:15:02 2014 +0100 Update Test-Simple to CPAN version 1.001008 [DELTA] 1.001008 Wed Oct 15 20:10:22:00 PST 2014 * Updated Changes file 1.001007 Wed Oct 15 16:37:11:00 PST 2014 * Fix subtest name when skip_all is used ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/Test-Simple/lib/Test/Builder.pm | 9 +++++---- cpan/Test-Simple/lib/Test/Builder/Module.pm | 2 +- cpan/Test-Simple/lib/Test/More.pm | 2 +- cpan/Test-Simple/lib/Test/Simple.pm | 2 +- 5 files changed, 9 insertions(+), 8 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index b8bd836..6b091b2 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1074,7 +1074,7 @@ use File::Glob qw(:case); }, 'Test::Simple' => { - 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.001006.tar.gz', + 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.001008.tar.gz', 'FILES' => q[cpan/Test-Simple], 'EXCLUDED' => [ qr{^t/xt}, diff --git a/cpan/Test-Simple/lib/Test/Builder.pm b/cpan/Test-Simple/lib/Test/Builder.pm index 31933b3..97c7a9e 100644 --- a/cpan/Test-Simple/lib/Test/Builder.pm +++ b/cpan/Test-Simple/lib/Test/Builder.pm @@ -4,7 +4,7 @@ use 5.006; use strict; use warnings; -our $VERSION = '1.001006'; +our $VERSION = '1.001008'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) BEGIN { @@ -355,7 +355,7 @@ sub finalize { $self->parent->{Child_Name} = undef; unless ($self->{Bailed_Out}) { if ( $self->{Skip_All} ) { - $self->parent->skip($self->{Skip_All}); + $self->parent->skip($self->{Skip_All}, $self->name); } elsif ( not @{ $self->{Test_Results} } ) { $self->parent->ok( 0, sprintf q[No tests run for subtest "%s"], $self->name ); @@ -1292,8 +1292,9 @@ Skips the current test, reporting C<$why>. =cut sub skip { - my( $self, $why ) = @_; + my( $self, $why, $name ) = @_; $why ||= ''; + $name = '' unless defined $name; $self->_unoverload_str( \$why ); lock( $self->{Curr_Test} ); @@ -1303,7 +1304,7 @@ sub skip { { 'ok' => 1, actual_ok => 1, - name => '', + name => $name, type => 'skip', reason => $why, } diff --git a/cpan/Test-Simple/lib/Test/Builder/Module.pm b/cpan/Test-Simple/lib/Test/Builder/Module.pm index 50c2957..e5db76a 100644 --- a/cpan/Test-Simple/lib/Test/Builder/Module.pm +++ b/cpan/Test-Simple/lib/Test/Builder/Module.pm @@ -7,7 +7,7 @@ use Test::Builder 0.99; require Exporter; our @ISA = qw(Exporter); -our $VERSION = '1.001006'; +our $VERSION = '1.001008'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) diff --git a/cpan/Test-Simple/lib/Test/More.pm b/cpan/Test-Simple/lib/Test/More.pm index ca178bb..fbf8645 100644 --- a/cpan/Test-Simple/lib/Test/More.pm +++ b/cpan/Test-Simple/lib/Test/More.pm @@ -17,7 +17,7 @@ sub _carp { return warn @_, " at $file line $line\n"; } -our $VERSION = '1.001006'; +our $VERSION = '1.001008'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) use Test::Builder::Module 0.99; diff --git a/cpan/Test-Simple/lib/Test/Simple.pm b/cpan/Test-Simple/lib/Test/Simple.pm index 68110d5..34736b2 100644 --- a/cpan/Test-Simple/lib/Test/Simple.pm +++ b/cpan/Test-Simple/lib/Test/Simple.pm @@ -4,7 +4,7 @@ use 5.006; use strict; -our $VERSION = '1.001006'; +our $VERSION = '1.001008'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) use Test::Builder::Module 0.99; -- Perl5 Master Repository
