This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Adjust porting/authors.t for travisci
authorNicolas R <atoomic@cpan.org>
Mon, 13 Nov 2017 19:54:49 +0000 (13:54 -0600)
committerNicolas R <atoomic@cpan.org>
Mon, 13 Nov 2017 22:50:15 +0000 (16:50 -0600)
Add plan to porting/authors.t
skip_plan was used but no plan or tap output was defined.

When the test is run by TravisCI, use a shorten
revision range. We do not want to have a pull request impacted
by the previous state of blead, and we do not want to check
the merge commit from travis which is using the github author
primary email address.

t/porting/authors.t

index 6f77bab..0102e93 100644 (file)
@@ -15,7 +15,17 @@ skip_all(
     "This distro may have modified some files in cpan/. Skipping validation.")
   if $ENV{'PERL_BUILD_PACKAGING'};
 
     "This distro may have modified some files in cpan/. Skipping validation.")
   if $ENV{'PERL_BUILD_PACKAGING'};
 
+my $revision_range = ''; # could use 'v5.22.0..' as default, no reason to recheck all previous commits...
+if ( $ENV{TRAVIS} && defined $ENV{TRAVIS_COMMIT_RANGE} ) {
+       # travisci is adding a merge commit when smoking a pull request
+       #       unfortunately it's going to use the default GitHub email from the author
+       #       which can differ from the one the author wants to use as part of the pull request
+       #       let's simply use the TRAVIS_COMMIT_RANGE which list the commits we want to check
+       #       all the more a pull request should not be impacted by blead being incorrect
+       $revision_range = $ENV{TRAVIS_COMMIT_RANGE};
+}
+
 # This is the subset of "pretty=fuller" that checkAUTHORS.pl actually needs:
 # This is the subset of "pretty=fuller" that checkAUTHORS.pl actually needs:
-print qx{git log --pretty=format:"Author: %an <%ae>" | $^X Porting/checkAUTHORS.pl --tap -};
+print qx{git log --pretty=format:"Author: %an <%ae>" $revision_range | $^X Porting/checkAUTHORS.pl --tap -};
 
 # EOF
 
 # EOF