A test to check that regen.pl doesn't need running.

We can't run regen.pl as part of the build, as we'd end up with a circular
dependency between the headers and miniperl.

1 files changed, 23 insertions, 0 deletions

diff --git a/t/porting/regen.t b/t/porting/regen.t
new file mode 100644
index 0000000000..9699d5571a
--- /dev/null
+++ b/t/porting/regen.t
@@ -0,0 +1,23 @@
+#!./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";