This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix O_CREAT without O_TRUNC in cpan/autodie/t/utf8_open.t
[perl5.git] / t / porting / authors.t
CommitLineData
2218aaa9 1#!./perl -w
2218aaa9 2# Test that there are no missing authors in AUTHORS
18388fdb 3
2218aaa9 4BEGIN {
18388fdb 5 @INC = '..' if -f '../TestInit.pm';
2218aaa9 6}
ac976f88 7use TestInit qw(T); # T is chdir to the top level
2218aaa9 8use strict;
2218aaa9 9
7cadc1d0
NC
10require 't/test.pl';
11find_git_or_skip('all');
2218aaa9 12
3ea0c581 13# This is the subset of "pretty=fuller" that checkAUTHORS.pl actually needs:
ef8da350
MM
14my $quote = $^O =~ /^mswin/i ? q(") : q(');
15system("git log --pretty=format:${quote}Author: %an <%ae>%n${quote} | $^X Porting/checkAUTHORS.pl --tap -");
2218aaa9
JV
16
17# EOF