File: pod_cov.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 (41 lines) | stat: -rw-r--r-- 588 bytes parent folder | download | duplicates (2) 
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
41
 
#!/usr/bin/perl -w

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

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

SKIP:
  {
  skip("Test::Pod::Coverage 1.00 required for testing POD coverage", $tests)
    unless do {
    eval "use Test::Pod::Coverage;";
    $@ ? 0 : 1;
    };
  for my $m (qw[
    Info
    Info::BMP
    Info::PPM
    Info::SVG
    Info::XBM
    Info::XPM
    Info::TIFF
    ])
    {
    pod_coverage_ok( 'Image::' . $m, "$m is covered" );
    }
  # XXX TODO:
#    TIFF
#    Info::GIF
#    Info::PNG
#    Info::JPEG

  }