In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5e39bfe1bf1df283e98df38125b846fd246daac3?hp=3baae3fab5dea1469c2d040f5380bc2009bdeecb>
- Log ----------------------------------------------------------------- commit 5e39bfe1bf1df283e98df38125b846fd246daac3 Author: Aaron Crane <[email protected]> Date: Fri Nov 11 17:51:17 2016 +0100 t/porting/regen.t: try to be more helpful when tests fail A few of the regen scripts can't be run automatically, for one reason or another. When regen.t encounters a mismatch corresponding to one of those scripts, it now tells the porter that the script must be run manually. This seems more useful than the previous behaviour of merely announcing a mismatch that "make regen" won't be able to fix. ----------------------------------------------------------------------- Summary of changes: t/porting/regen.t | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/t/porting/regen.t b/t/porting/regen.t index 5d08518..39aaf64 100644 --- a/t/porting/regen.t +++ b/t/porting/regen.t @@ -35,6 +35,13 @@ my %skip = ("regen_perly.pl" => [qw(perly.act perly.h perly.tab)], "regen/regcharclass.pl" => [qw(regcharclass.h)], ); +my %other_requirement = ( + "regen_perly.pl" => "requires bison", + "regen/keywords.pl" => "requires Devel::Tokenizer::C", + "regen/mk_invlists.pl" => "needs the Perl you've just built", + "regen/regcharclass.pl" => "needs the Perl you've just built", +); + my @files = map {@$_} sort values %skip; open my $fh, '<', 'regen.pl' @@ -83,6 +90,10 @@ OUTER: foreach my $file (@files) { push @bad, $2 unless $digest eq $1; } is("@bad", '', "generated $file is up to date"); + for (@bad) { + my $reason = delete $other_requirement{$_} || next; + diag("Note: $_ must be run manually, because it $reason"); + } } foreach (@progs) { -- Perl5 Master Repository
