[p5sagit/p5-mst-13.2.git] / t / lib / 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);
}

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


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

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

finish_tap_output();

# EOF
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
2b4af749	20
	21	{
	22	local @ARGV = qw\|--tap-output --checkmani\|;
	23	show_results(process_options());
	24	}
	25
	26	{
	27	local @ARGV = qw\|--tap-output --checkmani lib/ ext/\|;
	28	show_results(process_options());
	29	}
	30
	31	finish_tap_output();
	32
	33	# EOF