t/pod.t

   1 #!/usr/bin/perl -w
   2
   3 use Test::More;
   4 use strict;
   5 my $tests;
   6
   7 BEGIN
   8    {
   9    $tests = 11;
  10    plan tests => $tests;
  11    chdir 't' if -d 't';
  12    use lib '../lib';
  13    };
  14
  15 SKIP:
  16   {
  17   skip( 'Test::Pod not installed on this system', $tests )
  18     unless do
  19       {
  20       eval ("use Test::Pod;");
  21       $@ ? 0 : 1;
  22       };
  23   for my $m (qw[
  24     Info.pm
  25     TIFF.pm
  26     Info/BMP.pm
  27     Info/GIF.pm
  28     Info/JPEG.pm
  29     Info/PNG.pm
  30     Info/PPM.pm
  31     Info/SVG.pm
  32     Info/TIFF.pm
  33     Info/XBM.pm
  34     Info/XPM.pm
  35     ])
  36     {
  37     pod_file_ok( '../lib/Image/' . $m );
  38     }
  39   }
  40