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 | ||
2b4af749 JV |
22 | use strict; |
23 | use warnings; | |
24 | use Maintainers qw(show_results process_options finish_tap_output); | |
25 | ||
663b33b0 | 26 | if ($^O eq 'VMS') { |
64282729 | 27 | skip_all "home-grown glob doesn't handle fancy patterns"; |
663b33b0 | 28 | } |
2b4af749 JV |
29 | |
30 | { | |
8053b815 | 31 | local @ARGV = qw|--checkmani|; |
2b4af749 JV |
32 | show_results(process_options()); |
33 | } | |
34 | ||
35 | { | |
8053b815 | 36 | local @ARGV = qw|--checkmani lib/ ext/|; |
2b4af749 JV |
37 | show_results(process_options()); |
38 | } | |
39 | ||
40 | finish_tap_output(); | |
41 | ||
42 | # EOF |