[p5sagit/p5-mst-13.2.git] / t / lib / maintainers.t

#!./perl -w

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


BEGIN {
        chdir 't' if -d 't';
        @INC = qw(../lib ../Porting);
}

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

chdir(".."); # The existing porting tools all expect to be run from the root
# XXX that should be fixed

{
    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
	5
	6	BEGIN {
	7	chdir 't' if -d 't';
	8	@INC = qw(../lib ../Porting);
	9	}
	10
	11	use strict;
	12	use warnings;
	13	use Maintainers qw(show_results process_options finish_tap_output);
	14
	15	chdir(".."); # The existing porting tools all expect to be run from the root
	16	# XXX that should be fixed
	17
	18	{
	19	local @ARGV = qw\|--tap-output --checkmani\|;
	20	show_results(process_options());
	21	}
	22
	23	{
	24	local @ARGV = qw\|--tap-output --checkmani lib/ ext/\|;
	25	show_results(process_options());
	26	}
	27
	28	finish_tap_output();
	29
	30	# EOF