search

Perl / perl5

🐪 The Perl programming language
https://dev.perl.org/perl5/
Other
1.98k stars 559 forks source link

perl blead: Update to Test-Simple Alpha 079 [PATCH] #14275

Closed p5pRT closed 9 years ago

p5pRT commented 9 years ago

Migrated from rt.perl.org#123307 (status was 'resolved')

Searchable as RT123307$

p5pRT commented 9 years ago

From @exodist

Attached is a patch against current perl blead that updates Test-Simple to alpha 079.

Alpha 079 is now considered RC1\, so it would be nice to get it smoked :-)

Thank you\,

Chad

p5pRT commented 9 years ago

From @exodist

0001-Update-Test-Simple-to-alpha-079.patch ```diff From f07c812949ddd1ccb59bc7cb4893363ff53e7152 Mon Sep 17 00:00:00 2001 From: Chad Granum Date: Sun, 23 Nov 2014 20:57:26 -0800 Subject: [PATCH] Update Test-Simple to alpha 079 --- MANIFEST | 4 +- cpan/Test-Simple/lib/Test/Builder.pm | 5 +- cpan/Test-Simple/lib/Test/Builder/Module.pm | 2 +- cpan/Test-Simple/lib/Test/Builder/Tester.pm | 2 +- cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm | 2 +- cpan/Test-Simple/lib/Test/More.pm | 41 ++++- cpan/Test-Simple/lib/Test/More/Tools.pm | 58 ------- cpan/Test-Simple/lib/Test/Simple.pm | 4 +- cpan/Test-Simple/lib/Test/Stream.pm | 58 ++++++- cpan/Test-Simple/lib/Test/Stream/Subtest.pm | 188 +++++++++++++++++++++ cpan/Test-Simple/lib/Test/Tester.pm | 2 +- cpan/Test-Simple/lib/Test/use/ok.pm | 2 +- cpan/Test-Simple/lib/ok.pm | 2 +- .../t/Behavior/skip_all_in_subtest.load | 10 -- cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t | 12 +- .../t/Behavior/skip_all_in_subtest1.load | 10 ++ .../t/Behavior/skip_all_in_subtest2.load | 12 ++ cpan/Test-Simple/t/Legacy/subtest/basic.t | 4 +- t/porting/known_pod_issues.dat | 2 + 19 files changed, 325 insertions(+), 95 deletions(-) create mode 100644 cpan/Test-Simple/lib/Test/Stream/Subtest.pm delete mode 100644 cpan/Test-Simple/t/Behavior/skip_all_in_subtest.load create mode 100644 cpan/Test-Simple/t/Behavior/skip_all_in_subtest1.load create mode 100644 cpan/Test-Simple/t/Behavior/skip_all_in_subtest2.load diff --git a/MANIFEST b/MANIFEST index f5126e0..0988715 100644 --- a/MANIFEST +++ b/MANIFEST @@ -2292,6 +2292,7 @@ cpan/Test-Simple/lib/Test/Stream/IOSets.pm Test::Simple module cpan/Test-Simple/lib/Test/Stream/Meta.pm Test::Simple module cpan/Test-Simple/lib/Test/Stream/PackageUtil.pm Test::Simple module cpan/Test-Simple/lib/Test/Stream.pm Test::Simple module +cpan/Test-Simple/lib/Test/Stream/Subtest.pm Test::Simple modules cpan/Test-Simple/lib/Test/Stream/Tester/Checks/Event.pm Test::Simple module cpan/Test-Simple/lib/Test/Stream/Tester/Checks.pm Test::Simple module cpan/Test-Simple/lib/Test/Stream/Tester/Events/Event.pm Test::Simple module @@ -2321,7 +2322,8 @@ cpan/Test-Simple/t/Behavior/MonkeyPatching_ok.t Test::Simple Test cpan/Test-Simple/t/Behavior/MonkeyPatching_plan.t Test::Simple Test cpan/Test-Simple/t/Behavior/Munge.t Test::Simple Test cpan/Test-Simple/t/Behavior/NotTB15.t Test::Simple Test -cpan/Test-Simple/t/Behavior/skip_all_in_subtest.load Test::Simple Test +cpan/Test-Simple/t/Behavior/skip_all_in_subtest1.load Test::Simple::Test +cpan/Test-Simple/t/Behavior/skip_all_in_subtest2.load Test::Simple::Test cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t Test::Simple Test cpan/Test-Simple/t/Behavior/Tester2_subtest.t Test::Simple Test cpan/Test-Simple/t/Behavior/threads_with_taint_mode.t Test::Simple Test diff --git a/cpan/Test-Simple/lib/Test/Builder.pm b/cpan/Test-Simple/lib/Test/Builder.pm index 2144c93..2955e07 100644 --- a/cpan/Test-Simple/lib/Test/Builder.pm +++ b/cpan/Test-Simple/lib/Test/Builder.pm @@ -4,7 +4,7 @@ use 5.008001; use strict; use warnings; -our $VERSION = '1.301001_078'; +our $VERSION = '1.301001_079'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) @@ -141,7 +141,8 @@ sub _copy { sub subtest { my $self = shift; my $ctx = $self->ctx(); - return tmt->subtest(@_); + require Test::Stream::Subtest; + return Test::Stream::Subtest::subtest(@_); } sub child { diff --git a/cpan/Test-Simple/lib/Test/Builder/Module.pm b/cpan/Test-Simple/lib/Test/Builder/Module.pm index 0ff9ce1..d0b3003 100644 --- a/cpan/Test-Simple/lib/Test/Builder/Module.pm +++ b/cpan/Test-Simple/lib/Test/Builder/Module.pm @@ -8,7 +8,7 @@ use Test::Builder 0.99; require Exporter; our @ISA = qw(Exporter); -our $VERSION = '1.301001_078'; +our $VERSION = '1.301001_079'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) diff --git a/cpan/Test-Simple/lib/Test/Builder/Tester.pm b/cpan/Test-Simple/lib/Test/Builder/Tester.pm index 7b2e9b4..f6711a7 100644 --- a/cpan/Test-Simple/lib/Test/Builder/Tester.pm +++ b/cpan/Test-Simple/lib/Test/Builder/Tester.pm @@ -1,7 +1,7 @@ package Test::Builder::Tester; use strict; -our $VERSION = '1.301001_078'; +our $VERSION = '1.301001_079'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) use Test::Stream 1.301001 '-internal'; diff --git a/cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm b/cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm index dfdb50d..98d690b 100644 --- a/cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm +++ b/cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm @@ -1,7 +1,7 @@ package Test::Builder::Tester::Color; use strict; -our $VERSION = '1.301001_078'; +our $VERSION = '1.301001_079'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) use Test::Stream 1.301001 '-internal'; diff --git a/cpan/Test-Simple/lib/Test/More.pm b/cpan/Test-Simple/lib/Test/More.pm index 585fd8a..b186cc9 100644 --- a/cpan/Test-Simple/lib/Test/More.pm +++ b/cpan/Test-Simple/lib/Test/More.pm @@ -4,12 +4,13 @@ use 5.008001; use strict; use warnings; -our $VERSION = '1.301001_078'; +our $VERSION = '1.301001_079'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) use Test::Stream 1.301001 '-internal'; use Test::Stream::Util qw/protect try spoof/; use Test::Stream::Toolset; +use Test::Stream::Subtest qw/subtest/; use Test::Stream::Carp qw/croak carp/; use Scalar::Util qw/blessed/; @@ -239,11 +240,6 @@ sub fail (;$) { return $ctx->ok(0, @_); } -sub subtest { - my $ctx = context(); - return tmt->subtest(@_); -} - sub explain { my $ctx = context(); tmt->explain(@_); @@ -1048,6 +1044,39 @@ subtests are equivalent: done_testing(); }; +B + +Sometimes you want to run a file as a subtest: + + subtest foo => sub { do 'foo.pl' }; + +where foo.pl; + + use Test::More skip_all => "won't work"; + +This will work fine, but will issue a warning. The issue is that the normal +flow control method will now work inside a BEGIN block. The C +statement is run in a BEGIN block. As a result an exception is thrown instead +of the normal flow control. In most cases this works fine. + +A case like this however will have issues: + + subtest foo => sub { + do 'foo.pl'; # Will issue a skip_all + + # You would expect the subtest to stop, but the 'do' captures the + # exception, as a result the following statement does execute. + + ok(0, "blah"); + }; + +You can work around this by cheking the return from C, along with C<$@>, or you can alter foo.pl so that it does this: + + use Test::More; + plan skip_all => 'broken'; + +When the plan is issues outside of the BEGIN block it works just fine. + =item B =item B diff --git a/cpan/Test-Simple/lib/Test/More/Tools.pm b/cpan/Test-Simple/lib/Test/More/Tools.pm index 98027cc..554b3d9 100644 --- a/cpan/Test-Simple/lib/Test/More/Tools.pm +++ b/cpan/Test-Simple/lib/Test/More/Tools.pm @@ -322,64 +322,6 @@ sub _cmp_diag { DIAGNOSTIC } -sub subtest { - my ($class, $name, $code, @args) = @_; - - my $ctx = context(); - - $ctx->throw("subtest()'s second argument must be a code ref") - unless $code && 'CODE' eq reftype($code); - - $ctx->child('push', $name); - $ctx->clear; - my $todo = $ctx->hide_todo; - - my $pid = $$; - - my ($succ, $err) = try { - { - no warnings 'once'; - local $Test::Builder::Level = 1; - $code->(@args); - } - - $ctx->set; - my $stream = $ctx->stream; - $ctx->done_testing unless $stream->plan || $stream->ended; - - require Test::Stream::ExitMagic; - { - local $? = 0; - Test::Stream::ExitMagic->new->do_magic($stream, $ctx->snapshot); - } - }; - - if ($$ != $pid && !$ctx->stream->_use_fork) { - warn <<" EOT"; -Subtest finished with a new PID ($$ vs $pid) while forking support was turned off! -This is almost certainly not what you wanted. Did you fork and forget to exit? - EOT - - # Did the forked process try to exit via die? - die $err unless $succ; - } - - # If a subtest forked, then threw an exception, we need to propogate that right away. - die $err unless $succ || $$ == $pid || $err->isa('Test::Stream::Event'); - - $ctx->set; - $ctx->restore_todo($todo); - # This sends the subtest event - my $st = $ctx->child('pop', $name); - - unless ($succ) { - die $err unless blessed($err) && $err->isa('Test::Stream::Event'); - $ctx->bail($err->reason) if $err->isa('Test::Stream::Event::Bail'); - } - - return $st->bool; -} - 1; __END__ diff --git a/cpan/Test-Simple/lib/Test/Simple.pm b/cpan/Test-Simple/lib/Test/Simple.pm index 61cc2c3..bf140dc 100644 --- a/cpan/Test-Simple/lib/Test/Simple.pm +++ b/cpan/Test-Simple/lib/Test/Simple.pm @@ -5,10 +5,10 @@ use 5.008001; use strict; use warnings; -our $VERSION = '1.301001_078'; +our $VERSION = '1.301001_079'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) -use Test::Stream 1.301001_078 '-internal'; +use Test::Stream 1.301001_079 '-internal'; use Test::Stream::Toolset; use Test::Stream::Exporter; diff --git a/cpan/Test-Simple/lib/Test/Stream.pm b/cpan/Test-Simple/lib/Test/Stream.pm index 2011c5b..2b47ed7 100644 --- a/cpan/Test-Simple/lib/Test/Stream.pm +++ b/cpan/Test-Simple/lib/Test/Stream.pm @@ -2,7 +2,7 @@ package Test::Stream; use strict; use warnings; -our $VERSION = '1.301001_078'; +our $VERSION = '1.301001_079'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) use Test::Stream::Context qw/context/; @@ -577,6 +577,18 @@ sub _render_tap { } } +sub _scan_for_begin { + my ($stop_at) = @_; + my $level = 2; + + while (my @call = caller($level++)) { + return 1 if $call[3] =~ m/::BEGIN$/; + return 0 if $call[3] eq $stop_at; + } + + return undef; +} + sub _finalize_event { my ($self, $e, $cache) = @_; @@ -587,7 +599,27 @@ sub _finalize_event { $self->[SUBTEST_EXCEPTION]->[-1] = $e if $e->in_subtest; - die $e if $e->in_subtest || !$self->[EXIT_ON_DISRUPTION]; + if ($e->in_subtest) { + my $begin = _scan_for_begin('Test::Stream::Subtest::subtest'); + + if ($begin) { + warn "SKIP_ALL in subtest via 'BEGIN' or 'use', using exception for flow control\n"; + die $e; + } + elsif(defined $begin) { + no warnings 'exiting'; + eval { last TEST_STREAM_SUBTEST }; + warn "SKIP_ALL in subtest flow control error: $@"; + warn "Falling back to using an exception.\n"; + die $e; + } + else { + warn "SKIP_ALL in subtest could not find flow-control label, using exception for flow control\n"; + die $e; + } + } + + die $e unless $self->[EXIT_ON_DISRUPTION]; exit 0; } elsif (!$cache->{do_tap} && $e->isa('Test::Stream::Event::Bail')) { @@ -596,7 +628,27 @@ sub _finalize_event { $self->[SUBTEST_EXCEPTION]->[-1] = $e if $e->in_subtest; - die $e if $e->in_subtest || !$self->[EXIT_ON_DISRUPTION]; + if ($e->in_subtest) { + my $begin = _scan_for_begin('Test::Stream::Subtest::subtest'); + + if ($begin) { + warn "BAILOUT in subtest via 'BEGIN' or 'use', using exception for flow control.\n"; + die $e; + } + elsif(defined $begin) { + no warnings 'exiting'; + eval { last TEST_STREAM_SUBTEST }; + warn "BAILOUT in subtest flow control error: $@"; + warn "Falling back to using an exception.\n"; + die $e; + } + else { + warn "BAILOUT in subtest could not find flow-control label, using exception for flow control.\n"; + die $e; + } + } + + die $e unless $self->[EXIT_ON_DISRUPTION]; exit 255; } } diff --git a/cpan/Test-Simple/lib/Test/Stream/Subtest.pm b/cpan/Test-Simple/lib/Test/Stream/Subtest.pm new file mode 100644 index 0000000..4540758 --- /dev/null +++ b/cpan/Test-Simple/lib/Test/Stream/Subtest.pm @@ -0,0 +1,188 @@ +package Test::Stream::Subtest; +use strict; +use warnings; + +use Test::Stream::Exporter; +default_exports qw/subtest/; +Test::Stream::Exporter->cleanup; + +use Test::Stream::Context qw/context/; +use Scalar::Util qw/reftype blessed/; +use Test::Stream::Util qw/try/; + +sub subtest { + my ($name, $code, @args) = @_; + + my $ctx = context(); + + $ctx->throw("subtest()'s second argument must be a code ref") + unless $code && 'CODE' eq reftype($code); + + $ctx->child('push', $name); + $ctx->clear; + my $todo = $ctx->hide_todo; + + my $pid = $$; + + my ($succ, $err) = try { + my $early_return = 1; + + TEST_STREAM_SUBTEST: { + no warnings 'once'; + local $Test::Builder::Level = 1; + $code->(@args); + $early_return = 0; + } + + die $ctx->stream->subtest_exception->[-1] if $early_return; + + $ctx->set; + my $stream = $ctx->stream; + $ctx->done_testing unless $stream->plan || $stream->ended; + + require Test::Stream::ExitMagic; + { + local $? = 0; + Test::Stream::ExitMagic->new->do_magic($stream, $ctx->snapshot); + } + }; + + if ($$ != $pid && !$ctx->stream->_use_fork) { + warn <<" EOT"; +Subtest finished with a new PID ($$ vs $pid) while forking support was turned off! +This is almost certainly not what you wanted. Did you fork and forget to exit? + EOT + + # Did the forked process try to exit via die? + die $err unless $succ; + } + + # If a subtest forked, then threw an exception, we need to propogate that right away. + die $err unless $succ || $$ == $pid || $err->isa('Test::Stream::Event'); + + $ctx->set; + $ctx->restore_todo($todo); + # This sends the subtest event + my $st = $ctx->child('pop', $name); + + unless ($succ) { + die $err unless blessed($err) && $err->isa('Test::Stream::Event'); + $ctx->bail($err->reason) if $err->isa('Test::Stream::Event::Bail'); + } + + return $st->bool; +} + +1; + +__END__ + +=head1 Name + +Test::Stream::Subtest - Encapsulate subtest start, run, and finish. + +=head1 Synopsys + + use Test::Stream::Subtest; + + subtest $name => sub { ... }; + +=encoding utf8 + +=head1 SOURCE + +The source code repository for Test::More can be found at +F. + +=head1 MAINTAINER + +=over 4 + +=item Chad Granum Eexodist@cpan.orgE + +=back + +=head1 AUTHORS + +The following people have all contributed to the Test-More dist (sorted using +VIM's sort function). + +=over 4 + +=item Chad Granum Eexodist@cpan.orgE + +=item Fergal Daly Efergal@esatclear.ie>E + +=item Mark Fowler Emark@twoshortplanks.comE + +=item Michael G Schwern Eschwern@pobox.comE + +=item 唐鳳 + +=back + +=head1 COPYRIGHT + +There has been a lot of code migration between modules, +here are all the original copyrights together: + +=over 4 + +=item Test::Stream + +=item Test::Stream::Tester + +Copyright 2014 Chad Granum Eexodist7@gmail.comE. + +This program is free software; you can redistribute it and/or +modify it under the same terms as Perl itself. + +See F + +=item Test::Simple + +=item Test::More + +=item Test::Builder + +Originally authored by Michael G Schwern Eschwern@pobox.comE with much +inspiration from Joshua Pritikin's Test module and lots of help from Barrie +Slaymaker, Tony Bowden, blackstar.co.uk, chromatic, Fergal Daly and the perl-qa +gang. + +Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern +Eschwern@pobox.comE, wardrobe by Calvin Klein. + +Copyright 2001-2008 by Michael G Schwern Eschwern@pobox.comE. + +This program is free software; you can redistribute it and/or +modify it under the same terms as Perl itself. + +See F + +=item Test::use::ok + +To the extent possible under law, 唐鳳 has waived all copyright and related +or neighboring rights to L. + +This work is published from Taiwan. + +L + +=item Test::Tester + +This module is copyright 2005 Fergal Daly , some parts +are based on other people's work. + +Under the same license as Perl itself + +See http://www.perl.com/perl/misc/Artistic.html + +=item Test::Builder::Tester + +Copyright Mark Fowler Emark@twoshortplanks.comE 2002, 2004. + +This program is free software; you can redistribute it +and/or modify it under the same terms as Perl itself. + +=back diff --git a/cpan/Test-Simple/lib/Test/Tester.pm b/cpan/Test-Simple/lib/Test/Tester.pm index 5fd8b11..2f36c8f 100644 --- a/cpan/Test-Simple/lib/Test/Tester.pm +++ b/cpan/Test-Simple/lib/Test/Tester.pm @@ -16,7 +16,7 @@ require Exporter; use vars qw( @ISA @EXPORT $VERSION ); -our $VERSION = '1.301001_078'; +our $VERSION = '1.301001_079'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) @EXPORT = qw( run_tests check_tests check_test cmp_results show_space ); diff --git a/cpan/Test-Simple/lib/Test/use/ok.pm b/cpan/Test-Simple/lib/Test/use/ok.pm index 72e9437..a07c0a7 100644 --- a/cpan/Test-Simple/lib/Test/use/ok.pm +++ b/cpan/Test-Simple/lib/Test/use/ok.pm @@ -3,7 +3,7 @@ use strict; use warnings; use 5.005; -our $VERSION = '1.301001_078'; +our $VERSION = '1.301001_079'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) use Test::Stream 1.301001 '-internal'; diff --git a/cpan/Test-Simple/lib/ok.pm b/cpan/Test-Simple/lib/ok.pm index b83c7ec..088ec7e 100644 --- a/cpan/Test-Simple/lib/ok.pm +++ b/cpan/Test-Simple/lib/ok.pm @@ -6,7 +6,7 @@ use Test::Stream 1.301001 '-internal'; use Test::More 1.301001 (); use Test::Stream::Carp qw/croak/; -our $VERSION = '1.301001_078'; +our $VERSION = '1.301001_079'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) sub import { diff --git a/cpan/Test-Simple/t/Behavior/skip_all_in_subtest.load b/cpan/Test-Simple/t/Behavior/skip_all_in_subtest.load deleted file mode 100644 index 241ce14..0000000 --- a/cpan/Test-Simple/t/Behavior/skip_all_in_subtest.load +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; - -use Carp qw/confess/; - -use Test::More skip_all => "Cause I feel like it"; - -confess "Should not see this!"; diff --git a/cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t b/cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t index c66901a..d4b12ce 100644 --- a/cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t +++ b/cpan/Test-Simple/t/Behavior/skip_all_in_subtest.t @@ -5,12 +5,16 @@ use warnings; use Test::More; -subtest my_subtest => sub { +subtest my_subtest1 => sub { my $file = __FILE__; - $file =~ s/\.t$/.load/; + $file =~ s/\.t$/1.load/; + do $file; +}; + +subtest my_subtest2 => sub { + my $file = __FILE__; + $file =~ s/\.t$/2.load/; do $file; - note "Got: $@"; - fail($@); }; done_testing; diff --git a/cpan/Test-Simple/t/Behavior/skip_all_in_subtest1.load b/cpan/Test-Simple/t/Behavior/skip_all_in_subtest1.load new file mode 100644 index 0000000..241ce14 --- /dev/null +++ b/cpan/Test-Simple/t/Behavior/skip_all_in_subtest1.load @@ -0,0 +1,10 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +use Carp qw/confess/; + +use Test::More skip_all => "Cause I feel like it"; + +confess "Should not see this!"; diff --git a/cpan/Test-Simple/t/Behavior/skip_all_in_subtest2.load b/cpan/Test-Simple/t/Behavior/skip_all_in_subtest2.load new file mode 100644 index 0000000..6ce306a --- /dev/null +++ b/cpan/Test-Simple/t/Behavior/skip_all_in_subtest2.load @@ -0,0 +1,12 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +use Carp qw/confess/; + +use Test::More; + +plan skip_all => "Cause I feel like it"; + +confess "Should not see this!"; diff --git a/cpan/Test-Simple/t/Legacy/subtest/basic.t b/cpan/Test-Simple/t/Legacy/subtest/basic.t index 964b60d..5a0166d 100644 --- a/cpan/Test-Simple/t/Legacy/subtest/basic.t +++ b/cpan/Test-Simple/t/Legacy/subtest/basic.t @@ -15,7 +15,7 @@ use warnings; use Test::Builder::NoOutput; -use Test::More tests => 18; +use Test::More tests => 16; # Formatting may change if we're running under Test::Harness. $ENV{HARNESS_ACTIVE} = 0; @@ -168,8 +168,6 @@ END { my $child = $tb->child('skippy says he loves you'); eval { $child->plan( skip_all => 'cuz I said so' ) }; - ok my $error = $@, 'A child which does a "skip_all" should throw an exception'; - isa_ok $error, 'Test::Stream::Event', '... and the exception it throws'; } subtest 'skip all', sub { plan skip_all => 'subtest with skip_all'; diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index f1304fb..860ccc6 100644 --- a/t/porting/known_pod_issues.dat +++ b/t/porting/known_pod_issues.dat @@ -307,4 +307,6 @@ lib/config.pod ? Should you be using L<...> instead of -1 lib/extutils/embed.pm Verbatim line length including indents exceeds 79 by 2 lib/perl5db.pl ? Should you be using L<...> instead of 1 lib/pod/text/overstrike.pm Verbatim line length including indents exceeds 79 by 1 +lib/test/stream/subtest.pm Apparent broken link 1 +lib/test/stream/subtest.pm There is no NAME 1 porting/perl5220delta.pod Pod NAME already used 1 -- 1.9.1 ```
p5pRT commented 9 years ago

From @cpansprout

On Wed Nov 26 10​:52​:31 2014\, exodist7@​gmail.com wrote​:

Attached is a patch against current perl blead that updates Test-Simple to alpha 079.

Alpha 079 is now considered RC1\, so it would be nice to get it smoked :-)

Thank you. Applied as 67fc0004fa.

--

Father Chrysostomos

p5pRT commented 9 years ago

The RT System itself - Status changed from 'new' to 'open'

p5pRT commented 9 years ago

@cpansprout - Status changed from 'open' to 'resolved'