Commits

Toby Inkster committed 4fda2b5

skip tests involving ~~, given/when and my $_ in Perl >= 5.017

Comments (0)

Files changed (5)

 use Test::More;
 use Test::Requires "v5.10.0";
 
+BEGIN {
+	plan skip_all => "skipping lexical \$_ test in Perl >= 5.17" if $] >= 5.017;
+};
+
 use Scalar::Does -constants, 'overloads';
 
 $_ = [];
 use Test::More;
 use Test::Requires "v5.10.1";
 
+BEGIN {
+	plan skip_all => "skipping given/when test in Perl >= 5.17" if $] >= 5.017;
+};
+
 use feature qw(switch);
 use Scalar::Does -constants;
 

t/iod-02filehandles.t

 	}
 }
 
-if ($] >= 5.010)
+if ($] >= 5.010 and $] < 5.017)
 {
 	foreach (@handles)
 	{
 string
 FILENAME
 
-if ($] >= 5.010)
+if ($] >= 5.010 and $] < 5.017)
 {
 	eval q[
 		use IO::Detect -smartmatch, -default;
 	(map { URI->new($_) } @uris),
 );
 
-if ($] >= 5.010)
+if ($] >= 5.010 and $] < 5.017)
 {
 	eval q[
 		use IO::Detect -smartmatch, -default;