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     require './t/test.pl';
  15 }
  16
  17 use strict;
  18 use warnings;
  19 use Maintainers qw(show_results process_options finish_tap_output);
  20
  21 if ($^O eq 'VMS') {
  22     skip_all "home-grown glob doesn't handle fancy patterns";
  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