t/lib/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
  21 {
  22     local @ARGV = qw|--tap-output --checkmani|;
  23     show_results(process_options());
  24 }
  25
  26 {
  27     local @ARGV = qw|--tap-output --checkmani lib/ ext/|;
  28     show_results(process_options());
  29 }
  30
  31 finish_tap_output();
  32
  33 # EOF