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

#!./perl -w

# Verify that all files generated by perl scripts are up to date.

my ($in_t, $lib);

BEGIN {
    $in_t = -f 'TEST' && -f '../regen.pl';
    $lib = $in_t ? '../lib' : 'lib';
    unshift @INC, $lib;
}

use strict;

use File::Spec::Functions 'rel2abs';
$^X = rel2abs($^X);
$ENV{PERL5LIB} = rel2abs($lib);

chdir '..' if $in_t;

print "1..17\n"; # I can't see a clean way to calculate this automatically.

system "$^X regen.pl --tap";
Commit	Line	Data
3879ea51 NC	1	#!./perl -w
	2
	3	# Verify that all files generated by perl scripts are up to date.
	4
	5	my ($in_t, $lib);
	6
	7	BEGIN {
	8	$in_t = -f 'TEST' && -f '../regen.pl';
	9	$lib = $in_t ? '../lib' : 'lib';
	10	unshift @INC, $lib;
	11	}
	12
	13	use strict;
	14
	15	use File::Spec::Functions 'rel2abs';
	16	$^X = rel2abs($^X);
	17	$ENV{PERL5LIB} = rel2abs($lib);
	18
	19	chdir '..' if $in_t;
	20
	21	print "1..17\n"; # I can't see a clean way to calculate this automatically.
	22
	23	system "$^X regen.pl --tap";