diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-23 21:29:12 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-23 21:29:12 +0000 |
| commit | 25bab59bcdd24a506b9bafa5b170e8ed99c07487 (patch) | |
| tree | e0cf5a9f21070d9ada0b2fefc2e921e3f38dc58b /t | |
| parent | 98e310af2e424d7966915bbf6e126ab8f117a9d0 (diff) | |
| download | perl-25bab59bcdd24a506b9bafa5b170e8ed99c07487.tar.gz | |
t/porting/regen.t can test that regcharclass.h is up to date.
As regen/regcharclass.pl uses regen_lib.pl and rename_if_different(), all that
is needed is to pass it --tap on the command line.
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/regen.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/t/porting/regen.t b/t/porting/regen.t index b0efa1f63a..76f648a31a 100644 --- a/t/porting/regen.t +++ b/t/porting/regen.t @@ -26,7 +26,7 @@ $::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); -plan (tests => 1 + $in_regen_pl + @files); +plan (tests => 2 + $in_regen_pl + @files); OUTER: foreach my $file (@files) { open my $fh, '<', $file or die "Can't open $file: $!"; @@ -50,5 +50,6 @@ OUTER: foreach my $file (@files) { is("@bad", '', "generated $file is up to date"); } -system "$^X regen.pl --tap"; -system "$^X Porting/makemeta --tap"; +foreach (qw(regen.pl Porting/makemeta regen/regcharclass.pl)) { + system "$^X $_ --tap"; +} |