Commit | Line | Data |
---|---|---|
2218aaa9 | 1 | #!./perl -w |
2218aaa9 | 2 | # Test that there are no missing authors in AUTHORS |
18388fdb | 3 | |
2218aaa9 | 4 | BEGIN { |
18388fdb | 5 | @INC = '..' if -f '../TestInit.pm'; |
2218aaa9 | 6 | } |
ac976f88 | 7 | use TestInit qw(T); # T is chdir to the top level |
2218aaa9 | 8 | use strict; |
2218aaa9 | 9 | |
7cadc1d0 NC |
10 | require 't/test.pl'; |
11 | find_git_or_skip('all'); | |
2218aaa9 | 12 | |
3ea0c581 | 13 | # This is the subset of "pretty=fuller" that checkAUTHORS.pl actually needs: |
ef8da350 MM |
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 -"); | |
2218aaa9 JV |
16 | |
17 | # EOF |