BEGIN { chdir 't' if -d 't'; unshift @INC, '../lib'; unshift @INC, './pod'; 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 and D interior sequences. This is some paragraph text with some unknown interior sequences, such as Q, A, and Y>. Now try some unterminated sequences like I>> =head2 Garbled entities E E> E> E<0x100> E<07777> E<300> =head2 Unresolved internal links L L<"end with begin"> L =head2 Some links with problems L L<> L< aha> L L<"Warnings"> this one is ok L ok too, this POD has an X of the same name =head2 Warnings L L should give warnings as hell =over 4 =item bla =back 200 the 200 is evil =begin html What? =end xml Xsee these unescaped < and > in the text? =head2 Misc Z should be empty X<> should not be empty =over four This paragrapgh is misplaced - it ought to be an item. =item four should be numeric! =item =item blah =item previous is all empty!!! =back All empty over/back: =over 4 =back item w/o name =cut =pod bla bla is evil =cut blub blub is evil =head2 reoccurence =over 4 =item Misc we already have a head Misc =back =head2 some heading =head2 another one previous section is empty! =cut