[PATCH] Syncing with Test::Simple 0.19

[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / exit.t

diff --git a/lib/Test/Simple/t/exit.t b/lib/Test/Simple/t/exit.t
index 86954ab..855533c 100644 (file)
--- a/lib/Test/Simple/t/exit.t
+++ b/lib/Test/Simple/t/exit.t
@@ -1,12 +1,13 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
-    use File::Spec;
 }
 
 # Can't use Test.pm, that's a 5.005 thing.
 package My::Test;
 
+use File::Spec;
+
 my $test_num = 1;
 # Utility testing functions.
 sub ok ($;$) {
@@ -43,13 +44,11 @@ my %Tests = (
 
 print "1..".keys(%Tests)."\n";
 
-my $lib = File::Spec->catdir('lib', 'Test', 'Simple', 'sample_tests');
-
+my $lib = File::Spec->catdir(qw(lib Test Simple sample_tests));
 while( my($test_name, $exit_codes) = each %Tests ) {
     my($exit_code) = $exit_codes->[$IsVMS ? 1 : 0];
 
     my $file = File::Spec->catfile($lib, $test_name);
-
     my $wait_stat = system(qq{$^X -"I../lib" -"I../t/lib" $file});
     my $actual_exit = $wait_stat >> 8;