This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A test to check that regen.pl doesn't need running.
[perl5.git] / t / porting / regen.t
CommitLineData
3879ea51
NC
1#!./perl -w
2
3# Verify that all files generated by perl scripts are up to date.
4
5my ($in_t, $lib);
6
7BEGIN {
8 $in_t = -f 'TEST' && -f '../regen.pl';
9 $lib = $in_t ? '../lib' : 'lib';
10 unshift @INC, $lib;
11}
12
13use strict;
14
15use File::Spec::Functions 'rel2abs';
16$^X = rel2abs($^X);
17$ENV{PERL5LIB} = rel2abs($lib);
18
19chdir '..' if $in_t;
20
21print "1..17\n"; # I can't see a clean way to calculate this automatically.
22
23system "$^X regen.pl --tap";