3 my $THISDIR = dirname $0;
4 unshift @INC, $THISDIR;
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};
13 ### Deliberately throw in some blank but non-empty lines
15 ### The above line should contain spaces
23 poderrors.t - test Pod::Checker on some pod syntax errors
25 =unknown1 this is an unknown command with two N<unknownA>
26 and D<unknownB> interior sequences.
28 This is some paragraph text with some unknown interior sequences,
31 and Y<unknown4 V<unknown5>>.
33 Now try some unterminated sequences like
37 Here I am at C<camp granada!
41 And they say we'll have some fun if it stops raining!
43 Okay, now use a non-empty blank line to terminate a paragraph and make
44 sure we get a warning.
46 The above blank line contains tabs and spaces only
48 =head1 Additional tests
50 =head2 item without over
54 =head2 back without over
58 =head2 over without back
64 =head2 end without begin
68 =head2 begin and begin
78 second one results in end w/o begin
80 =head2 begin w/o formatter
86 =head2 for w/o formatter
92 =head2 Nested sequences of the same type
94 C<code I<italic C<code again!>>>
96 =head2 Garbled entities
105 =head2 Unresolved internal links
111 =head2 Some links with problems
118 L<"Warnings"> this one is ok
119 L</unescaped> ok too, this POD has an X of the same name
124 L<some text with / in it|perlvar/$|> should give warnings as hell
140 X<unescaped>see these unescaped < and > in the text?
144 Z<ddd> should be empty
146 X<> should not be empty
150 This paragrapgh is misplaced - it ought to be an item.
152 =item four should be numeric!
158 =item previous is all empty!!!
186 we already have a head Misc
194 previous section is empty!