[perl5.git] / t / porting / bench.t

#!./perl -w

# 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;

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";
Commit	Line	Data
9e7973fa DM	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";