From 25bab59bcdd24a506b9bafa5b170e8ed99c07487 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sun, 23 Jan 2011 21:29:12 +0000 Subject: [PATCH] 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. --- t/porting/regen.t | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/t/porting/regen.t b/t/porting/regen.t index b0efa1f..76f648a 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"; +} -- 2.7.4