#!/usr/bin/perl
# $Id: pod-coverage.t 2305 2011-01-22 12:28:57Z guillomovitch $
use strict;
use warnings;
use Test::More;
use UNIVERSAL::require;
plan(skip_all => 'Author test, set $ENV{TEST_AUTHOR} to a true value to run')
unless $ENV{TEST_AUTHOR};
eval "use Test::Pod::Coverage 1.04";
plan(skip_all => 'Test::Pod::Coverage >= 1.04 required, skipping') if $@;
my @modules = all_modules('lib');
if (!RPM4->require()) {
@modules = grep { ! /RPM::RPM4$/ } @modules;
}
if (!RPM->require()) {
@modules = grep { ! /RPM::RPM4/ } @modules;
}
plan tests => scalar @modules;
foreach my $module (@modules) {
pod_coverage_ok(
$module,
{
coverage_class => 'Pod::Coverage::CountParents',
}
);
}