This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make checkAUTHORS a test to further reduce the release burden
authorJesse Vincent <jesse@bestpractical.com>
Sun, 4 Jul 2010 15:15:35 +0000 (11:15 -0400)
committerJesse Vincent <jesse@bestpractical.com>
Sun, 4 Jul 2010 20:43:40 +0000 (21:43 +0100)
MANIFEST
t/porting/authors.t [new file with mode: 0644]

index 51de79e..4e7c2c9 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -4563,6 +4563,7 @@ t/op/write.t                      See if write works (formats work)
 t/op/yadayada.t                        See if ... works
 t/perl.supp                    Perl valgrind suppressions
 t/porting/args_assert.t                Check that all PERL_ARGS_ASSERT* macros are used
+t/porting/authors.t            Check that all authors have been acknowledged
 t/porting/checkcase.t          Check whether we are case-insensitive-fs-friendly
 t/porting/diag.t               Test completeness of perldiag.pod
 t/porting/maintainers.t                Test that Porting/Maintaners.pl is up to date
diff --git a/t/porting/authors.t b/t/porting/authors.t
new file mode 100644 (file)
index 0000000..da8cf95
--- /dev/null
@@ -0,0 +1,19 @@
+#!./perl -w
+
+# Test that there are no missing authors in AUTHORS
+BEGIN {
+    chdir '..' unless -d 't';
+    unshift @INC, 'lib';
+}
+
+use strict;
+use warnings;
+
+if (! -d '.git' ) {
+    print "1..0 # SKIP: not being run from a git checkout\n";
+    exit 0;
+}
+
+system("git log --pretty=fuller | ./perl -Ilib Porting/checkAUTHORS.pl --tap --acknowledged AUTHORS -");
+
+# EOF