diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-24 08:11:44 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-24 08:11:44 +0000 |
| commit | ea52845d5dc6349fa62e87d1f0cb3b4e924f3ba7 (patch) | |
| tree | 5be0e6cc2aa2aa169db04ad646be81a75503af34 /t/porting/regen.t | |
| parent | 500c19467028989935b081c5fb7b8b33ffb86d40 (diff) | |
| download | perl-ea52845d5dc6349fa62e87d1f0cb3b4e924f3ba7.tar.gz | |
regen/mk_PL_charclass.pl can test that l1_char_class_tab.h is up to date.
Diffstat (limited to 't/porting/regen.t')
| -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"; } |