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

BEGIN {
   chdir 't' if -d 't';
   unshift @INC, '../lib';
   unshift @INC, './pod';
   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 file tries to demonstrate a simple =include directive
for pods. It is used as follows:

   =include filename

where "filename" is expected to be an absolute pathname, or else
reside be relative to the directory in which the current processed
podfile resides, or be relative to the current directory.

Lets try it out with the file "included.t" shall we.

***THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE***

=include included.t

***THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE***

So how did we do???
Commit	Line	Data
360aca43	1	BEGIN {
dbd1b0a2	2	chdir 't' if -d 't';
	3	unshift @INC, '../lib';
	4	unshift @INC, './pod';
360aca43	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	=pod
	18
	19	This file tries to demonstrate a simple =include directive
	20	for pods. It is used as follows:
	21
	22	=include filename
	23
	24	where "filename" is expected to be an absolute pathname, or else
	25	reside be relative to the directory in which the current processed
	26	podfile resides, or be relative to the current directory.
	27
	28	Lets try it out with the file "included.t" shall we.
	29
	30	*THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE*
	31
	32	=include included.t
	33
	34	*THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE*
	35
	36	So how did we do???