diff options
| -rw-r--r-- | t/porting/regen.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/porting/regen.t b/t/porting/regen.t index 76f648a31a..d3a5d41f52 100644 --- a/t/porting/regen.t +++ b/t/porting/regen.t @@ -25,8 +25,9 @@ $::NO_ENDING = $::NO_ENDING = 1; my $in_regen_pl = 18; # I can't see a clean way to calculate this automatically. my @files = qw(perly.act perly.h perly.tab); +my @progs = qw(Porting/makemeta regen/regcharclass.pl regen/mk_PL_charclass.pl); -plan (tests => 2 + $in_regen_pl + @files); +plan (tests => $in_regen_pl + @files + @progs); OUTER: foreach my $file (@files) { open my $fh, '<', $file or die "Can't open $file: $!"; @@ -50,6 +51,6 @@ OUTER: foreach my $file (@files) { is("@bad", '', "generated $file is up to date"); } -foreach (qw(regen.pl Porting/makemeta regen/regcharclass.pl)) { +foreach (@progs, 'regen.pl') { system "$^X $_ --tap"; } |