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