1#!/usr/bin/perl -w 2 3BEGIN { 4 if( $ENV{PERL_CORE} ) { 5 @INC = ('../lib', 'lib'); 6 } 7 else { 8 unshift @INC, 't/lib'; 9 } 10} 11chdir 't'; 12 13use File::Find; 14use File::Spec; 15use Test::More; 16 17my $Has_Test_Pod; 18BEGIN { 19 $Has_Test_Pod = eval 'use Test::Pod 0.95; 1'; 20} 21 22chdir File::Spec->updir; 23my $manifest = File::Spec->catfile('MANIFEST'); 24open(MANIFEST, $manifest) or die "Can't open $manifest: $!"; 25my @modules = map { m{^lib/(\S+)}; $1 } 26 grep { m{^lib/ExtUtils/\S*\.pm} } <MANIFEST>; 27chomp @modules; 28close MANIFEST; 29 30chdir 'lib'; 31plan tests => scalar @modules * 2; 32foreach my $file (@modules) { 33 # 5.8.0 has a bug about require alone in an eval. Thus the extra 34 # statement. 35 eval { require($file); 1 }; 36 is( $@, '', "require $file" ); 37 38 SKIP: { 39 skip "Test::Pod not installed", 1 unless $Has_Test_Pod; 40 pod_file_ok($file); 41 } 42} 43