1N/A#!/usr/bin/perl -w
1N/A
1N/A# Wherein we ensure the INST_* and INSTALL* variables are set correctly
1N/A# in a default Makefile.PL run
1N/A#
1N/A# Essentially, this test is a Makefile.PL.
1N/A
1N/ABEGIN {
1N/A if( $ENV{PERL_CORE} ) {
1N/A chdir 't' if -d 't';
1N/A @INC = ('../lib', 'lib');
1N/A }
1N/A else {
1N/A unshift @INC, 't/lib';
1N/A }
1N/A}
1N/A
1N/Ause strict;
1N/Ause Test::More tests => 23;
1N/Ause MakeMaker::Test::Utils;
1N/Ause ExtUtils::MakeMaker;
1N/Ause File::Spec;
1N/Ause TieOut;
1N/Ause Config;
1N/A
1N/Achdir 't';
1N/A
1N/Aperl_lib;
1N/A
1N/A$| = 1;
1N/A
1N/Amy $Makefile = makefile_name;
1N/Amy $Curdir = File::Spec->curdir;
1N/Amy $Updir = File::Spec->updir;
1N/A
1N/Aok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
1N/A diag("chdir failed: $!");
1N/A
1N/Amy $stdout = tie *STDOUT, 'TieOut' or die;
1N/Amy $mm = WriteMakefile(
1N/A NAME => 'Big::Dummy',
1N/A VERSION_FROM => 'lib/Big/Dummy.pm',
1N/A PREREQ_PM => {},
1N/A PERL_CORE => $ENV{PERL_CORE},
1N/A);
1N/Alike( $stdout->read, qr{
1N/A Writing\ $Makefile\ for\ Big::Liar\n
1N/A Big::Liar's\ vars\n
1N/A INST_LIB\ =\ \S+\n
1N/A INST_ARCHLIB\ =\ \S+\n
1N/A Writing\ $Makefile\ for\ Big::Dummy\n
1N/A}x );
1N/Aundef $stdout;
1N/Auntie *STDOUT;
1N/A
1N/Aisa_ok( $mm, 'ExtUtils::MakeMaker' );
1N/A
1N/Ais( $mm->{NAME}, 'Big::Dummy', 'NAME' );
1N/Ais( $mm->{VERSION}, 0.01, 'VERSION' );
1N/A
1N/Amy $config_prefix = $Config{installprefixexp} || $Config{installprefix} ||
1N/A $Config{prefixexp} || $Config{prefix};
1N/Ais( $mm->{PERLPREFIX}, $config_prefix, 'PERLPREFIX' );
1N/A
1N/Ais( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );
1N/A
1N/Amy($perl_src, $mm_perl_src);
1N/Aif( $ENV{PERL_CORE} ) {
1N/A $perl_src = File::Spec->catdir($Updir, $Updir);
1N/A $perl_src = File::Spec->canonpath($perl_src);
1N/A $mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
1N/A}
1N/Aelse {
1N/A $mm_perl_src = $mm->{PERL_SRC};
1N/A}
1N/A
1N/Ais( $mm_perl_src, $perl_src, 'PERL_SRC' );
1N/A
1N/A
1N/A# PERM_*
1N/Ais( $mm->{PERM_RW}, 644, 'PERM_RW' );
1N/Ais( $mm->{PERM_RWX}, 755, 'PERM_RWX' );
1N/A
1N/A
1N/A# INST_*
1N/Ais( $mm->{INST_ARCHLIB},
1N/A $mm->{PERL_CORE} ? $mm->{PERL_ARCHLIB}
1N/A : File::Spec->catdir($Curdir, 'blib', 'arch'),
1N/A 'INST_ARCHLIB');
1N/Ais( $mm->{INST_BIN}, File::Spec->catdir($Curdir, 'blib', 'bin'),
1N/A 'INST_BIN' );
1N/A
1N/Ais( keys %{$mm->{CHILDREN}}, 1 );
1N/Amy($child_pack) = keys %{$mm->{CHILDREN}};
1N/Amy $c_mm = $mm->{CHILDREN}{$child_pack};
1N/Ais( $c_mm->{INST_ARCHLIB},
1N/A $c_mm->{PERL_CORE} ? $c_mm->{PERL_ARCHLIB}
1N/A : File::Spec->catdir($Updir, 'blib', 'arch'),
1N/A 'CHILD INST_ARCHLIB');
1N/Ais( $c_mm->{INST_BIN}, File::Spec->catdir($Updir, 'blib', 'bin'),
1N/A 'CHILD INST_BIN' );
1N/A
1N/A
1N/Amy $inst_lib = File::Spec->catdir($Curdir, 'blib', 'lib');
1N/Ais( $mm->{INST_LIB},
1N/A $mm->{PERL_CORE} ? $mm->{PERL_LIB} : $inst_lib, 'INST_LIB' );
1N/A
1N/A
1N/A# INSTALL*
1N/Ais( $mm->{INSTALLDIRS}, 'site', 'INSTALLDIRS' );
1N/A
1N/A
1N/A
1N/A# Make sure the INSTALL*MAN*DIR variables work. We forgot them
1N/A# at one point.
1N/A$stdout = tie *STDOUT, 'TieOut' or die;
1N/A$mm = WriteMakefile(
1N/A NAME => 'Big::Dummy',
1N/A VERSION_FROM => 'lib/Big/Dummy.pm',
1N/A PERL_CORE => $ENV{PERL_CORE},
1N/A INSTALLMAN1DIR => 'none',
1N/A INSTALLSITEMAN3DIR => 'none',
1N/A INSTALLVENDORMAN1DIR => 'none',
1N/A INST_MAN1DIR => 'none',
1N/A);
1N/Alike( $stdout->read, qr{
1N/A Writing\ $Makefile\ for\ Big::Liar\n
1N/A Big::Liar's\ vars\n
1N/A INST_LIB\ =\ \S+\n
1N/A INST_ARCHLIB\ =\ \S+\n
1N/A Writing\ $Makefile\ for\ Big::Dummy\n
1N/A}x );
1N/Aundef $stdout;
1N/Auntie *STDOUT;
1N/A
1N/Aisa_ok( $mm, 'ExtUtils::MakeMaker' );
1N/A
1N/Ais ( $mm->{INSTALLMAN1DIR}, 'none' );
1N/Ais ( $mm->{INSTALLSITEMAN3DIR}, 'none' );
1N/Ais ( $mm->{INSTALLVENDORMAN1DIR}, 'none' );
1N/Ais ( $mm->{INST_MAN1DIR}, 'none' );