[p5sagit/p5-mst-13.2.git] / ext / ExtUtils-MakeMaker / t / 00compile.t

#!/usr/bin/perl -w

BEGIN {
    unshift @INC, 't/lib';
}
chdir 't';

use Test::More;

my $Has_Test_Pod;
BEGIN {
    $Has_Test_Pod = eval 'use Test::Pod 0.95; 1';
}

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) {
    # Make sure we look at the local files and do not reload them if
    # they're already loaded.  This avoids recompilation warnings.
    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);
    }
}
Commit	Line	Data
479d2113	1	#!/usr/bin/perl -w
	2
	3	BEGIN {
b78fd716	4	unshift @INC, 't/lib';
479d2113	5	}
	6	chdir 't';
	7
479d2113	8	use Test::More;
	9
	10	my $Has_Test_Pod;
	11	BEGIN {
	12	$Has_Test_Pod = eval 'use Test::Pod 0.95; 1';
	13	}
	14
cb06ebec	15	chdir "..";
cb06ebec	16	my $manifest = "MANIFEST";
5bdf71cc	17	open(my $manifest_fh, "<", $manifest) or die "Can't open $manifest: $!";
dedf98bc	18	my @modules = map { m{^lib/(\S+)}; $1 }
b78fd716	19	grep { m{^lib/\S+\.pm} }
b78fd716	20	<$manifest_fh>;
dedf98bc	21	chomp @modules;
5bdf71cc	22	close $manifest_fh;
dedf98bc	23
dedf98bc	24	chdir 'lib';
479d2113	25	plan tests => scalar @modules * 2;
479d2113	26	foreach my $file (@modules) {
a592ba15	27	# Make sure we look at the local files and do not reload them if
	28	# they're already loaded. This avoids recompilation warnings.
	29	local @INC = @INC;
	30	unshift @INC, ".";
	31	ok eval { require($file); 1 } or diag "require $file failed.\n$@";
479d2113	32
	33	SKIP: {
	34	skip "Test::Pod not installed", 1 unless $Has_Test_Pod;
	35	pod_file_ok($file);
	36	}
479d2113	37	}