#!/usr/bin/perl -w
use
Test::More;
use
strict;
my
$tests
;
BEGIN
{
$tests
= 7;
plan
tests
=>
$tests
;
chdir
't'
if
-d
't'
;
};
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
}