t/porting/authors.t

   1 #!./perl -w
   2 # Test that there are no missing authors in AUTHORS
   3
   4 BEGIN {
   5     @INC = '..' if -f '../TestInit.pm';
   6 }
   7 use TestInit qw(T); # T is chdir to the top level
   8 use strict;
   9
  10 require 't/test.pl';
  11 find_git_or_skip('all');
  12
  13 # This is the subset of "pretty=fuller" that checkAUTHORS.pl actually needs:
  14 my $quote = $^O =~ /^mswin/i ? q(") : q(');
  15 system("git log --pretty=format:${quote}Author: %an <%ae>%n${quote} | $^X Porting/checkAUTHORS.pl --tap -");
  16
  17 # EOF