[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);
}

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

if ($^O eq 'VMS') {
    print "1..0 # Skip: home-grown glob doesn't handle fancy patterns\n";
    exit 0;
}

{
    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 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);
2b4af749 JV	14	}
	15
	16	use strict;
	17	use warnings;
	18	use Maintainers qw(show_results process_options finish_tap_output);
	19
663b33b0 CB	20	if ($^O eq 'VMS') {
	21	print "1..0 # Skip: home-grown glob doesn't handle fancy patterns\n";
	22	exit 0;
	23	}
2b4af749 JV	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