3 # Wherein we ensure the INST_* and INSTALL* variables are set correctly
4 # in a default Makefile.PL run
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 MakeMaker::Test::Setup::BFD;
22 use ExtUtils::MakeMaker;
33 my $Makefile = makefile_name;
34 my $Curdir = File::Spec->curdir;
35 my $Updir = File::Spec->updir;
37 ok( setup_recurs(), 'setup' );
39 ok( chdir File::Spec->updir );
40 ok( teardown_recurs(), 'teardown' );
43 ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
44 diag("chdir failed: $!");
46 my $stdout = tie *STDOUT, 'TieOut' or die;
47 my $mm = WriteMakefile(
49 VERSION_FROM => 'lib/Big/Dummy.pm',
51 PERL_CORE => $ENV{PERL_CORE},
53 like( $stdout->read, qr{
54 Writing\ $Makefile\ for\ Big::Liar\n
57 INST_ARCHLIB\ =\ \S+\n
58 Writing\ $Makefile\ for\ Big::Dummy\n
63 isa_ok( $mm, 'ExtUtils::MakeMaker' );
65 is( $mm->{NAME}, 'Big::Dummy', 'NAME' );
66 is( $mm->{VERSION}, 0.01, 'VERSION' );
68 my $config_prefix = $Config{installprefixexp} || $Config{installprefix} ||
69 $Config{prefixexp} || $Config{prefix};
70 is( $mm->{PERLPREFIX}, $config_prefix, 'PERLPREFIX' );
72 is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );
74 my($perl_src, $mm_perl_src);
75 if( $ENV{PERL_CORE} ) {
76 $perl_src = File::Spec->catdir($Updir, $Updir);
77 $perl_src = File::Spec->canonpath($perl_src);
78 $mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
81 $mm_perl_src = $mm->{PERL_SRC};
84 is( $mm_perl_src, $perl_src, 'PERL_SRC' );
88 is( $mm->{PERM_RW}, 644, 'PERM_RW' );
89 is( $mm->{PERM_RWX}, 755, 'PERM_RWX' );
93 is( $mm->{INST_ARCHLIB},
94 $mm->{PERL_CORE} ? $mm->{PERL_ARCHLIB}
95 : File::Spec->catdir($Curdir, 'blib', 'arch'),
97 is( $mm->{INST_BIN}, File::Spec->catdir($Curdir, 'blib', 'bin'),
100 is( keys %{$mm->{CHILDREN}}, 1 );
101 my($child_pack) = keys %{$mm->{CHILDREN}};
102 my $c_mm = $mm->{CHILDREN}{$child_pack};
103 is( $c_mm->{INST_ARCHLIB},
104 $c_mm->{PERL_CORE} ? $c_mm->{PERL_ARCHLIB}
105 : File::Spec->catdir($Updir, 'blib', 'arch'),
106 'CHILD INST_ARCHLIB');
107 is( $c_mm->{INST_BIN}, File::Spec->catdir($Updir, 'blib', 'bin'),
111 my $inst_lib = File::Spec->catdir($Curdir, 'blib', 'lib');
113 $mm->{PERL_CORE} ? $mm->{PERL_LIB} : $inst_lib, 'INST_LIB' );
117 is( $mm->{INSTALLDIRS}, 'site', 'INSTALLDIRS' );
121 # Make sure the INSTALL*MAN*DIR variables work. We forgot them
123 $stdout = tie *STDOUT, 'TieOut' or die;
125 NAME => 'Big::Dummy',
126 VERSION_FROM => 'lib/Big/Dummy.pm',
127 PERL_CORE => $ENV{PERL_CORE},
128 INSTALLMAN1DIR => 'none',
129 INSTALLSITEMAN3DIR => 'none',
130 INSTALLVENDORMAN1DIR => 'none',
131 INST_MAN1DIR => 'none',
133 like( $stdout->read, qr{
134 Writing\ $Makefile\ for\ Big::Liar\n
137 INST_ARCHLIB\ =\ \S+\n
138 Writing\ $Makefile\ for\ Big::Dummy\n
143 isa_ok( $mm, 'ExtUtils::MakeMaker' );
145 is ( $mm->{INSTALLMAN1DIR}, 'none' );
146 is ( $mm->{INSTALLSITEMAN3DIR}, 'none' );
147 is ( $mm->{INSTALLVENDORMAN1DIR}, 'none' );
148 is ( $mm->{INST_MAN1DIR}, 'none' );