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

diff --git a/t/subroutine-in-inc.t b/t/subroutine-in-inc.t
index 685d76b..733bb86 100644
--- a/t/subroutine-in-inc.t
+++ b/t/subroutine-in-inc.t
@@ -1,27 +1,24 @@
-#!/usr/bin/perl -w
+use strict;
+use warnings FATAL => 'all';
 
 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 );