[perl5.git] / t / porting / maintainers.t

#!./perl -w

# Test that there are no missing Maintainers in Maintainers.pl

BEGIN {
	# This test script uses a slightly atypical invocation of the 'standard'
	# core testing setup stanza.
	# The existing porting tools which manage the Maintainers file all
	# expect to be run from the root
	# XXX that should be fixed

    chdir '..' unless -d 't';
    @INC = qw(lib Porting);
    require './t/test.pl';
}

use strict;
use warnings;
use Maintainers qw(show_results process_options finish_tap_output);

if ($^O eq 'VMS') {
    skip_all "home-grown glob doesn't handle fancy patterns";
}

{
    local @ARGV = qw|--checkmani|;
    show_results(process_options());
}

{
    local @ARGV = qw|--checkmani lib/ ext/|;
    show_results(process_options());
}

finish_tap_output();

# EOF
Commit	Line	Data
2b4af749 JV	1	#!./perl -w
2b4af749 JV	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
	17	use strict;
	18	use warnings;
	19	use Maintainers qw(show_results process_options finish_tap_output);
	20
663b33b0	21	if ($^O eq 'VMS') {
64282729	22	skip_all "home-grown glob doesn't handle fancy patterns";
663b33b0	23	}
2b4af749 JV	24
2b4af749 JV	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