This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fixup tests under t/ that assumed '.' in @INC
authorDavid Mitchell <davem@iabyn.com>
Fri, 7 Apr 2017 08:32:01 +0000 (09:32 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 7 Apr 2017 13:42:23 +0000 (14:42 +0100)
Porting/bench.pl
Porting/manisort
t/porting/bench.t
t/porting/copyright.t
t/thread_it.pl
t/uni/lower.t
t/uni/title.t
t/uni/upper.t

index 62c6aaf..b073a01 100755 (executable)
@@ -1421,8 +1421,10 @@ EOF
         },
     );
 
-    for ('t', '.') {
-        last if require "$_/test.pl";
+    for ('./t', '.') {
+        my $t = "$_/test.pl";
+        next unless  -f $t;
+        require $t;
     }
     plan(@tests / 3 * keys %VALID_FIELDS);
 
index 3d698e2..167aada 100644 (file)
@@ -14,7 +14,7 @@ $| = 1;
 
 # Get command line options
 use Getopt::Long;
-require "Porting/manifest_lib.pl";
+require "./Porting/manifest_lib.pl";
 my $outfile;
 my $check_only = 0;
 my $quiet = 0;
index bbebd37..d15474c 100644 (file)
@@ -2,14 +2,9 @@
 
 # run Porting/bench.pl's selftest
 
-BEGIN {
-    @INC = '..' if -f '../TestInit.pm';
-}
-use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
 use strict;
 
+chdir '..' if -f 'test.pl' && -f 'thread_it.pl';
 require './t/test.pl';
-my $source = find_git_or_skip('all');
-chdir $source or die "Can't chdir to $source: $!";
 
-system "$^X Porting/bench.pl --action=selftest";
+system "$^X -I. -MTestInit Porting/bench.pl --action=selftest";
index daa95f8..8a469cd 100644 (file)
@@ -18,13 +18,9 @@ working on older releases. It should be run before making a new release.
 
 =cut
 
-BEGIN {
-    unshift @INC, '.' if -f 'TestInit.pm';
-}
-use TestInit;
 use strict;
 use Config;
-BEGIN { require 'test.pl' }
+BEGIN { require './test.pl' }
 
 if ( $Config{usecrosscompile} ) {
   skip_all( "Not all files are available during cross-compilation" );
index 4a0cbdc..6389df2 100644 (file)
@@ -19,7 +19,7 @@ my $caller = (caller)[1];
 die "Can't figure out which test to run from filename '$caller'"
     unless $caller =~ m!((?:op|re)/[-_a-z0-9A-Z]+)_thr\.t\z!;
 
-my $file = "$1.t";
+my $file = "./$1.t";
 
 $::running_as_thread = "running tests in a new thread";
 require $file;
index 31fd1f7..a215f60 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
       print("1..0 # miniperl: no Unicode::Normalize");
       exit(0);
     }
-    require "uni/case.pl";
+    require "./uni/case.pl";
 }
 
 use feature 'unicode_strings';
index 458ca8e..45c895f 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
       print("1..0 # miniperl: no Unicode::Normalize");
       exit(0);
     }
-    require "uni/case.pl";
+    require "./uni/case.pl";
 }
 
 use feature 'unicode_strings';
index 532f4bd..252b51c 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
       print("1..0 # miniperl: no Unicode::Normalize");
       exit(0);
     }
-    require "uni/case.pl";
+    require "./uni/case.pl";
 }
 
 use feature 'unicode_strings';