t/ - Given is deprecated in 5.37.10, do not test it

This silences vast numbers of warnings, and will prevent the module
from breaking in 5.42.

diff --git a/t/05-words.t b/t/05-words.t
index 9fe39ff5567399a86216440453bda179d794c4a2..a5acb6b904aacf53da1a3ba93e0e5e5d38e02345 100644 (file)
--- a/t/05-words.t
+++ b/t/05-words.t
@@ -339,8 +339,11 @@ $var =~ s{.}{do { my $x; UP }}e;
 is $var, 1, 'subst : do block preserved' unless $^P;
 
 SKIP: {
- skip 'Perl 5.10 required to test given/when' => 4 * ($^P ? 4 : 5) + 4
-                                                                if "$]" < 5.010;
+ my $skip_count = 4 * ($^P ? 4 : 5) + 4;
+ skip 'Perl 5.10 required to test given/when'
+      => $skip_count if "$]" < 5.010;
+ skip 'Not testing deprecated given/when on Perl 5.37.10 or later'
+      => $skip_count if "$]" >= 5.037010;
 
  eval <<'TEST_GIVEN';
   BEGIN {

diff --git a/t/13-reap-ctl.t b/t/13-reap-ctl.t
index 085cc050baacdca23e8643b9ab15866916363716..d7a7f14057f84c11463bd544ed0154e02bc75bae 100644 (file)
--- a/t/13-reap-ctl.t
+++ b/t/13-reap-ctl.t
@@ -138,6 +138,8 @@ $y = undef;
 SKIP:
 {
  skip 'Perl 5.10 required to test given/when' => 30 if "$]" < 5.010;
+ skip 'Not testing deprecated given/when on Perl 5.37.10 or later'
+      => 30 if "$]" >= 5.037010;
 
  eval <<' GIVEN_TEST_1';
   BEGIN {

diff --git a/t/23-localize-ctl.t b/t/23-localize-ctl.t
index b72be227f4a8ca94783e56af611df612761852e0..aaefdb636b8d1222b43c17d3d180ca76c160d4a7 100644 (file)
--- a/t/23-localize-ctl.t
+++ b/t/23-localize-ctl.t
@@ -191,6 +191,8 @@ $y = undef;
 SKIP:
 {
  skip 'Perl 5.10 required to test given/when' => 30 if "$]" < 5.010;
+ skip 'Not testing deprecated given/when on Perl 5.37.10 or later'
+      => 30 if "$]" >= 5.037010;
 
  eval <<' GIVEN_TEST_1';
   BEGIN {

diff --git a/t/55-yield-target.t b/t/55-yield-target.t
index ced05c8bbcdca6c6d7fb5ed9b80b887420210d07..682d4cc9758b6a6b80f90e6c677e815217bc7b61 100644 (file)
--- a/t/55-yield-target.t
+++ b/t/55-yield-target.t
@@ -81,6 +81,8 @@ SKIP: {
 SKIP: {
  skip 'perl 5.10 is required to test interaction with given/when' => 6
                                                                 if "$]" < 5.010;
+ skip 'Not testing deprecated given/when on Perl 5.37.10 or later'
+      => 6 if "$]" >= 5.037010;
 
  @res = eval <<'TESTCASE';
   BEGIN {

diff --git a/t/lib/Scope/Upper/TestGenerator.pm b/t/lib/Scope/Upper/TestGenerator.pm
index b4f6e1b6762d26e8aa179c468adbf54da8e70b6f..df175acf540437ed4f509e9a796fb56617fdd819 100644 (file)
--- a/t/lib/Scope/Upper/TestGenerator.pm
+++ b/t/lib/Scope/Upper/TestGenerator.pm
@@ -32,7 +32,7 @@ my @blocks = (
  [ 'eval q[',   '];' ],
 );
 
-push @blocks, [ 'given (1) {', '}' ] if "$]" >= 5.010_001;
+push @blocks, [ 'given (1) {', '}' ] if "$]" >= 5.010_001 and "$]" < 5.037_010;
 
 my %exports = (
  verbose_is => \&verbose_is,