This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add Porting/bench.pl
[perl5.git] / t / porting / bench.t
1 #!./perl -w
2
3 # run Porting/bench.pl's selftest
4
5 BEGIN {
6     @INC = '..' if -f '../TestInit.pm';
7 }
8 use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
9 use strict;
10
11 require 't/test.pl';
12 my $source = find_git_or_skip('all');
13 chdir $source or die "Can't chdir to $source: $!";
14
15 system "$^X Porting/bench.pl --action=selftest";