1#!/usr/bin/perl
2BEGIN {
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
12my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash
13my $passed  = testpodchecker \%options, $0;
14exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};
15
16__END__
17
18=encoding utf8
19
20=encode utf8
21
22dummy 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
30