Your IP : 216.73.216.74

Current Path : /proc/thread-self/root/usr/share/doc/perl-Test-DistManifest/examples/
Upload File :
Current File : //proc/thread-self/root/usr/share/doc/perl-Test-DistManifest/examples/checkmanifest.t

# examples/checkmanifest.t
#  Ensures MANIFEST file is up-to-date

use strict;
use warnings;

use Test::More;
use Test::DistManifest;

unless ($ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING}) {
  plan skip_all => 'Author tests not required for installation';
}

my %MODULES = (
  'Test::DistManifest'  => 1.002002,
  'Module::Manifest'    => 0.07,
);

while (my ($module, $version) = each %MODULES) {
  eval "use $module $version";
  next unless $@;

  if ($ENV{RELEASE_TESTING}) {
    die 'Could not load release-testing module ' . $module;
  }
  else {
    plan skip_all => $module . ' not available for testing';
  }
}

manifest_ok();