[gitmo/Mouse.git] / t / 800_with_external / 001-pod-coverage-moose.t

use strict;
use warnings;
use Test::More;
use FindBin;
use File::Spec;
use lib File::Spec->catfile($FindBin::Bin, 'lib');

plan skip_all => 'This test requires Pod::Coverage::Moose' unless eval "use Pod::Coverage::Moose; 1";
plan tests => 1;

# support Pod::Coverage::Moose
#   https://rt.cpan.org/Ticket/Display.html?id=47744

my $cov = Pod::Coverage::Moose->new(package => 'Foo');
is $cov->coverage, 0.5
    or diag "why unrated? - " . $cov->why_unrated;
Commit	Line	Data
5d4df3f8	1	use strict;
	2	use warnings;
	3	use Test::More;
	4	use FindBin;
	5	use File::Spec;
	6	use lib File::Spec->catfile($FindBin::Bin, 'lib');
	7
	8	plan skip_all => 'This test requires Pod::Coverage::Moose' unless eval "use Pod::Coverage::Moose; 1";
	9	plan tests => 1;
	10
	11	# support Pod::Coverage::Moose
	12	# https://rt.cpan.org/Ticket/Display.html?id=47744
	13
21f7fab9	14	my $cov = Pod::Coverage::Moose->new(package => 'Foo');
	15	is $cov->coverage, 0.5
	16	or diag "why unrated? - " . $cov->why_unrated;