1#!./perl -w 2 3# Test that there are no missing Maintainers in Maintainers.pl 4 5BEGIN { 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 17use Config; 18if ( $Config{usecrosscompile} ) { 19 skip_all( "Odd failures during cross-compilation" ); 20} 21 22use strict; 23use warnings; 24use Maintainers qw(show_results process_options finish_tap_output); 25 26if ($^O eq 'VMS') { 27 skip_all "home-grown glob doesn't handle fancy patterns"; 28} 29 30{ 31 local @ARGV = qw|--checkmani|; 32 show_results(process_options()); 33} 34 35{ 36 local @ARGV = qw|--checkmani lib/ ext/|; 37 show_results(process_options()); 38} 39 40finish_tap_output(); 41 42# EOF 43