Improve module hiding for testing

dagolden · Jun 28, 2016 · e846ce1 · e846ce1
1 parent 26f287e
commit e846ce1
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 7 deletions.
diff --git a/Changes b/Changes
@@ -2,6 +2,10 @@ Revision history for Path-Tiny
 
 {{$NEXT}}
 
+    [Tests]
+
+    - Improved method for hiding some modules during tests.
+
 0.094     2016-05-23 12:45:19-04:00 America/New_York
 
     - Fixed Changes note typo in 0.092.  0.092 had no changes since 0.091,

diff --git a/t/input_output_no_PU_UU.t b/t/input_output_no_PU_UU.t
@@ -4,10 +4,10 @@ use warnings;
 use Test::More 0.96;
 
 # Tiny equivalent of Devel::Hide
-BEGIN {
-    $INC{'Unicode/UTF8.pm'}       = undef;
-    $INC{'PerlIO/utf8_strict.pm'} = undef;
-}
+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 }
+} qw{Unicode/UTF8.pm PerlIO/utf8_strict.pm};
 
 note "Hiding Unicode::UTF8 and PerlIO::utf8_strict";
 

diff --git a/t/input_output_no_UU.t b/t/input_output_no_UU.t
@@ -4,9 +4,11 @@ use warnings;
 use Test::More 0.96;
 
 # Tiny equivalent of Devel::Hide
-BEGIN {
-    $INC{'Unicode/UTF8.pm'} = undef;
-}
+# Tiny equivalent of Devel::Hide
+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 }
+} qw{Unicode/UTF8.pm};
 
 note "Hiding Unicode::UTF8";