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); | |
2b4af749 JV |
14 | } |
15 | ||
16 | use strict; | |
17 | use warnings; | |
18 | use Maintainers qw(show_results process_options finish_tap_output); | |
19 | ||
663b33b0 CB |
20 | if ($^O eq 'VMS') { |
21 | print "1..0 # Skip: home-grown glob doesn't handle fancy patterns\n"; | |
22 | exit 0; | |
23 | } | |
2b4af749 JV |
24 | |
25 | { | |
8053b815 | 26 | local @ARGV = qw|--checkmani|; |
2b4af749 JV |
27 | show_results(process_options()); |
28 | } | |
29 | ||
30 | { | |
8053b815 | 31 | local @ARGV = qw|--checkmani lib/ ext/|; |
2b4af749 JV |
32 | show_results(process_options()); |
33 | } | |
34 | ||
35 | finish_tap_output(); | |
36 | ||
37 | # EOF |