/xt/05_manifest.t
Perl | 32 lines | 21 code | 7 blank | 4 comment | 3 complexity | 35b937e9909f65b6c664cef9e7fe41da MD5 | raw file
1#!/usr/bin/perl 2 3# Test that our MANIFEST describes the distribution 4 5use strict; 6 7BEGIN { 8 use English qw(-no_match_vars); 9 $OUTPUT_AUTOFLUSH = 1; 10 $WARNING = 1; 11} 12 13my @MODULES = ( 'Test::DistManifest 1.001003', ); 14 15# Don't run tests for installs 16use Test::More; 17unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { 18 plan( skip_all => "Author tests not required for installation" ); 19} 20 21# Load the testing modules 22foreach my $MODULE (@MODULES) { 23 eval "use $MODULE"; 24 if ($EVAL_ERROR) { 25 $ENV{RELEASE_TESTING} 26 ? BAIL_OUT("Failed to load required release-testing module $MODULE") 27 : plan( skip_all => "$MODULE not available for testing" ); 28 } 29} 30 31manifest_ok(); 32sleep(2);