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