In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/1acbee7b20a7940bc8cedfb1e7b102d3028335e3?hp=a5468c61b56732d2b8dc7d6f4ea8a4cd7c6c7bde>
- Log -----------------------------------------------------------------
commit 1acbee7b20a7940bc8cedfb1e7b102d3028335e3
Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk>
Date: Mon Jun 3 15:11:38 2019 +0100
Update Test-Simple to CPAN version 1.302164
[DELTA]
1.302164 2019-04-27 01:43:44-07:00 America/Los_Angeles
1.302163 2019-04-25 05:45:47-07:00 America/Los_Angeles (TRIAL RELEASE)
- Do not use threads::Shared in Test::Tester::Capture (#826)
- Add missing version info to Info/Table
- Fix event in global destruction bug (#827)
- Proper fix for todo = '' (#812, #829)
-----------------------------------------------------------------------
Summary of changes:
Porting/Maintainers.pl | 2 +-
cpan/Test-Simple/lib/Test/Builder.pm | 7 ++++---
cpan/Test-Simple/lib/Test/Builder/Formatter.pm | 2 +-
cpan/Test-Simple/lib/Test/Builder/Module.pm | 9 ++++++++-
cpan/Test-Simple/lib/Test/Builder/Tester.pm | 2 +-
cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm | 2 +-
cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm | 2 +-
cpan/Test-Simple/lib/Test/More.pm | 2 +-
cpan/Test-Simple/lib/Test/Simple.pm | 2 +-
cpan/Test-Simple/lib/Test/Tester.pm | 2 +-
cpan/Test-Simple/lib/Test/Tester/Capture.pm | 12 +++---------
cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm | 2 +-
cpan/Test-Simple/lib/Test/Tester/Delegate.pm | 2 +-
cpan/Test-Simple/lib/Test/use/ok.pm | 2 +-
cpan/Test-Simple/lib/Test2.pm | 2 +-
cpan/Test-Simple/lib/Test2/API.pm | 19 ++++++++++++++++++-
cpan/Test-Simple/lib/Test2/API/Breakage.pm | 2 +-
cpan/Test-Simple/lib/Test2/API/Context.pm | 2 +-
cpan/Test-Simple/lib/Test2/API/Instance.pm | 2 +-
cpan/Test-Simple/lib/Test2/API/Stack.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Bail.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Diag.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Encoding.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Exception.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Fail.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Generic.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Note.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Ok.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Pass.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Plan.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Skip.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Subtest.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/TAP/Version.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/V2.pm | 2 +-
cpan/Test-Simple/lib/Test2/Event/Waiting.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/About.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/Amnesty.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/Assert.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/Control.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/Error.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/Hub.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/Info.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/Info/Table.pm | 2 ++
cpan/Test-Simple/lib/Test2/EventFacet/Meta.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/Parent.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/Plan.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/Render.pm | 2 +-
cpan/Test-Simple/lib/Test2/EventFacet/Trace.pm | 2 +-
cpan/Test-Simple/lib/Test2/Formatter.pm | 2 +-
cpan/Test-Simple/lib/Test2/Formatter/TAP.pm | 2 +-
cpan/Test-Simple/lib/Test2/Hub.pm | 2 +-
cpan/Test-Simple/lib/Test2/Hub/Interceptor.pm | 2 +-
.../lib/Test2/Hub/Interceptor/Terminator.pm | 2 +-
cpan/Test-Simple/lib/Test2/Hub/Subtest.pm | 2 +-
cpan/Test-Simple/lib/Test2/IPC.pm | 2 +-
cpan/Test-Simple/lib/Test2/IPC/Driver.pm | 2 +-
cpan/Test-Simple/lib/Test2/IPC/Driver/Files.pm | 2 +-
cpan/Test-Simple/lib/Test2/Tools/Tiny.pm | 2 +-
cpan/Test-Simple/lib/Test2/Util.pm | 2 +-
cpan/Test-Simple/lib/Test2/Util/ExternalMeta.pm | 2 +-
cpan/Test-Simple/lib/Test2/Util/Facets2Legacy.pm | 2 +-
cpan/Test-Simple/lib/Test2/Util/HashBase.pm | 2 +-
cpan/Test-Simple/lib/Test2/Util/Trace.pm | 2 +-
cpan/Test-Simple/lib/ok.pm | 2 +-
cpan/Test-Simple/t/regression/812-todo.t | 9 ++++++++-
67 files changed, 104 insertions(+), 76 deletions(-)
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index ae4dfc473b..313246d56d 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1050,7 +1050,7 @@ use File::Glob qw(:case);
},
'Test::Simple' => {
- 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302162.tar.gz',
+ 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302164.tar.gz',
'FILES' => q[cpan/Test-Simple],
'EXCLUDED' => [
qr{^examples/},
diff --git a/cpan/Test-Simple/lib/Test/Builder.pm
b/cpan/Test-Simple/lib/Test/Builder.pm
index b61bd5024d..29f527cbf7 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.302162';
+our $VERSION = '1.302164';
BEGIN {
if( $] < 5.008 ) {
@@ -63,7 +63,8 @@ sub _add_ts_hooks {
$todo = ${"$cpkg\::TODO"} if $cpkg;
$todo = ${"$epkg\::TODO"} if $epkg && !$todo;
- return $e unless defined $todo;
+ return $e unless defined($todo);
+ return $e unless length($todo);
# Turn a diag into a todo diag
return Test::Builder::TodoDiag->new(%$e) if ref($e) eq
'Test2::Event::Diag';
@@ -695,7 +696,7 @@ sub _ok_debug {
my $self = shift;
my ($trace, $orig_name) = @_;
- my $is_todo = defined($self->todo);
+ my $is_todo = $self->in_todo;
my $msg = $is_todo ? "Failed (TODO)" : "Failed";
diff --git a/cpan/Test-Simple/lib/Test/Builder/Formatter.pm
b/cpan/Test-Simple/lib/Test/Builder/Formatter.pm
index 3c29ffdaf2..65b1820cfb 100644
--- a/cpan/Test-Simple/lib/Test/Builder/Formatter.pm
+++ b/cpan/Test-Simple/lib/Test/Builder/Formatter.pm
@@ -2,7 +2,7 @@ package Test::Builder::Formatter;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
diff --git a/cpan/Test-Simple/lib/Test/Builder/Module.pm
b/cpan/Test-Simple/lib/Test/Builder/Module.pm
index 1ca914dee6..c941681ee5 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;
require Exporter;
our @ISA = qw(Exporter);
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
=head1 NAME
@@ -172,4 +172,11 @@ sub builder {
return Test::Builder->new;
}
+=head1 SEE ALSO
+
+L<< Test2::Manual::Tooling::TestBuilder >> describes the improved
+options for writing testing modules provided by L<< Test2 >>.
+
+=cut
+
1;
diff --git a/cpan/Test-Simple/lib/Test/Builder/Tester.pm
b/cpan/Test-Simple/lib/Test/Builder/Tester.pm
index 469336d875..64b5e3f780 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.302162';
+our $VERSION = '1.302164';
use Test::Builder;
use Symbol;
diff --git a/cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm
b/cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm
index 0bf39c60d7..bbbf1d6411 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.302162';
+our $VERSION = '1.302164';
require Test::Builder::Tester;
diff --git a/cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm
b/cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm
index 8ac230f71c..2fedaa861f 100644
--- a/cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm
+++ b/cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm
@@ -2,7 +2,7 @@ package Test::Builder::TodoDiag;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
diff --git a/cpan/Test-Simple/lib/Test/More.pm
b/cpan/Test-Simple/lib/Test/More.pm
index 473c86eba6..ebde89c069 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.302162';
+our $VERSION = '1.302164';
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
diff --git a/cpan/Test-Simple/lib/Test/Simple.pm
b/cpan/Test-Simple/lib/Test/Simple.pm
index 9218173bc5..24a7f53927 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.302162';
+our $VERSION = '1.302164';
use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
diff --git a/cpan/Test-Simple/lib/Test/Tester.pm
b/cpan/Test-Simple/lib/Test/Tester.pm
index 19cbf66571..40e334e20a 100644
--- a/cpan/Test-Simple/lib/Test/Tester.pm
+++ b/cpan/Test-Simple/lib/Test/Tester.pm
@@ -18,7 +18,7 @@ require Exporter;
use vars qw( @ISA @EXPORT );
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
@EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
@ISA = qw( Exporter );
diff --git a/cpan/Test-Simple/lib/Test/Tester/Capture.pm
b/cpan/Test-Simple/lib/Test/Tester/Capture.pm
index e28dbf8343..929b12b910 100644
--- a/cpan/Test-Simple/lib/Test/Tester/Capture.pm
+++ b/cpan/Test-Simple/lib/Test/Tester/Capture.pm
@@ -2,7 +2,7 @@ use strict;
package Test::Tester::Capture;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Test::Builder;
@@ -13,14 +13,8 @@ use vars qw( @ISA );
# Make Test::Tester::Capture thread-safe for ithreads.
BEGIN {
use Config;
- if( $] >= 5.008 && $Config{useithreads} ) {
- require threads::shared;
- threads::shared->import;
- }
- else {
- *share = sub { 0 };
- *lock = sub { 0 };
- }
+ *share = sub { 0 };
+ *lock = sub { 0 };
}
my $Curr_Test = 0; share($Curr_Test);
diff --git a/cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
b/cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
index 7cf3c0f0b5..b8f1460d3b 100644
--- a/cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
+++ b/cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
@@ -3,7 +3,7 @@ use strict;
package Test::Tester::CaptureRunner;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Test::Tester::Capture;
diff --git a/cpan/Test-Simple/lib/Test/Tester/Delegate.pm
b/cpan/Test-Simple/lib/Test/Tester/Delegate.pm
index ebfd4e2168..b287463853 100644
--- a/cpan/Test-Simple/lib/Test/Tester/Delegate.pm
+++ b/cpan/Test-Simple/lib/Test/Tester/Delegate.pm
@@ -3,7 +3,7 @@ use warnings;
package Test::Tester::Delegate;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Scalar::Util();
diff --git a/cpan/Test-Simple/lib/Test/use/ok.pm
b/cpan/Test-Simple/lib/Test/use/ok.pm
index a81bbfb64a..fa376b0647 100644
--- a/cpan/Test-Simple/lib/Test/use/ok.pm
+++ b/cpan/Test-Simple/lib/Test/use/ok.pm
@@ -1,7 +1,7 @@
package Test::use::ok;
use 5.005;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
__END__
diff --git a/cpan/Test-Simple/lib/Test2.pm b/cpan/Test-Simple/lib/Test2.pm
index 98c5391da9..95afc4bbe8 100644
--- a/cpan/Test-Simple/lib/Test2.pm
+++ b/cpan/Test-Simple/lib/Test2.pm
@@ -2,7 +2,7 @@ package Test2;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
1;
diff --git a/cpan/Test-Simple/lib/Test2/API.pm
b/cpan/Test-Simple/lib/Test2/API.pm
index 8193b07366..745da15e15 100644
--- a/cpan/Test-Simple/lib/Test2/API.pm
+++ b/cpan/Test-Simple/lib/Test2/API.pm
@@ -9,7 +9,7 @@ BEGIN {
$ENV{TEST2_ACTIVE} = 1;
}
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
my $INST;
@@ -322,6 +322,23 @@ sub context {
my $stack = $params{stack} || $STACK;
my $hub = $params{hub} || (@$stack ? $stack->[-1] : $stack->top);
+
+ # Catch an edge case where we try to get context after the root hub has
+ # been garbage collected resulting in a stack that has a single undef
+ # hub
+ if (!$hub && !exists($params{hub}) && @$stack) {
+ my $msg = Carp::longmess("Attempt to get Test2 context after testing
has completed (did you attempt a testing event after done_testing?)");
+
+ # The error message is usually masked by the global destruction, so we
have to print to STDER
+ print STDERR $msg;
+
+ # Make sure this is a failure, we are probably already in END, so set
$? to change the exit code
+ $? = 1;
+
+ # Now we actually die to interrupt the program flow and avoid
undefined his warnings
+ die $msg;
+ }
+
my $hid = $hub->{hid};
my $current = $CONTEXTS->{$hid};
diff --git a/cpan/Test-Simple/lib/Test2/API/Breakage.pm
b/cpan/Test-Simple/lib/Test2/API/Breakage.pm
index ffcf1be582..be92ec117e 100644
--- a/cpan/Test-Simple/lib/Test2/API/Breakage.pm
+++ b/cpan/Test-Simple/lib/Test2/API/Breakage.pm
@@ -2,7 +2,7 @@ package Test2::API::Breakage;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Test2::Util qw/pkg_to_file/;
diff --git a/cpan/Test-Simple/lib/Test2/API/Context.pm
b/cpan/Test-Simple/lib/Test2/API/Context.pm
index 9cb1cfca72..e329346c51 100644
--- a/cpan/Test-Simple/lib/Test2/API/Context.pm
+++ b/cpan/Test-Simple/lib/Test2/API/Context.pm
@@ -2,7 +2,7 @@ package Test2::API::Context;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Carp qw/confess croak/;
diff --git a/cpan/Test-Simple/lib/Test2/API/Instance.pm
b/cpan/Test-Simple/lib/Test2/API/Instance.pm
index 1cf224cf06..37ad258a19 100644
--- a/cpan/Test-Simple/lib/Test2/API/Instance.pm
+++ b/cpan/Test-Simple/lib/Test2/API/Instance.pm
@@ -2,7 +2,7 @@ package Test2::API::Instance;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver
Test2::Formatter/;
use Carp qw/confess carp/;
diff --git a/cpan/Test-Simple/lib/Test2/API/Stack.pm
b/cpan/Test-Simple/lib/Test2/API/Stack.pm
index ffa4ed57f0..3cd0a3a4b1 100644
--- a/cpan/Test-Simple/lib/Test2/API/Stack.pm
+++ b/cpan/Test-Simple/lib/Test2/API/Stack.pm
@@ -2,7 +2,7 @@ package Test2::API::Stack;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Test2::Hub();
diff --git a/cpan/Test-Simple/lib/Test2/Event.pm
b/cpan/Test-Simple/lib/Test2/Event.pm
index 598456c1dc..a7376ebb84 100644
--- a/cpan/Test-Simple/lib/Test2/Event.pm
+++ b/cpan/Test-Simple/lib/Test2/Event.pm
@@ -2,7 +2,7 @@ package Test2::Event;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Scalar::Util qw/blessed reftype/;
use Carp qw/croak/;
diff --git a/cpan/Test-Simple/lib/Test2/Event/Bail.pm
b/cpan/Test-Simple/lib/Test2/Event/Bail.pm
index 4fa83c4899..af14d10676 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Bail.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Bail.pm
@@ -2,7 +2,7 @@ package Test2::Event::Bail;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
diff --git a/cpan/Test-Simple/lib/Test2/Event/Diag.pm
b/cpan/Test-Simple/lib/Test2/Event/Diag.pm
index 86617f8afc..06b0df86c4 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Diag.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Diag.pm
@@ -2,7 +2,7 @@ package Test2::Event::Diag;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
diff --git a/cpan/Test-Simple/lib/Test2/Event/Encoding.pm
b/cpan/Test-Simple/lib/Test2/Event/Encoding.pm
index 12071637af..a04bcd2091 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Encoding.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Encoding.pm
@@ -2,7 +2,7 @@ package Test2::Event::Encoding;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Carp qw/croak/;
diff --git a/cpan/Test-Simple/lib/Test2/Event/Exception.pm
b/cpan/Test-Simple/lib/Test2/Event/Exception.pm
index 66bbdb4fb4..c7a2e4f75d 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Exception.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Exception.pm
@@ -2,7 +2,7 @@ package Test2::Event::Exception;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
diff --git a/cpan/Test-Simple/lib/Test2/Event/Fail.pm
b/cpan/Test-Simple/lib/Test2/Event/Fail.pm
index 2577cd9338..1a040b2952 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Fail.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Fail.pm
@@ -2,7 +2,7 @@ package Test2::Event::Fail;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Test2::EventFacet::Info;
diff --git a/cpan/Test-Simple/lib/Test2/Event/Generic.pm
b/cpan/Test-Simple/lib/Test2/Event/Generic.pm
index 02619d9a17..d95ab53cec 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Generic.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Generic.pm
@@ -5,7 +5,7 @@ use warnings;
use Carp qw/croak/;
use Scalar::Util qw/reftype/;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use Test2::Util::HashBase;
diff --git a/cpan/Test-Simple/lib/Test2/Event/Note.pm
b/cpan/Test-Simple/lib/Test2/Event/Note.pm
index 3dd0999844..30d87444e4 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Note.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Note.pm
@@ -2,7 +2,7 @@ package Test2::Event::Note;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
diff --git a/cpan/Test-Simple/lib/Test2/Event/Ok.pm
b/cpan/Test-Simple/lib/Test2/Event/Ok.pm
index 7a603b40ca..3966f8649c 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Ok.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Ok.pm
@@ -2,7 +2,7 @@ package Test2::Event::Ok;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
diff --git a/cpan/Test-Simple/lib/Test2/Event/Pass.pm
b/cpan/Test-Simple/lib/Test2/Event/Pass.pm
index 4672623430..14c5eb81ee 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Pass.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Pass.pm
@@ -2,7 +2,7 @@ package Test2::Event::Pass;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Test2::EventFacet::Info;
diff --git a/cpan/Test-Simple/lib/Test2/Event/Plan.pm
b/cpan/Test-Simple/lib/Test2/Event/Plan.pm
index 00b63970f7..dd9c07627f 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Plan.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Plan.pm
@@ -2,7 +2,7 @@ package Test2::Event::Plan;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
diff --git a/cpan/Test-Simple/lib/Test2/Event/Skip.pm
b/cpan/Test-Simple/lib/Test2/Event/Skip.pm
index 07db32932a..28204a1cd9 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Skip.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Skip.pm
@@ -2,7 +2,7 @@ package Test2::Event::Skip;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
diff --git a/cpan/Test-Simple/lib/Test2/Event/Subtest.pm
b/cpan/Test-Simple/lib/Test2/Event/Subtest.pm
index 92e3f6dfa1..01a5115647 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Subtest.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Subtest.pm
@@ -2,7 +2,7 @@ package Test2::Event::Subtest;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid};
diff --git a/cpan/Test-Simple/lib/Test2/Event/TAP/Version.pm
b/cpan/Test-Simple/lib/Test2/Event/TAP/Version.pm
index cf7d773e1f..a018df58e9 100644
--- a/cpan/Test-Simple/lib/Test2/Event/TAP/Version.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/TAP/Version.pm
@@ -2,7 +2,7 @@ package Test2::Event::TAP::Version;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Carp qw/croak/;
diff --git a/cpan/Test-Simple/lib/Test2/Event/V2.pm
b/cpan/Test-Simple/lib/Test2/Event/V2.pm
index 020cf2348e..451a8d2c8e 100644
--- a/cpan/Test-Simple/lib/Test2/Event/V2.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/V2.pm
@@ -2,7 +2,7 @@ package Test2::Event::V2;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Scalar::Util qw/reftype/;
use Carp qw/croak/;
diff --git a/cpan/Test-Simple/lib/Test2/Event/Waiting.pm
b/cpan/Test-Simple/lib/Test2/Event/Waiting.pm
index 4b790a6ff9..df0fc1cf60 100644
--- a/cpan/Test-Simple/lib/Test2/Event/Waiting.pm
+++ b/cpan/Test-Simple/lib/Test2/Event/Waiting.pm
@@ -2,7 +2,7 @@ package Test2::Event::Waiting;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet.pm
b/cpan/Test-Simple/lib/Test2/EventFacet.pm
index d9fb03f451..efe1e84866 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Test2::Util::HashBase qw/-details/;
use Carp qw/croak/;
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/About.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/About.pm
index fc36d2766a..fa7ea1ee9f 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/About.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/About.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::About;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -package -no_display -uuid -eid };
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Amnesty.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Amnesty.pm
index ac72cf3890..adf9e3094b 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Amnesty.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Amnesty.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::Amnesty;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
sub is_list { 1 }
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Assert.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Assert.pm
index a11aef1569..3fb85dc972 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Assert.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Assert.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::Assert;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -pass -no_debug -number };
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Control.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Control.pm
index 6ea0eaef40..10e055f195 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Control.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Control.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::Control;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -global -terminate -halt -has_callback -encoding
};
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Error.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Error.pm
index 4a21ef7e28..6cdb19a705 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Error.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Error.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::Error;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
sub facet_key { 'errors' }
sub is_list { 1 }
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Hub.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Hub.pm
index 40b9d65802..61a32899bd 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Hub.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Hub.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::Hub;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
sub is_list { 1 }
sub facet_key { 'hubs' }
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Info.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Info.pm
index c382049480..a7c003ebf0 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Info.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Info.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::Info;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
sub is_list { 1 }
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Info/Table.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Info/Table.pm
index 64bd95539a..6e33cd78ac 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Info/Table.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Info/Table.pm
@@ -2,6 +2,8 @@ package Test2::EventFacet::Info::Table;
use strict;
use warnings;
+our $VERSION = '1.302164';
+
use Carp qw/confess/;
use Test2::Util::HashBase qw{-header -rows -collapse -no_collapse -as_string};
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Meta.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Meta.pm
index dc369ff2b1..c028ba77d8 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Meta.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Meta.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::Meta;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use vars qw/$AUTOLOAD/;
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Parent.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Parent.pm
index d36fd92b27..0757dafd9b 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Parent.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Parent.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::Parent;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Carp qw/confess/;
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Plan.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Plan.pm
index 2f14f7d69e..f1f7cbf453 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Plan.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Plan.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::Plan;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
use Test2::Util::HashBase qw{ -count -skip -none };
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Render.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Render.pm
index 07c454365a..ddb0495efc 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Render.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Render.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::Render;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
sub is_list { 1 }
diff --git a/cpan/Test-Simple/lib/Test2/EventFacet/Trace.pm
b/cpan/Test-Simple/lib/Test2/EventFacet/Trace.pm
index 34a3fce7ad..b32378aa8d 100644
--- a/cpan/Test-Simple/lib/Test2/EventFacet/Trace.pm
+++ b/cpan/Test-Simple/lib/Test2/EventFacet/Trace.pm
@@ -2,7 +2,7 @@ package Test2::EventFacet::Trace;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
diff --git a/cpan/Test-Simple/lib/Test2/Formatter.pm
b/cpan/Test-Simple/lib/Test2/Formatter.pm
index c4515d8c41..a4d430682a 100644
--- a/cpan/Test-Simple/lib/Test2/Formatter.pm
+++ b/cpan/Test-Simple/lib/Test2/Formatter.pm
@@ -2,7 +2,7 @@ package Test2::Formatter;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
my %ADDED;
diff --git a/cpan/Test-Simple/lib/Test2/Formatter/TAP.pm
b/cpan/Test-Simple/lib/Test2/Formatter/TAP.pm
index 25961bf737..a1194cd3f6 100644
--- a/cpan/Test-Simple/lib/Test2/Formatter/TAP.pm
+++ b/cpan/Test-Simple/lib/Test2/Formatter/TAP.pm
@@ -2,7 +2,7 @@ package Test2::Formatter::TAP;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Test2::Util qw/clone_io/;
diff --git a/cpan/Test-Simple/lib/Test2/Hub.pm
b/cpan/Test-Simple/lib/Test2/Hub.pm
index a5706e5677..ff4cb8249b 100644
--- a/cpan/Test-Simple/lib/Test2/Hub.pm
+++ b/cpan/Test-Simple/lib/Test2/Hub.pm
@@ -2,7 +2,7 @@ package Test2::Hub;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Carp qw/carp croak confess/;
diff --git a/cpan/Test-Simple/lib/Test2/Hub/Interceptor.pm
b/cpan/Test-Simple/lib/Test2/Hub/Interceptor.pm
index cd459ada06..b7eaa0f080 100644
--- a/cpan/Test-Simple/lib/Test2/Hub/Interceptor.pm
+++ b/cpan/Test-Simple/lib/Test2/Hub/Interceptor.pm
@@ -2,7 +2,7 @@ package Test2::Hub::Interceptor;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Test2::Hub::Interceptor::Terminator();
diff --git a/cpan/Test-Simple/lib/Test2/Hub/Interceptor/Terminator.pm
b/cpan/Test-Simple/lib/Test2/Hub/Interceptor/Terminator.pm
index 6f44b08bcd..c30870331b 100644
--- a/cpan/Test-Simple/lib/Test2/Hub/Interceptor/Terminator.pm
+++ b/cpan/Test-Simple/lib/Test2/Hub/Interceptor/Terminator.pm
@@ -2,7 +2,7 @@ package Test2::Hub::Interceptor::Terminator;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
1;
diff --git a/cpan/Test-Simple/lib/Test2/Hub/Subtest.pm
b/cpan/Test-Simple/lib/Test2/Hub/Subtest.pm
index 52d5b4e0fa..60937a1bc7 100644
--- a/cpan/Test-Simple/lib/Test2/Hub/Subtest.pm
+++ b/cpan/Test-Simple/lib/Test2/Hub/Subtest.pm
@@ -2,7 +2,7 @@ package Test2::Hub::Subtest;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
use Test2::Util::HashBase qw/nested exit_code manual_skip_all/;
diff --git a/cpan/Test-Simple/lib/Test2/IPC.pm
b/cpan/Test-Simple/lib/Test2/IPC.pm
index b2a503bfa7..b6cd999d6c 100644
--- a/cpan/Test-Simple/lib/Test2/IPC.pm
+++ b/cpan/Test-Simple/lib/Test2/IPC.pm
@@ -2,7 +2,7 @@ package Test2::IPC;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Test2::API::Instance;
diff --git a/cpan/Test-Simple/lib/Test2/IPC/Driver.pm
b/cpan/Test-Simple/lib/Test2/IPC/Driver.pm
index dbcb7004b3..3ee1d76a8c 100644
--- a/cpan/Test-Simple/lib/Test2/IPC/Driver.pm
+++ b/cpan/Test-Simple/lib/Test2/IPC/Driver.pm
@@ -2,7 +2,7 @@ package Test2::IPC::Driver;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Carp qw/confess/;
diff --git a/cpan/Test-Simple/lib/Test2/IPC/Driver/Files.pm
b/cpan/Test-Simple/lib/Test2/IPC/Driver/Files.pm
index f6d7ff1b2c..3b8574bf4c 100644
--- a/cpan/Test-Simple/lib/Test2/IPC/Driver/Files.pm
+++ b/cpan/Test-Simple/lib/Test2/IPC/Driver/Files.pm
@@ -2,7 +2,7 @@ package Test2::IPC::Driver::Files;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) }
diff --git a/cpan/Test-Simple/lib/Test2/Tools/Tiny.pm
b/cpan/Test-Simple/lib/Test2/Tools/Tiny.pm
index 4da76a79ba..89018a9587 100644
--- a/cpan/Test-Simple/lib/Test2/Tools/Tiny.pm
+++ b/cpan/Test-Simple/lib/Test2/Tools/Tiny.pm
@@ -16,7 +16,7 @@ use Test2::API qw/context run_subtest test2_stack/;
use Test2::Hub::Interceptor();
use Test2::Hub::Interceptor::Terminator();
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
BEGIN { require Exporter; our @ISA = qw(Exporter) }
our @EXPORT = qw{
diff --git a/cpan/Test-Simple/lib/Test2/Util.pm
b/cpan/Test-Simple/lib/Test2/Util.pm
index c4a865e9b1..55c85a0564 100644
--- a/cpan/Test-Simple/lib/Test2/Util.pm
+++ b/cpan/Test-Simple/lib/Test2/Util.pm
@@ -2,7 +2,7 @@ package Test2::Util;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use POSIX();
use Config qw/%Config/;
diff --git a/cpan/Test-Simple/lib/Test2/Util/ExternalMeta.pm
b/cpan/Test-Simple/lib/Test2/Util/ExternalMeta.pm
index dbd819feea..611d47fe6c 100644
--- a/cpan/Test-Simple/lib/Test2/Util/ExternalMeta.pm
+++ b/cpan/Test-Simple/lib/Test2/Util/ExternalMeta.pm
@@ -2,7 +2,7 @@ package Test2::Util::ExternalMeta;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Carp qw/croak/;
diff --git a/cpan/Test-Simple/lib/Test2/Util/Facets2Legacy.pm
b/cpan/Test-Simple/lib/Test2/Util/Facets2Legacy.pm
index 812282d157..28a36da872 100644
--- a/cpan/Test-Simple/lib/Test2/Util/Facets2Legacy.pm
+++ b/cpan/Test-Simple/lib/Test2/Util/Facets2Legacy.pm
@@ -2,7 +2,7 @@ package Test2::Util::Facets2Legacy;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use Carp qw/croak confess/;
use Scalar::Util qw/blessed/;
diff --git a/cpan/Test-Simple/lib/Test2/Util/HashBase.pm
b/cpan/Test-Simple/lib/Test2/Util/HashBase.pm
index c34db5fc56..99ca8dee86 100644
--- a/cpan/Test-Simple/lib/Test2/Util/HashBase.pm
+++ b/cpan/Test-Simple/lib/Test2/Util/HashBase.pm
@@ -2,7 +2,7 @@ package Test2::Util::HashBase;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
#################################################################
# #
diff --git a/cpan/Test-Simple/lib/Test2/Util/Trace.pm
b/cpan/Test-Simple/lib/Test2/Util/Trace.pm
index 28124f3406..02d385bfeb 100644
--- a/cpan/Test-Simple/lib/Test2/Util/Trace.pm
+++ b/cpan/Test-Simple/lib/Test2/Util/Trace.pm
@@ -2,7 +2,7 @@ package Test2::Util::Trace;
require Test2::EventFacet::Trace;
@ISA = ('Test2::EventFacet::Trace');
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
1;
diff --git a/cpan/Test-Simple/lib/ok.pm b/cpan/Test-Simple/lib/ok.pm
index 66dcad8635..4fe4154de9 100644
--- a/cpan/Test-Simple/lib/ok.pm
+++ b/cpan/Test-Simple/lib/ok.pm
@@ -1,5 +1,5 @@
package ok;
-our $VERSION = '1.302162';
+our $VERSION = '1.302164';
use strict;
use Test::More ();
diff --git a/cpan/Test-Simple/t/regression/812-todo.t
b/cpan/Test-Simple/t/regression/812-todo.t
index dd4e0b4646..f3acb5ccc4 100644
--- a/cpan/Test-Simple/t/regression/812-todo.t
+++ b/cpan/Test-Simple/t/regression/812-todo.t
@@ -5,7 +5,6 @@ use Test2::API qw/intercept/;
use Test::More;
my @values = (
- "", # false but defined -> inconsistent
0, # false but defined -> inconsistent
0.0, # false but defined -> inconsistent
"0.0", # true -> TODO
@@ -18,4 +17,12 @@ for my $value (@values) {
fail "Testing: $x";
}
+my $e = intercept {
+ local $TODO = "";
+ fail "Testing: '\"\"'";
+};
+
+ok(!$e->[0]->effective_pass, "Test was not TODO when set to \"\"");
+like($e->[1]->message, qr/Failed test '/, "Did not add TODO to the
diagnostics");
+
done_testing;
--
Perl5 Master Repository
