clean up module hiding in tests

diff --git a/t/legacy.t b/t/legacy.t
index 1df4790..0fe9e40 100644 (file)
--- a/t/legacy.t
+++ b/t/legacy.t
@@ -3,8 +3,8 @@ use warnings;
 
 # hide Cpanel::JSON::XS
 use lib map {
-    my ( $m, $c ) = ( $_, qq{die "Can't locate $_ (hidden)\n"} );
-    sub { return unless $_[1] eq $m; open my $fh, "<", \$c; return $fh }
+    my $m = $_;
+    sub { return unless $_[1] eq $m; die "Can't locate $m in \@INC (hidden).\n" };
 } qw{Cpanel/JSON/XS.pm};
 
 use Test::More 0.88;

diff --git a/t/none.t b/t/none.t
index 12faf52..12d26fd 100644 (file)
--- a/t/none.t
+++ b/t/none.t
@@ -3,8 +3,8 @@ use warnings;
 
 # hide Cpanel::JSON::XS, JSON::XS, JSON::PP
 use lib map {
-    my ( $m, $c ) = ( $_, qq{die "Can't locate $_ (hidden)\n"} );
-    sub { return unless $_[1] eq $m; open my $fh, "<", \$c; return $fh }
+    my $m = $_;
+    sub { return unless $_[1] eq $m; die "Can't locate $m in \@INC (hidden).\n" };
 } qw{Cpanel/JSON/XS.pm JSON/XS.pm JSON/PP.pm};
 
 use Test::More 0.88;

diff --git a/t/pp.t b/t/pp.t
index 7fe1926..df3d2b3 100644 (file)
--- a/t/pp.t
+++ b/t/pp.t
@@ -3,8 +3,8 @@ use warnings;
 
 # hide Cpanel::JSON::XS, JSON::XS
 use lib map {
-    my ( $m, $c ) = ( $_, qq{die "Can't locate $_ (hidden)\n"} );
-    sub { return unless $_[1] eq $m; open my $fh, "<", \$c; return $fh }
+    my $m = $_;
+    sub { return unless $_[1] eq $m; die "Can't locate $m in \@INC (hidden).\n" };
 } qw{Cpanel/JSON/XS.pm JSON/XS.pm};
 
 use if !eval { require JSON::PP; 1; }, 'Test::More', skip_all => 'No JSON::PP';

diff --git a/t/xs.t b/t/xs.t
index 1fa4fa9..405e7f1 100644 (file)
--- a/t/xs.t
+++ b/t/xs.t
@@ -3,8 +3,8 @@ use warnings;
 
 # hide Cpanel::JSON::XS
 use lib map {
-    my ( $m, $c ) = ( $_, qq{die "Can't locate $_ (hidden)\n"} );
-    sub { return unless $_[1] eq $m; open my $fh, "<", \$c; return $fh }
+    my $m = $_;
+    sub { return unless $_[1] eq $m; die "Can't locate $m in \@INC (hidden).\n" };
 } qw{Cpanel/JSON/XS.pm};
 
 use Test::More 0.88;