cpan/ExtUtils-MakeMaker/t/INST.t

   1 #!/usr/bin/perl -w
   2
   3 # Wherein we ensure the INST_* and INSTALL* variables are set correctly
   4 # in a default Makefile.PL run
   5 #
   6 # Essentially, this test is a Makefile.PL.
   7
   8 BEGIN {
   9     unshift @INC, 't/lib';
  10 }
  11
  12 use strict;
  13 use Test::More tests => 26;
  14 use MakeMaker::Test::Utils;
  15 use MakeMaker::Test::Setup::BFD;
  16 use ExtUtils::MakeMaker;
  17 use File::Spec;
  18 use TieOut;
  19 use Config;
  20
  21 chdir 't';
  22
  23 perl_lib;
  24
  25 $| = 1;
  26
  27 my $Makefile = makefile_name;
  28 my $Curdir = File::Spec->curdir;
  29 my $Updir  = File::Spec->updir;
  30
  31 ok( setup_recurs(), 'setup' );
  32 END {
  33     ok( chdir File::Spec->updir );
  34     ok( teardown_recurs(), 'teardown' );
  35 }
  36
  37 ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
  38   diag("chdir failed: $!");
  39
  40 my $stdout = tie *STDOUT, 'TieOut' or die;
  41 my $mm = WriteMakefile(
  42     NAME          => 'Big::Dummy',
  43     VERSION_FROM  => 'lib/Big/Dummy.pm',
  44     PREREQ_PM     => {},
  45     PERL_CORE     => $ENV{PERL_CORE},
  46 );
  47 like( $stdout->read, qr{
  48                         Writing\ $Makefile\ for\ Big::Liar\n
  49                         Writing\ MYMETA.yml\n
  50                         Big::Liar's\ vars\n
  51                         INST_LIB\ =\ \S+\n
  52                         INST_ARCHLIB\ =\ \S+\n
  53                         Writing\ $Makefile\ for\ Big::Dummy\n
  54                         Writing\ MYMETA.yml\n
  55 }x );
  56 undef $stdout;
  57 untie *STDOUT;
  58
  59 isa_ok( $mm, 'ExtUtils::MakeMaker' );
  60
  61 is( $mm->{NAME}, 'Big::Dummy',  'NAME' );
  62 is( $mm->{VERSION}, 0.01,            'VERSION' );
  63
  64 my $config_prefix = $Config{installprefixexp} || $Config{installprefix} ||
  65                     $Config{prefixexp}        || $Config{prefix};
  66 is( $mm->{PERLPREFIX}, $config_prefix,   'PERLPREFIX' );
  67
  68 is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );
  69
  70 my($perl_src, $mm_perl_src);
  71 if( $ENV{PERL_CORE} ) {
  72     $perl_src = File::Spec->catdir($Updir, $Updir, $Updir, $Updir);
  73     $perl_src = File::Spec->canonpath($perl_src);
  74     $mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
  75 }
  76 else {
  77     $mm_perl_src = $mm->{PERL_SRC};
  78 }
  79
  80 is( $mm_perl_src, $perl_src,     'PERL_SRC' );
  81
  82
  83 # PERM_*
  84 is( $mm->{PERM_RW},  644,    'PERM_RW' );
  85 is( $mm->{PERM_RWX}, 755,    'PERM_RWX' );
  86
  87
  88 # INST_*
  89 is( $mm->{INST_ARCHLIB},
  90     $mm->{PERL_CORE} ? $mm->{PERL_ARCHLIB}
  91                      : File::Spec->catdir($Curdir, 'blib', 'arch'),
  92                                      'INST_ARCHLIB');
  93 is( $mm->{INST_BIN},     File::Spec->catdir($Curdir, 'blib', 'bin'),
  94                                      'INST_BIN' );
  95
  96 is( keys %{$mm->{CHILDREN}}, 1 );
  97 my($child_pack) = keys %{$mm->{CHILDREN}};
  98 my $c_mm = $mm->{CHILDREN}{$child_pack};
  99 is( $c_mm->{INST_ARCHLIB},
 100     $c_mm->{PERL_CORE} ? $c_mm->{PERL_ARCHLIB}
 101                        : File::Spec->catdir($Updir, 'blib', 'arch'),
 102                                      'CHILD INST_ARCHLIB');
 103 is( $c_mm->{INST_BIN},     File::Spec->catdir($Updir, 'blib', 'bin'),
 104                                      'CHILD INST_BIN' );
 105
 106
 107 my $inst_lib = File::Spec->catdir($Curdir, 'blib', 'lib');
 108 is( $mm->{INST_LIB},
 109     $mm->{PERL_CORE} ? $mm->{PERL_LIB} : $inst_lib,     'INST_LIB' );
 110
 111
 112 # INSTALL*
 113 is( $mm->{INSTALLDIRS}, 'site',     'INSTALLDIRS' );
 114
 115
 116
 117 # Make sure the INSTALL*MAN*DIR variables work.  We forgot them
 118 # at one point.
 119 $stdout = tie *STDOUT, 'TieOut' or die;
 120 $mm = WriteMakefile(
 121     NAME          => 'Big::Dummy',
 122     VERSION_FROM  => 'lib/Big/Dummy.pm',
 123     PERL_CORE     => $ENV{PERL_CORE},
 124     INSTALLMAN1DIR       => 'none',
 125     INSTALLSITEMAN3DIR   => 'none',
 126     INSTALLVENDORMAN1DIR => 'none',
 127     INST_MAN1DIR         => 'none',
 128 );
 129 like( $stdout->read, qr{
 130                         Writing\ $Makefile\ for\ Big::Liar\n
 131                         Writing\ MYMETA.yml\n
 132                         Big::Liar's\ vars\n
 133                         INST_LIB\ =\ \S+\n
 134                         INST_ARCHLIB\ =\ \S+\n
 135                         Writing\ $Makefile\ for\ Big::Dummy\n
 136                         Writing\ MYMETA.yml\n
 137 }x );
 138 undef $stdout;
 139 untie *STDOUT;
 140
 141 isa_ok( $mm, 'ExtUtils::MakeMaker' );
 142
 143 is  ( $mm->{INSTALLMAN1DIR},        'none' );
 144 is  ( $mm->{INSTALLSITEMAN3DIR},    'none' );
 145 is  ( $mm->{INSTALLVENDORMAN1DIR},  'none' );
 146 is  ( $mm->{INST_MAN1DIR},          'none' );