t/pod/podchkenc.t

   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