[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};

### Deliberately throw in some blank but non-empty lines
                                        
### The above line should contain spaces


__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!

Okay, now use a non-empty blank line to terminate a paragraph and make
sure we get a warning.
	                                     	
The above blank line contains tabs and spaces only

=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 Some links with problems

L<abc
def>
L<>
L<"Warnings"> this one is ok

=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
48f30392 GS	13	### Deliberately throw in some blank but non-empty lines
	14
	15	### The above line should contain spaces
	16
360aca43 GS	17
	18	__END__
	19
	20
	21	=head1 NAME
	22
	23	poderrors.t - test Pod::Checker on some pod syntax errors
	24
	25	=unknown1 this is an unknown command with two N<unknownA>
	26	and D<unknownB> interior sequences.
	27
	28	This is some paragraph text with some unknown interior sequences,
	29	such as Q<unknown2>,
	30	A<unknown3>,
	31	and Y<unknown4 V<unknown5>>.
	32
	33	Now try some unterminated sequences like
	34	I<hello mudda!
	35	B<hello fadda!
	36
	37	Here I am at C<camp granada!
	38
	39	Camps is very,
	40	entertaining.
	41	And they say we'll have some fun if it stops raining!
	42
66aff6dd GS	43	Okay, now use a non-empty blank line to terminate a paragraph and make
	44	sure we get a warning.
	45
	46	The above blank line contains tabs and spaces only
	47
e3237417 GS	48	=head1 Additional tests
	49
	50	=head2 item without over
	51
	52	=item oops
	53
	54	=head2 back without over
	55
	56	=back
	57
	58	=head2 over without back
	59
	60	=over 4
	61
	62	=item oops
	63
	64	=head2 end without begin
	65
	66	=end
	67
	68	=head2 begin and begin
	69
	70	=begin html
	71
	72	=begin text
	73
	74	=end
	75
	76	=end
	77
	78	=head2 Nested sequences of the same type
	79
	80	C<code I<italic C<code again!>>>
	81
	82	=head2 Garbled entities
	83
	84	E<alea iacta est>
	85	E<C<auml>>
	86	E<abcI<bla>>
	87
	88	=head2 Unresolved internal links
	89
	90	L</"begin or begin">
	91	L<"end with begin">
	92	L</OoPs>
	93
e2c3adef	94	=head2 Some links with problems
e3237417	95
e2c3adef GS	96	L<abc
	97	def>
	98	L<>
	99	L<"Warnings"> this one is ok
e3237417 GS	100
	101	=head2 Warnings
	102
	103	L<passwd(5)>
	104	L< some text\|page/"section" >
	105
	106	=over 4
	107
	108	=item bla
	109
	110	=back 200
	111
	112	=begin html
	113
	114	What?
	115
	116	=end xml
	117
	118	=over 4
	119
	120	=back
	121
	122	see these unescaped < and > in the text?
	123
360aca43	124	=cut
e3237417	125