diff options
Diffstat (limited to 'ext/Pod-Parser/t/pod/included.t')
-rw-r--r-- | ext/Pod-Parser/t/pod/included.t | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/ext/Pod-Parser/t/pod/included.t b/ext/Pod-Parser/t/pod/included.t new file mode 100644 index 0000000000..4f171c454b --- /dev/null +++ b/ext/Pod-Parser/t/pod/included.t @@ -0,0 +1,35 @@ +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! +##------------------------------------------------------------ |