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
[perl5.git] / t / porting / bench.t
1 #!./perl -w
2
3 # run Porting/bench.pl's selftest
4
5 use strict;
6
7 chdir '..' if -f 'test.pl' && -f 'thread_it.pl';
8 require './t/test.pl';
9
10 system "$^X -I. -MTestInit Porting/bench.pl --action=selftest";