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

BEGIN {
   use File::Basename;
   my $THISDIR = dirname $0;
   unshift @INC, $THISDIR;
   require "testpchk.pl";
   import TestPodChecker;
}

my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash
my $passed  = testpodchecker \%options, $0;
exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};


__END__


=head1 NAME

poderrors.t - test Pod::Checker on some pod syntax errors

=unknown1 this is an unknown command with two N<unknownA>
and D<unknownB> interior sequences.

This is some paragraph text with some unknown interior sequences,
such as Q<unknown2>,
A<unknown3>,
and Y<unknown4 V<unknown5>>.

Now try some unterminated sequences like
I<hello mudda!
B<hello fadda!

Here I am at C<camp granada!

Camps is very,
entertaining.
And they say we'll have some fun if it stops raining!

=cut
Commit	Line	Data
360aca43	1	BEGIN {
	2	use File::Basename;
	3	my $THISDIR = dirname $0;
	4	unshift @INC, $THISDIR;
	5	require "testpchk.pl";
	6	import TestPodChecker;
	7	}
	8
	9	my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash
	10	my $passed = testpodchecker \%options, $0;
	11	exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE};
	12
	13
	14	__END__
	15
	16
	17	=head1 NAME
	18
	19	poderrors.t - test Pod::Checker on some pod syntax errors
	20
	21	=unknown1 this is an unknown command with two N<unknownA>
	22	and D<unknownB> interior sequences.
	23
	24	This is some paragraph text with some unknown interior sequences,
	25	such as Q<unknown2>,
	26	A<unknown3>,
	27	and Y<unknown4 V<unknown5>>.
	28
	29	Now try some unterminated sequences like
	30	I<hello mudda!
	31	B<hello fadda!
	32
	33	Here I am at C<camp granada!
	34
	35	Camps is very,
	36	entertaining.
	37	And they say we'll have some fun if it stops raining!
	38
	39	=cut