view release on metacpan or  search on metacpan

t/984_pod.t  view on Meta::CPAN

#!/usr/bin/perl

use Test::More;

use strict;
use warnings;
no  warnings 'syntax';

unless ($ENV {AUTHOR_TESTING}) {
    plan skip_all => "AUTHOR tests";
    exit;
}

undef $ENV {PATH};
my $FIND  = "/usr/bin/find";
my $CAT   = "/bin/cat";

my $top   = -d "blib" ? "blib/lib" : "lib";
my @files = `$FIND $top -name [a-z_]*.pm`;
chomp @files;

my @skip  = `$CAT MANIFEST.SKIP`;
chomp @skip;
my %skip  = map {$_ => 1} @skip;

my $main  = "$top/Acme/MetaSyntactic/Themes/Abigail.pm";

open my $fh, "<", $main or do {
    fail "Open $main: $!";
    done_testing;
    exit;
};

undef $/;
my $text = <$fh>;

foreach my $file (@files) {
    next if $skip {$file};
    $file =~ s!.*/!!;
    $file =~ s/\.pm//;
    ok $text =~ /C<< \Q$file\E >>/, "Theme '$file' mentioned in main POD";
}


done_testing;