Commit | Line | Data |
---|---|---|
2b4af749 JV |
1 | #!./perl -w |
2 | ||
7c7c771f | 3 | # Test that there are no missing Maintainers in Maintainers.pl |
2b4af749 | 4 | |
2b4af749 | 5 | BEGIN { |
942d1a9e JV |
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); | |
64282729 | 14 | require './t/test.pl'; |
2b4af749 JV |
15 | } |
16 | ||
3a73a075 BF |
17 | use Config; |
18 | if ( $Config{usecrosscompile} ) { | |
19 | skip_all( "Odd failures during cross-compilation" ); | |
20 | } | |
21 | ||
5c6b968e KW |
22 | if ( $Config{ccflags} =~ /-DPERL_EXTERNAL_GLOB/) { |
23 | skip_all "Maintainers doesn't currently work for '-DPERL_EXTERNAL_GLOB'"; | |
206f7a49 KW |
24 | } |
25 | ||
663b33b0 | 26 | if ($^O eq 'VMS') { |
64282729 | 27 | skip_all "home-grown glob doesn't handle fancy patterns"; |
663b33b0 | 28 | } |
2b4af749 | 29 | |
5c6b968e KW |
30 | use strict; |
31 | use warnings; | |
32 | use Maintainers qw(show_results process_options finish_tap_output); | |
33 | ||
2b4af749 | 34 | { |
8053b815 | 35 | local @ARGV = qw|--checkmani|; |
2b4af749 JV |
36 | show_results(process_options()); |
37 | } | |
38 | ||
39 | { | |
8053b815 | 40 | local @ARGV = qw|--checkmani lib/ ext/|; |
2b4af749 JV |
41 | show_results(process_options()); |
42 | } | |
43 | ||
44 | finish_tap_output(); | |
45 | ||
46 | # EOF |