t/porting/update_authors.t - initial tests for Porting/updateAUTHORS.pl

We can at least make sure it compiles... Later we can build on this, for
now this sanity checks that we haven't *completely* broken the script
while we refactor it.

1 files changed, 19 insertions, 0 deletions

diff --git a/t/porting/update_authors.t b/t/porting/update_authors.t
new file mode 100644
index 0000000000..9bd76a9671
--- /dev/null
+++ b/t/porting/update_authors.t
@@ -0,0 +1,19 @@
+#!./perl -w
+
+BEGIN {
+    chdir 't' if -d 't';
+    require "./test.pl";
+    set_up_inc('../lib', '..');
+}
+
+use TestInit qw(T);    # T is chdir to the top level
+use strict;
+
+find_git_or_skip('all');
+
+my $ok= do "./Porting/updateAUTHORS.pl";
+my $error= !$ok && $@;
+is($ok,1,"updateAUTHORS.pl compiles correctly");
+is($error, "", "updateAUTHORS.pl compiles without error");
+done_testing();
+exit 0;