|
#!/usr/bin/perl -w
BEGIN {
unshift @INC , 't/lib' ;
}
chdir 't' ;
my $Has_Test_Pod ;
BEGIN {
$Has_Test_Pod = eval 'use Test::Pod 0.95; 1' ;
}
plan skip_all => 'No MANIFEST'
unless -e "../MANIFEST" ;
chdir ".." ;
my $manifest = "MANIFEST" ;
open ( my $manifest_fh , "<" , $manifest ) or die "Can't open $manifest: $!" ;
my @modules = map { m{^lib/(\S+)}; $1 }
grep { m{^lib/\S+\.pm} }
< $manifest_fh >;
chomp @modules ;
close $manifest_fh ;
chdir 'lib' ;
plan tests => scalar @modules * 2;
foreach my $file ( @modules ) {
local @INC = @INC ;
unshift @INC , "." ;
ok eval { require ( $file ); 1 } or diag "require $file failed.\n$@" ;
SKIP: {
skip "Test::Pod not installed" , 1 unless $Has_Test_Pod ;
pod_file_ok( $file );
}
}
|