update Test-Simple 1.302207 -> 1.302209

Perl · Feb 5, 2025 · 633ac22 · 633ac22
1 parent b9f3364
commit 633ac22
Show file tree

Hide file tree

Showing 198 changed files with 341 additions and 254 deletions.
diff --git a/MANIFEST b/MANIFEST
@@ -2709,6 +2709,7 @@ cpan/Test-Simple/lib/Test2/Util/Guard.pm					Test-Simple
 cpan/Test-Simple/lib/Test2/Util/HashBase.pm					Module related to Test::Simple
 cpan/Test-Simple/lib/Test2/Util/Importer.pm					Test-Simple
 cpan/Test-Simple/lib/Test2/Util/Ref.pm						Test-Simple
+cpan/Test-Simple/lib/Test2/Util/Sig.pm						Test-Simple
 cpan/Test-Simple/lib/Test2/Util/Stash.pm					Test-Simple
 cpan/Test-Simple/lib/Test2/Util/Sub.pm						Test-Simple
 cpan/Test-Simple/lib/Test2/Util/Table.pm					Test-Simple

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
@@ -1126,8 +1126,8 @@ package Maintainers;
     },
 
     'Test::Simple' => {
-        'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302207.tar.gz',
-        'SYNCINFO'     => 'jkeenan on Sun Jan  5 06:26:14 2025',
+        'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302209.tar.gz',
+        'SYNCINFO'     => 'eric on Wed Feb  5 17:23:19 2025',
         '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
@@ -4,7 +4,7 @@ use 5.006;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use Scalar::Util qw/blessed reftype weaken/;
 
@@ -963,13 +963,23 @@ sub cmp_ok {
         # over it, which can lead to issues with Devel::Cover
         my $bits_code = defined $warning_bits ? qq["\Q$warning_bits\E"] : 'undef';
 
-        # This is so that warnings come out at the caller's level
+        # Make sure warnings and location matches the caller. Can't do the
+        # comparison directly in the eval, as closing over variables can
+        # capture them forever when running with Devel::Cover.
+        my $check;
         $succ = eval qq[
 BEGIN {\${^WARNING_BITS} = $bits_code};
 #line $line "(eval in cmp_ok) $file"
-\$test = (\$got $type \$expect);
+\$check = sub { \$_[0] $type \$_[1] };
 1;
 ];
+
+        if ($succ) {
+            $succ = eval {
+                $test = $check->($got, $expect);
+                1;
+            };
+        }
         $error = $@;
     }
     local $Level = $Level + 1;

diff --git 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.302207';
+our $VERSION = '1.302209';
 
 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
@@ -7,7 +7,7 @@ use Test::Builder;
 require Exporter;
 our @ISA = qw(Exporter);
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 
 =head1 NAME

diff --git 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.302207';
+our $VERSION = '1.302209';
 
 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
@@ -1,7 +1,7 @@
 package Test::Builder::Tester::Color;
 
 use strict;
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 require Test::Builder::Tester;
 

diff --git 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.302207';
+our $VERSION = '1.302209';
 
 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
@@ -17,7 +17,7 @@ sub _carp {
     return warn @_, " at $file line $line\n";
 }
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 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
@@ -4,7 +4,7 @@ use 5.006;
 
 use strict;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 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
@@ -16,7 +16,7 @@ use Test::Tester::Delegate;
 
 require Exporter;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 our @EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
 our @ISA = qw( Exporter );

diff --git 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.302207';
+our $VERSION = '1.302209';
 
 
 use Test::Builder;

diff --git 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.302207';
+our $VERSION = '1.302209';
 
 
 use Test::Tester::Capture;

diff --git 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.302207';
+our $VERSION = '1.302209';
 
 use Scalar::Util();
 

diff --git 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.302207';
+our $VERSION = '1.302209';
 
 
 __END__

diff --git 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.302207';
+our $VERSION = '1.302209';
 
 
 1;

diff --git a/cpan/Test-Simple/lib/Test2/API.pm b/cpan/Test-Simple/lib/Test2/API.pm
@@ -10,7 +10,7 @@ BEGIN {
     $ENV{TEST2_ACTIVE} = 1;
 }
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 
 my $INST;

diff --git 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.302207';
+our $VERSION = '1.302209';
 
 
 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
@@ -2,7 +2,7 @@ package Test2::API::Context;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 
 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
@@ -2,7 +2,7 @@ package Test2::API::Instance;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 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/InterceptResult.pm b/cpan/Test-Simple/lib/Test2/API/InterceptResult.pm
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use Scalar::Util qw/blessed/;
 use Test2::Util  qw/pkg_to_file/;

diff --git a/cpan/Test-Simple/lib/Test2/API/InterceptResult/Event.pm b/cpan/Test-Simple/lib/Test2/API/InterceptResult/Event.pm
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Event;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use List::Util   qw/first/;
 use Test2::Util  qw/pkg_to_file/;

diff --git a/cpan/Test-Simple/lib/Test2/API/InterceptResult/Facet.pm b/cpan/Test-Simple/lib/Test2/API/InterceptResult/Facet.pm
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Facet;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 BEGIN {
     require Test2::EventFacet;

diff --git a/cpan/Test-Simple/lib/Test2/API/InterceptResult/Hub.pm b/cpan/Test-Simple/lib/Test2/API/InterceptResult/Hub.pm
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Hub;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
 use Test2::Util::HashBase;

diff --git a/cpan/Test-Simple/lib/Test2/API/InterceptResult/Squasher.pm b/cpan/Test-Simple/lib/Test2/API/InterceptResult/Squasher.pm
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Squasher;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use Carp qw/croak/;
 use List::Util qw/first/;

diff --git 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.302207';
+our $VERSION = '1.302209';
 
 
 use Test2::Hub();

diff --git a/cpan/Test-Simple/lib/Test2/AsyncSubtest.pm b/cpan/Test-Simple/lib/Test2/AsyncSubtest.pm
@@ -4,7 +4,7 @@ use warnings;
 
 use Test2::IPC;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 our @CARP_NOT = qw/Test2::Util::HashBase/;
 

diff --git a/cpan/Test-Simple/lib/Test2/AsyncSubtest/Event/Attach.pm b/cpan/Test-Simple/lib/Test2/AsyncSubtest/Event/Attach.pm
@@ -2,7 +2,7 @@ package Test2::AsyncSubtest::Event::Attach;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use base 'Test2::Event';
 use Test2::Util::HashBase qw/id/;

diff --git a/cpan/Test-Simple/lib/Test2/AsyncSubtest/Event/Detach.pm b/cpan/Test-Simple/lib/Test2/AsyncSubtest/Event/Detach.pm
@@ -2,7 +2,7 @@ package Test2::AsyncSubtest::Event::Detach;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use base 'Test2::Event';
 use Test2::Util::HashBase qw/id/;

diff --git a/cpan/Test-Simple/lib/Test2/AsyncSubtest/Formatter.pm b/cpan/Test-Simple/lib/Test2/AsyncSubtest/Formatter.pm
@@ -2,7 +2,7 @@ package Test2::AsyncSubtest::Formatter;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 die "Should not load this anymore";
 

diff --git a/cpan/Test-Simple/lib/Test2/AsyncSubtest/Hub.pm b/cpan/Test-Simple/lib/Test2/AsyncSubtest/Hub.pm
@@ -2,7 +2,7 @@ package Test2::AsyncSubtest::Hub;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use base 'Test2::Hub::Subtest';
 use Test2::Util::HashBase qw/ast_ids ast/;

diff --git a/cpan/Test-Simple/lib/Test2/Bundle.pm b/cpan/Test-Simple/lib/Test2/Bundle.pm
@@ -2,7 +2,7 @@ package Test2::Bundle;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 1;
 

diff --git a/cpan/Test-Simple/lib/Test2/Bundle/Extended.pm b/cpan/Test-Simple/lib/Test2/Bundle/Extended.pm
@@ -4,7 +4,7 @@ use warnings;
 
 use Test2::V0;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 BEGIN {
     push @Test2::Bundle::Extended::ISA => 'Test2::V0';

diff --git a/cpan/Test-Simple/lib/Test2/Bundle/More.pm b/cpan/Test-Simple/lib/Test2/Bundle/More.pm
@@ -2,7 +2,7 @@ package Test2::Bundle::More;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use Test2::Plugin::ExitSummary;
 

diff --git a/cpan/Test-Simple/lib/Test2/Bundle/Simple.pm b/cpan/Test-Simple/lib/Test2/Bundle/Simple.pm
@@ -2,7 +2,7 @@ package Test2::Bundle::Simple;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use Test2::Plugin::ExitSummary;
 

diff --git a/cpan/Test-Simple/lib/Test2/Compare.pm b/cpan/Test-Simple/lib/Test2/Compare.pm
@@ -2,7 +2,7 @@ package Test2::Compare;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use Scalar::Util qw/blessed/;
 use Test2::Util qw/try/;

diff --git a/cpan/Test-Simple/lib/Test2/Compare/Array.pm b/cpan/Test-Simple/lib/Test2/Compare/Array.pm
@@ -4,7 +4,7 @@ use warnings;
 
 use base 'Test2::Compare::Base';
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use Test2::Util::HashBase qw/inref meta ending items order for_each/;
 

diff --git a/cpan/Test-Simple/lib/Test2/Compare/Bag.pm b/cpan/Test-Simple/lib/Test2/Compare/Bag.pm
@@ -4,7 +4,7 @@ use warnings;
 
 use base 'Test2::Compare::Base';
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use Test2::Util::HashBase qw/ending meta items for_each/;
 

diff --git a/cpan/Test-Simple/lib/Test2/Compare/Base.pm b/cpan/Test-Simple/lib/Test2/Compare/Base.pm
@@ -2,7 +2,7 @@ package Test2::Compare::Base;
 use strict;
 use warnings;
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use Carp qw/confess croak/;
 use Scalar::Util qw/blessed/;

diff --git a/cpan/Test-Simple/lib/Test2/Compare/Bool.pm b/cpan/Test-Simple/lib/Test2/Compare/Bool.pm
@@ -6,7 +6,7 @@ use Carp qw/confess/;
 
 use base 'Test2::Compare::Base';
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use Test2::Util::HashBase qw/input/;
 

diff --git a/cpan/Test-Simple/lib/Test2/Compare/Custom.pm b/cpan/Test-Simple/lib/Test2/Compare/Custom.pm
@@ -4,7 +4,7 @@ use warnings;
 
 use base 'Test2::Compare::Base';
 
-our $VERSION = '1.302207';
+our $VERSION = '1.302209';
 
 use Test2::Util::HashBase qw/code name operator stringify_got/;