[perl5.git] / t / pod / poderrs.t

#!./perl
BEGIN {
   chdir 't' if -d 't';
   unshift @INC, './pod', '../lib';
   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!

=head1 Additional tests

=head2 item without over

=item oops

=head2 back without over

=back

=head2 over without back

=over 4

=item oops

=head2 end without begin

=end

=head2 begin and begin

=begin html

=begin text

=end

=end

=head2 Nested sequences of the same type

C<code I<italic C<code again!>>>

=head2 Garbled entities

E<alea iacta est>
E<C<auml>>
E<abcI<bla>>

=head2 Unresolved internal links

L</"begin or begin">
L<"end with begin">
L</OoPs>

=head2 Garbled (almost) links

L<s s / s s / ss>
L<".".":">
L<"h"/"hh">
L<a|b|c>

=head2 Warnings

L<passwd(5)>
L<   some text|page/"section"   >

=over 4

=item bla

=back 200

=begin html

What?

=end xml

=over 4

=back

see these unescaped < and > in the text?

=cut
Commit	Line	Data
27f805f4	1	#!./perl
360aca43	2	BEGIN {
27f805f4 GS	3	chdir 't' if -d 't';
27f805f4 GS	4	unshift @INC, './pod', '../lib';
360aca43 GS	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
e3237417 GS	39	=head1 Additional tests
	40
	41	=head2 item without over
	42
	43	=item oops
	44
	45	=head2 back without over
	46
	47	=back
	48
	49	=head2 over without back
	50
	51	=over 4
	52
	53	=item oops
	54
	55	=head2 end without begin
	56
	57	=end
	58
	59	=head2 begin and begin
	60
	61	=begin html
	62
	63	=begin text
	64
	65	=end
	66
	67	=end
	68
	69	=head2 Nested sequences of the same type
	70
	71	C<code I<italic C<code again!>>>
	72
	73	=head2 Garbled entities
	74
	75	E<alea iacta est>
	76	E<C<auml>>
	77	E<abcI<bla>>
	78
	79	=head2 Unresolved internal links
	80
	81	L</"begin or begin">
	82	L<"end with begin">
	83	L</OoPs>
	84
	85	=head2 Garbled (almost) links
	86
	87	L<s s / s s / ss>
	88	L<".".":">
	89	L<"h"/"hh">
	90	L<a\|b\|c>
	91
	92	=head2 Warnings
	93
	94	L<passwd(5)>
	95	L< some text\|page/"section" >
	96
	97	=over 4
	98
	99	=item bla
	100
	101	=back 200
	102
103	=begin html
104
105	What?
106
107	=end xml
108
109	=over 4
110
111	=back
112
113	see these unescaped < and > in the text?
114
360aca43	115	=cut
e3237417	116