Commit | Line | Data |
1bc4b319 |
1 | #!/usr/bin/perl |
2 | BEGIN { |
3 | use File::Basename; |
4 | my $THISDIR = dirname $0; |
5 | unshift @INC, $THISDIR; |
6 | require "testpchk.pl"; |
7 | import TestPodChecker; |
8 | } |
9 | |
10 | # this tests Pod::Checker accepts =encoding directive |
11 | |
12 | my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash |
13 | my $passed = testpodchecker \%options, $0; |
14 | exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; |
15 | |
16 | __END__ |
17 | |
18 | =encoding utf8 |
19 | |
20 | =encode utf8 |
21 | |
22 | dummy error |
23 | |
24 | =head1 An example. |
25 | |
26 | 'Twas brillig, and the slithy toves did gyre and gimble in the wabe. |
27 | |
28 | =cut |
29 | |