Add dists to .gitingore

[catagits/Test-NoTabs.git] / t / 11-all.t

diff --git a/t/11-all.t b/t/11-all.t
index ef8bd2d..25100bc 100644 (file)
--- a/t/11-all.t
+++ b/t/11-all.t
@@ -1,10 +1,11 @@
 use strict;
 
 use Test::NoTabs;
+use FindBin qw/$Bin/;
 
 use File::Temp qw( tempdir tempfile );
 
-all_perl_files_ok();
+all_perl_files_ok("$Bin/../lib");
 
 notabs_ok( $0, "$0 is tab free" );
 
@@ -17,10 +18,10 @@ notabs_ok( $tabbed_file2 );
 my $tabbed_file3 = make_tabbed_file3();
 notabs_ok( $tabbed_file3 );
 
+unlink foreach ( $tabbed_file1, $tabbed_file2, $tabbed_file3 );
 
 sub make_tabbed_file1 {
-  my $tmpdir = tempdir();
-  my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
+  my ($fh, $filename) = tempfile();
   print $fh <<'DUMMY';
 #!/usr/bin/perl -w
 
@@ -42,8 +43,7 @@ DUMMY
 }
 
 sub make_tabbed_file2 {
-  my $tmpdir = tempdir();
-  my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
+  my ($fh, $filename) = tempfile();
   print $fh <<'DUMMY';
 #!/usr/bin/perl -w
 
@@ -67,8 +67,7 @@ DUMMY
 }
 
 sub make_tabbed_file3 {
-  my $tmpdir = tempdir();
-  my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pm' );
+  my ($fh, $filename) = tempfile();
   print $fh <<'DUMMY';
 package My::Test;