[perl5.git] / t / pod / included.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__


##------------------------------------------------------------
# This file is =included by "include.t"
#
# This text should NOT be in the resultant pod document
# because we havent seen an =xxx pod directive in this file!
##------------------------------------------------------------

=pod

This is the text of the included file named "included.t".
It should appear in the final pod document from pod2xxx

=cut

##------------------------------------------------------------
# This text should NOT be in the resultant pod document
# because it is *after* an =cut an no other pod directives
# proceed it!
##------------------------------------------------------------
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
	14	__END__
	15
	16
	17	##------------------------------------------------------------
	18	# This file is =included by "include.t"
	19	#
	20	# This text should NOT be in the resultant pod document
	21	# because we havent seen an =xxx pod directive in this file!
	22	##------------------------------------------------------------
	23
	24	=pod
	25
	26	This is the text of the included file named "included.t".
	27	It should appear in the final pod document from pod2xxx
	28
	29	=cut
	30
	31	##------------------------------------------------------------
	32	# This text should NOT be in the resultant pod document
	33	# because it is after an =cut an no other pod directives
	34	# proceed it!
	35	##------------------------------------------------------------