File: pod.t

package info (click to toggle)
libimage-info-perl 1.28-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, lenny, squeeze, wheezy
  • size: 568 kB
  • ctags: 193
  • sloc: perl: 4,152; makefile: 46
file content (40 lines) | stat: -rw-r--r-- 566 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/usr/bin/perl -w

use Test::More;
use strict;
my $tests;

BEGIN
   {
   $tests = 11;
   plan tests => $tests;
   chdir 't' if -d 't';
   use lib '../lib';
   };

SKIP:
  {
  skip( 'Test::Pod not installed on this system', $tests )
    unless do
      {
      eval ("use Test::Pod;");
      $@ ? 0 : 1;
      };
  for my $m (qw[ 
    Info.pm
    TIFF.pm
    Info/BMP.pm
    Info/GIF.pm
    Info/JPEG.pm
    Info/PNG.pm
    Info/PPM.pm
    Info/SVG.pm
    Info/TIFF.pm
    Info/XBM.pm
    Info/XPM.pm
    ])
    {
    pod_file_ok( '../lib/Image/' . $m );
    }
  }