1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
use strict;
use warnings;
use File::Spec::Functions qw( catdir );
use Test::More tests => 3;
BEGIN {
use_ok('Module::Util', qw( find_installed module_fs_path ));
}
SKIP: {
eval {
require Test::Pod;
import Test::Pod;
};
skip "Test::Pod not installed", 1 if $@;
my $file = find_installed('Module::Util', catdir 'lib');
pod_file_ok($file, "Module::Util pod ok");
}
SKIP: {
eval {
require Test::Pod::Coverage;
import Test::Pod::Coverage;
};
skip "Test::Pod::Coverage not installed", 1 if $@;
pod_coverage_ok(
'Module::Util',
"Module::Util pod coverage ok"
);
}
__END__
vim: ft=perl
|
