Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Net-DNS-1.19/t/00-install.t
# $Id: 00-install.t 1698 2018-07-24 15:29:05Z willem $ -*-perl-*-
use strict;
use Test::More;
use File::Spec;
use File::Find;
use ExtUtils::MakeMaker;
my @files;
my $blib = File::Spec->catfile(qw(blib lib));
find( sub { push( @files, $File::Find::name ) if /\.pm$/ && !/Template/ }, $blib );
my %manifest;
open MANIFEST, 'MANIFEST' or plan skip_all => "MANIFEST: $!";
while (<MANIFEST>) {
chomp;
my ( $volume, $directory, $name ) = File::Spec->splitpath($_);
$manifest{lc $name}++ if $name;
}
close MANIFEST;
plan skip_all => 'No versions from git checkouts' if -e '.git';
plan skip_all => 'Not sure how to parse versions.' unless eval { MM->can('parse_version') };
plan tests => scalar @files;
foreach my $file ( sort @files ) { # reconcile files with MANIFEST
my $version = MM->parse_version($file);
ok( $version =~ /[\d.]{3}/, "file version: $version\t$file" );
my ( $volume, $directory, $name ) = File::Spec->splitpath($file);
diag("File not in MANIFEST: $file") unless $manifest{lc $name};
}
exit;
__END__
Mini Shell