unless
(
$ENV
{RELEASE_TESTING} ) {
plan(
skip_all
=>
"Author tests not required for installation"
);
}
my
$min_tpc
= 1.08;
eval
"use Test::Pod::Coverage $min_tpc"
;
plan
skip_all
=>
"Test::Pod::Coverage $min_tpc required for testing POD coverage"
if
$@;
my
$pc
= Pod::Coverage->new(
package
=>
'RPi::OLED::SSD1306::128_64'
,
pod_from
=>
'lib/RPi/OLED/SSD1306/128_64.pm'
,
private
=> [
qr/^ssd1306/
,
qr/^bootstrap$/
],
);
is
$pc
->coverage, 1,
"pod coverage ok"
;
if
(
$pc
->uncovered){
print
"Uncovered:\n\t"
,
join
(
", "
,
$pc
->uncovered ),
"\n"
;
}
done_testing;