#!/usr/bin/perl -w
use Test::More;
use strict;
my $tests;
BEGIN
{
$tests = 21;
plan tests => $tests;
chdir 't' if -d 't';
use lib '../lib';
};
SKIP:
{
skip("Test::Pod::Coverage 1.08 and Pod::Coverage 0.19 required for testing POD coverage", $tests)
unless do {
eval "use Test::Pod::Coverage 1.08";
my $r = ($@ ? 0 : 1);
eval "use Pod::Coverage 0.19"; # need this on newer Perls to avoid false-fails
$r & ($@ ? 0 : 1); # only return true if we have both
};
for my $m (qw/
Graph::Easy
Graph::Easy::Node
Graph::Easy::Group
Graph::Easy::Edge
Graph::Easy::Base
Graph::Easy::As_ascii
Graph::Easy::As_txt
Graph::Easy::As_graphviz
Graph::Easy::As_vcg
Graph::Easy::Layout::Chain
Graph::Easy::Layout::Grid
Graph::Easy::Layout::Path
Graph::Easy::Layout::Scout
Graph::Easy::Layout::Repair
Graph::Easy::Attributes
/)
{
pod_coverage_ok( $m, "$m is covered" );
}
my $trustparents = { coverage_class => 'Pod::Coverage::CountParents' };
for my $m (qw/
Graph::Easy::Node::Anon
Graph::Easy::Group::Anon
/)
{
pod_coverage_ok( $m, $trustparents, "$m is covered" );
}
# Define the global CONSTANTS for internal usage
my $trustme = { trustme => [ qr/^(
ACTION_CHAIN|
ACTION_NODE|
ACTION_TRACE|
ACTION_EDGES|
ACTION_SPLICE|
ATTR_COLOR|
ATTR_DEFAULT_SLOT|
ATTR_DESC_SLOT|
ATTR_EXAMPLE_SLOT|
ATTR_MATCH_SLOT|
ATTR_STRING|
ATTR_ANGLE|
ATTR_PORT|
ATTR_TYPE_SLOT|
)\z/x ] };
pod_coverage_ok( "Graph::Easy::Layout", $trustme );
# Define the global CONSTANTS for internal usage
$trustme = { trustme => [ qr/^(
NO_MULTIPLES
)\z/x ] };
pod_coverage_ok( "Graph::Easy::Parser", $trustme );
pod_coverage_ok( "Graph::Easy::Parser::Graphviz", $trustme );
pod_coverage_ok( "Graph::Easy::Parser::VCG", $trustme );
}