Commit | Line | Data |
2b4af749 |
1 | #!./perl -w |
2 | |
3 | # Test that there are no missing Maintainers in Maintainers.PL |
4 | |
2b4af749 |
5 | BEGIN { |
942d1a9e |
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 |
14 | } |
15 | |
16 | use strict; |
17 | use warnings; |
18 | use Maintainers qw(show_results process_options finish_tap_output); |
19 | |
663b33b0 |
20 | if ($^O eq 'VMS') { |
21 | print "1..0 # Skip: home-grown glob doesn't handle fancy patterns\n"; |
22 | exit 0; |
23 | } |
2b4af749 |
24 | |
25 | { |
26 | local @ARGV = qw|--tap-output --checkmani|; |
27 | show_results(process_options()); |
28 | } |
29 | |
30 | { |
31 | local @ARGV = qw|--tap-output --checkmani lib/ ext/|; |
32 | show_results(process_options()); |
33 | } |
34 | |
35 | finish_tap_output(); |
36 | |
37 | # EOF |