mirror of
https://github.com/freebsd/freebsd-src
synced 2024-09-29 13:15:05 +00:00
60 lines
876 B
Perl
Executable file
60 lines
876 B
Perl
Executable file
#!./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__
|
|
|
|
|
|
=pod
|
|
|
|
This is a test
|
|
|
|
=for theloveofpete
|
|
You shouldn't see this
|
|
or this
|
|
or this
|
|
|
|
=for text
|
|
pod2text should see this
|
|
and this
|
|
and this
|
|
|
|
and everything should see this!
|
|
|
|
=begin text
|
|
|
|
Similarly, this line ...
|
|
|
|
and this one ...
|
|
|
|
as well this one,
|
|
|
|
should all be in pod2text output
|
|
|
|
=end text
|
|
|
|
Tweedley-deedley-dee, Im as happy as can be!
|
|
Tweedley-deedley-dum, cuz youre my honey sugar plum!
|
|
|
|
=begin atthebeginning
|
|
|
|
But I expect to see neither hide ...
|
|
|
|
nor tail ...
|
|
|
|
of this text
|
|
|
|
=end atthebeginning
|
|
|
|
The rest of this should show up in everything.
|
|
|