t/porting/maintainers.t

   1 #!./perl -w
   2
   3 # Test that there are no missing Maintainers in Maintainers.pl
   4
   5 BEGIN {
   6         # This test script uses a slightly atypical invocation of the 'standard'
   7         # core testing setup stanza.
   8         # The existing porting tools which manage the Maintainers file all
   9         # expect to be run from the root
  10         # XXX that should be fixed
  11
  12     chdir '..' unless -d 't';
  13     @INC = qw(lib Porting);
  14 }
  15
  16 use strict;
  17 use warnings;
  18 use Maintainers qw(show_results process_options finish_tap_output);
  19
  20 if ($^O eq 'VMS') {
  21     print "1..0 # Skip: home-grown glob doesn't handle fancy patterns\n";
  22     exit 0;
  23 }
  24
  25 {
  26     local @ARGV = qw|--checkmani|;
  27     show_results(process_options());
  28 }
  29
  30 {
  31     local @ARGV = qw|--checkmani lib/ ext/|;
  32     show_results(process_options());
  33 }
  34
  35 finish_tap_output();
  36
  37 # EOF