3 # Wherein we ensure the INST_* and INSTALL* variables are set correctly
4 # when various PREFIX variables are set.
6 # Essentially, this test is a Makefile.PL.
9 if( $ENV{PERL_CORE} ) {
11 @INC = ('../lib', 'lib');
14 unshift @INC, 't/lib';
19 use Test::More tests => 26;
20 use MakeMaker::Test::Utils;
21 use ExtUtils::MakeMaker;
26 my $Is_VMS = $^O eq 'VMS';
34 my $Makefile = makefile_name;
35 my $Curdir = File::Spec->curdir;
36 my $Updir = File::Spec->updir;
38 ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
39 diag("chdir failed: $!");
41 my $PREFIX = File::Spec->catdir('foo', 'bar');
42 my $stdout = tie *STDOUT, 'TieOut' or die;
43 my $mm = WriteMakefile(
45 VERSION_FROM => 'lib/Big/Dummy.pm',
47 PERL_CORE => $ENV{PERL_CORE},
50 like( $stdout->read, qr{
51 Writing\ $Makefile\ for\ Big::Liar\n
54 INST_ARCHLIB\ =\ \S+\n
55 Writing\ $Makefile\ for\ Big::Dummy\n
60 isa_ok( $mm, 'ExtUtils::MakeMaker' );
62 is( $mm->{NAME}, 'Big::Dummy', 'NAME' );
63 is( $mm->{VERSION}, 0.01, 'VERSION' );
65 is( $mm->{PREFIX}, $PREFIX, 'PREFIX' );
67 is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );
69 my($perl_src, $mm_perl_src);
70 if( $ENV{PERL_CORE} ) {
71 $perl_src = File::Spec->catdir($Updir, $Updir);
72 $perl_src = File::Spec->canonpath($perl_src);
73 $mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
76 $mm_perl_src = $mm->{PERL_SRC};
79 is( $mm_perl_src, $perl_src, 'PERL_SRC' );
82 # Every INSTALL* variable must start with some PREFIX.
83 my @Perl_Install = qw(archlib privlib bin script
85 my @Site_Install = qw(sitearch sitelib sitebin
86 siteman1dir siteman3dir);
87 my @Vend_Install = qw(vendorarch vendorlib vendorbin
88 vendorman1dir vendorman3dir);
90 foreach my $var (@Perl_Install) {
91 my $prefix = $Is_VMS ? '[.foo.bar' : File::Spec->catdir(qw(foo bar));
93 # support for man page skipping
94 $prefix = 'none' if $var =~ /man/ && !$Config{"install$var"};
95 like( $mm->{uc "install$var"}, qr/^\Q$prefix\E/, "PREFIX + $var" );
98 foreach my $var (@Site_Install) {
99 my $prefix = $Is_VMS ? '[.foo.bar' : File::Spec->catdir(qw(foo bar));
101 like( $mm->{uc "install$var"}, qr/^\Q$prefix\E/,
102 "SITEPREFIX + $var" );
105 foreach my $var (@Vend_Install) {
106 my $prefix = $Is_VMS ? '[.foo.bar' : File::Spec->catdir(qw(foo bar));
108 like( $mm->{uc "install$var"}, qr/^\Q$prefix\E/,
109 "VENDORPREFIX + $var" );
113 # Check that when installman*dir isn't set in Config no man pages
116 undef *ExtUtils::MM_Unix::Config;
117 %ExtUtils::MM_Unix::Config = %Config;
118 $ExtUtils::MM_Unix::Config{installman1dir} = '';
119 $ExtUtils::MM_Unix::Config{installman3dir} = '';
121 my $wibble = File::Spec->catdir(qw(wibble and such));
122 my $stdout = tie *STDOUT, 'TieOut' or die;
123 my $mm = WriteMakefile(
124 NAME => 'Big::Dummy',
125 VERSION_FROM => 'lib/Big/Dummy.pm',
127 PERL_CORE => $ENV{PERL_CORE},
129 INSTALLMAN1DIR=> $wibble,
132 is( $mm->{INSTALLMAN1DIR}, $wibble );
133 is( $mm->{INSTALLMAN3DIR}, 'none' );