Commit | Line | Data |
27f805f4 |
1 | #!./perl |
360aca43 |
2 | BEGIN { |
27f805f4 |
3 | chdir 't' if -d 't'; |
4 | unshift @INC, './pod', '../lib'; |
360aca43 |
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 |