5 use ExtUtils::Manifest qw(maniread);
6 #sub Pod::Coverage::TRACE_ALL() { 1 }
7 eval "use Test::Pod::Coverage 1.08;";
8 # 1.08 required for coverage_class support
9 plan skip_all => "Test::Pod::Coverage 1.08 required for POD coverage" if $@;
11 # scan for a list of files to get Imager method documentation from
12 my $manifest = maniread();
13 my @pods = ( 'Imager.pm', grep /\.pod$/, keys %$manifest );
23 '^polybezier$', # not ready for public consumption
24 '^border$', # I don't know what it is, expect it to go away
26 my @trustme = ( '^open$', );
31 pod_coverage_ok('Imager', { also_private => \@private,
34 coverage_class => 'Pod::Coverage::Imager' });
35 pod_coverage_ok('Imager::Font');
36 my @color_private = ( '^i_', '_internal$' );
37 pod_coverage_ok('Imager::Color',
38 { also_private => \@color_private });
39 pod_coverage_ok('Imager::Color::Float',
40 { also_private => \@color_private });
41 pod_coverage_ok('Imager::Color::Table');
42 pod_coverage_ok('Imager::ExtUtils');
43 pod_coverage_ok('Imager::Expr');
44 my $trust_parents = { coverage_class => 'Pod::Coverage::CountParents' };
45 pod_coverage_ok('Imager::Expr::Assem', $trust_parents);
46 pod_coverage_ok('Imager::Fill');
47 pod_coverage_ok('Imager::Font::BBox');
48 pod_coverage_ok('Imager::Font::Wrap');
49 pod_coverage_ok('Imager::Fountain');
50 pod_coverage_ok('Imager::Matrix2d');
51 pod_coverage_ok('Imager::Regops');
52 pod_coverage_ok('Imager::Transform');
53 pod_coverage_ok('Imager::Test');
54 pod_coverage_ok('Imager::IO',
56 pod_from => "lib/Imager/IO.pod",
57 coverage_class => "Pod::Coverage::Imager",
63 # check all documented methods/functions are in the method index
65 Pod::Coverage::Imager->new(package => 'Imager',
68 also_private => \@private);
69 my %methods = map { $_ => 1 } $coverage->covered;
70 open IMAGER, "< Imager.pm"
71 or die "Cannot open Imager.pm: $!";
73 last if /^=head1 METHOD INDEX/;
78 last if /^=\w/ && !/^=for\b/;
82 unless (delete $methods{$1}) {
83 push @unknown_indexed, $1;
88 unless (is(keys %methods, 0, "all methods in method index")) {
89 diag "the following methods are documented but not in the index:";
90 diag $_ for sort keys %methods;
92 unless (is(@unknown_indexed, 0, "only methods in method index")) {
93 diag "the following names are in the method index but not documented";
94 diag $_ for sort @unknown_indexed;
98 is_deeply(\@indexed, [ sort dict_cmp_func @indexed ],
99 "check method index is alphabetically sorted");
103 (my $tmp_a = lc $a) =~ tr/_//d;
104 (my $tmp_b = lc $b) =~ tr/_//d;