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
41
42
43
44
45
46
47
48
49
50
|
#!perl
use strict;
use warnings;
use Test::More;
my @packages = qw(
Math::Symbolic
Math::Symbolic::AuxFunctions
Math::Symbolic::Base
Math::Symbolic::Compiler
Math::Symbolic::Constant
Math::Symbolic::Custom
Math::Symbolic::Custom::Base
Math::Symbolic::Custom::DefaultDumpers
Math::Symbolic::Custom::DefaultMods
Math::Symbolic::Custom::DefaultTests
Math::Symbolic::Derivative
Math::Symbolic::ExportConstants
Math::Symbolic::MiscAlgebra
Math::Symbolic::MiscCalculus
Math::Symbolic::Operator
Math::Symbolic::Parser
Math::Symbolic::Variable
Math::Symbolic::VectorCalculus
);
eval { require Test::Pod::Coverage; };
if ($@) {
plan skip_all => 'Test::Pod::Coverage not installed';
exit;
}
else {
import Test::Pod::Coverage;
plan tests => (4+scalar(@packages));
}
use_ok('Math::Symbolic');
use_ok('Math::Symbolic::MiscAlgebra');
use_ok('Math::Symbolic::VectorCalculus');
use_ok('Math::Symbolic::MiscCalculus');
my $also_private = {also_private=> [qr/^_/, qr/^\(/, qr/^AUTOLOAD$/, qr/^DESTROY$/, '^can$']};
foreach my $namespace (@packages) {
pod_coverage_ok(
$namespace, $also_private
);
}
|
