84 lines
1.8 KiB
Perl
84 lines
1.8 KiB
Perl
#!/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 );
|
|
|
|
}
|
|
|