[perl5.git] / t / pod / emptycmd.t

BEGIN {
   use File::Basename;
   my $THISDIR = dirname $0;
   unshift @INC, $THISDIR;
   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__

=pod

= this is a test
of the emergency
broadcast system

=cut
Commit	Line	Data
360aca43	1	BEGIN {
9c6ed6d7 HS	2	use File::Basename;
	3	my $THISDIR = dirname $0;
	4	unshift @INC, $THISDIR;
360aca43 GS	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	__END__
	14
	15	=pod
	16
	17	= this is a test
	18	of the emergency
	19	broadcast system
	20
	21	=cut