X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsubroutine-in-inc.t;h=733bb8694146dc91a4129630dd9d6af266078016;hb=97ac61eac09ac2de078b0e495f5ed86a19aaa992;hp=d3b4bd38b16dbae316a6b1c4ed61b7798924b378;hpb=ea7f2da220a57b05422d1a486c69bb38c1e806ed;p=p5sagit%2Flocal-lib.git

diff --git a/t/subroutine-in-inc.t b/t/subroutine-in-inc.t
index d3b4bd3..733bb86 100644
--- a/t/subroutine-in-inc.t
+++ b/t/subroutine-in-inc.t
@@ -5,24 +5,20 @@ use Test::More tests => 1;
 
 use File::Spec;
 use Cwd;
-use File::Temp qw/ tempdir /;
-my $base;
+use lib 't/lib'; use TempDir;
+use local::lib ();
 
 sub CODE_in_INC() {
     return scalar grep { ref eq 'CODE' } @INC;
 }
 
-my $dir;
+my $dir = mk_temp_dir('sub-in-INC-XXXXX');
 
-BEGIN {
-    $base = CODE_in_INC;
-    unshift @INC, sub { };
-    splice @INC, 3, 1, sub { };
-    push @INC, sub { };
+my $base = CODE_in_INC;
+unshift @INC, sub { () };
+splice @INC, 3, 1, sub { () };
+push @INC, sub { () };
 
-    $dir = tempdir( DIR => Cwd::abs_path('t'), CLEANUP => 1 );
-}
-
-use local::lib( $dir );
+local::lib->import($dir);
 
 is( CODE_in_INC, $base + 3 );