diff options
author | Yves Orton <demerphq@gmail.com> | 2022-08-20 17:37:40 +0200 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2022-08-21 12:09:05 +0200 |
commit | fb7db8290f9f45559b8dd4b46b39b59ef12c70d4 (patch) | |
tree | 6f2e97269b11beb5e9080810bac04647c1a3a3e9 /t | |
parent | d2c7c9c567972f139356a367641b3336a5ead818 (diff) | |
download | perl-fb7db8290f9f45559b8dd4b46b39b59ef12c70d4.tar.gz |
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.
Diffstat (limited to 't')
-rw-r--r-- | t/porting/update_authors.t | 19 |
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; |