t/porting/authors.t

   1 #!./perl -w
   2
   3 # Test that there are no missing authors in AUTHORS
   4 BEGIN {
   5     chdir '..' unless -d 't';
   6     unshift @INC, 'lib';
   7 }
   8
   9 use strict;
  10 use warnings;
  11
  12 if (! -d '.git' ) {
  13     print "1..0 # SKIP: not being run from a git checkout\n";
  14     exit 0;
  15 }
  16
  17 my $dotslash = $^O eq "MSWin32" ? ".\\" : "./";
  18 system("git log --pretty=fuller | ${dotslash}perl -Ilib Porting/checkAUTHORS.pl --tap -");
  19
  20 # EOF