},
);
- 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);
# 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;
# 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";
=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" );
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;
print("1..0 # miniperl: no Unicode::Normalize");
exit(0);
}
- require "uni/case.pl";
+ require "./uni/case.pl";
}
use feature 'unicode_strings';
print("1..0 # miniperl: no Unicode::Normalize");
exit(0);
}
- require "uni/case.pl";
+ require "./uni/case.pl";
}
use feature 'unicode_strings';
print("1..0 # miniperl: no Unicode::Normalize");
exit(0);
}
- require "uni/case.pl";
+ require "./uni/case.pl";
}
use feature 'unicode_strings';