[p5sagit/p5-mst-13.2.git] / t / pod / podselect.t

#!./perl
BEGIN {
   chdir 't' if -d 't';
   unshift @INC, './pod', '../lib';
   require "testp2pt.pl";
   import TestPodIncPlainText;
}

my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash
my $passed  = testpodplaintext \%options, $0;
exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};


__END__

=include podselect.PL
Commit	Line	Data
27f805f4	1	#!./perl
664bb207	2	BEGIN {
27f805f4	3	chdir 't' if -d 't';
27f805f4	4	unshift @INC, './pod', '../lib';
664bb207	5	require "testp2pt.pl";
	6	import TestPodIncPlainText;
	7	}
	8
	9	my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
	10	my $passed = testpodplaintext \%options, $0;
	11	exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
	12
	13
	14	__END__
	15
	16	=include podselect.PL
	17
	18