Move 3 porting sanity tests from t/lib/ to t/porting/, a more natural home.
[perl.git] / t / porting / maintainers.t
1 #!./perl -w
2
3 # Test that there are no missing Maintainers in Maintainers.PL 
4
5 BEGIN {
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 }
15
16 use strict;
17 use warnings;
18 use Maintainers qw(show_results process_options finish_tap_output);
19
20 if ($^O eq 'VMS') {
21     print "1..0 # Skip: home-grown glob doesn't handle fancy patterns\n";
22     exit 0;
23 }
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