Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
testdata	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
00compile.t	929 B	-r--r--r--	2014-12-27 11:48
01perl_bugs.t	539 B	-r--r--r--	2014-12-27 11:48
FIRST_MAKEFILE.t	808 B	-r--r--r--	2014-12-27 11:49
INST.t	4.72 KB	-r--r--r--	2014-12-27 11:48
INSTALL_BASE.t	2.01 KB	-r--r--r--	2014-12-27 11:49
INST_PREFIX.t	9.07 KB	-r--r--r--	2014-12-27 11:48
Liblist.t	670 B	-r--r--r--	2014-12-27 11:48
META_for_testing.json	1.39 KB	-r--r--r--	2014-12-27 11:48
META_for_testing.yml	839 B	-r--r--r--	2014-12-27 11:48
META_for_testing_tricky_version.yml	574 B	-r--r--r--	2014-12-27 11:48
MM_Any.t	747 B	-r--r--r--	2014-12-27 11:48
MM_BeOS.t	1.04 KB	-r--r--r--	2014-12-27 11:48
MM_Cygwin.t	3.2 KB	-r--r--r--	2014-12-27 11:48
MM_NW5.t	7.68 KB	-r--r--r--	2014-12-27 11:48
MM_OS2.t	6.79 KB	-r--r--r--	2014-12-27 11:48
MM_Unix.t	5.63 KB	-r--r--r--	2014-12-27 11:49
MM_VMS.t	1.62 KB	-r--r--r--	2014-12-27 11:48
MM_Win32.t	10.83 KB	-r--r--r--	2014-12-27 11:48
MakeMaker_Parameters.t	1.57 KB	-r--r--r--	2014-12-27 11:49
Mkbootstrap.t	3.91 KB	-r--r--r--	2014-12-27 11:48
PL_FILES.t	797 B	-r--r--r--	2014-12-27 11:49
VERSION_FROM.t	599 B	-r--r--r--	2014-12-27 11:48
WriteEmptyMakefile.t	655 B	-r--r--r--	2014-12-27 11:48
arch_check.t	1.92 KB	-r--r--r--	2014-12-27 11:48
backwards.t	354 B	-r--r--r--	2014-12-27 11:48
basic.t	14.61 KB	-r--r--r--	2014-12-27 11:49
build_man.t	1.65 KB	-r--r--r--	2014-12-27 11:48
cd.t	1.15 KB	-r--r--r--	2014-12-27 11:49
config.t	261 B	-r--r--r--	2014-12-27 11:48
dir_target.t	256 B	-r--r--r--	2014-12-27 11:48
echo.t	2.48 KB	-r--r--r--	2014-12-27 11:49
fix_libs.t	693 B	-r--r--r--	2014-12-27 11:48
fixin.t	2.39 KB	-r--r--r--	2014-12-27 11:48
hints.t	1.47 KB	-r--r--r--	2014-12-27 11:48
installed_file.t	933 B	-r--r--r--	2014-12-27 11:48
is_of_type.t	842 B	-r--r--r--	2014-12-27 11:48
make.t	271 B	-r--r--r--	2014-12-27 11:48
maketext_filter.t	905 B	-r--r--r--	2014-12-27 11:48
meta_convert.t	3.35 KB	-r--r--r--	2014-12-27 11:49
metafile_data.t	22.35 KB	-r--r--r--	2014-12-27 11:48
metafile_file.t	7.37 KB	-r--r--r--	2014-12-27 11:48
min_perl_version.t	6.03 KB	-r--r--r--	2014-12-27 11:49
miniperl.t	1.12 KB	-r--r--r--	2014-12-27 11:49
oneliner.t	2.07 KB	-r--r--r--	2014-12-27 11:49
parse_abstract.t	1.59 KB	-r--r--r--	2014-12-27 11:48
parse_version.t	4.78 KB	-r--r--r--	2014-12-27 11:49
pm.t	741 B	-r--r--r--	2014-12-27 11:48
pm_to_blib.t	1.51 KB	-r--r--r--	2014-12-27 11:49
pod2man.t	904 B	-r--r--r--	2014-12-27 11:48
postamble.t	1.61 KB	-r--r--r--	2014-12-27 11:49
prefixify.t	1.23 KB	-r--r--r--	2014-12-27 11:48
prereq.t	3.36 KB	-r--r--r--	2014-12-27 11:49
prereq_print.t	1.91 KB	-r--r--r--	2014-12-27 11:48
problems.t	972 B	-r--r--r--	2014-12-27 11:48
prompt.t	1.24 KB	-r--r--r--	2014-12-27 11:48
recurs.t	2.9 KB	-r--r--r--	2014-12-27 11:49
revision.t	411 B	-r--r--r--	2014-12-27 11:48
several_authors.t	3.55 KB	-r--r--r--	2014-12-27 11:49
split_command.t	1.44 KB	-r--r--r--	2014-12-27 11:48
test_boilerplate.t	389 B	-r--r--r--	2014-12-27 11:48
testlib.t	784 B	-r--r--r--	2014-12-27 11:48
writemakefile_args.t	7.01 KB	-r--r--r--	2014-12-27 11:49
xs.t	999 B	-r--r--r--	2014-12-27 11:49

Rename

#!/usr/bin/perl -w

# Wherein we ensure the INST_* and INSTALL* variables are set correctly
# when various PREFIX variables are set.
#
# Essentially, this test is a Makefile.PL.

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

use strict;
use Test::More tests => 52;
use MakeMaker::Test::Utils;
use MakeMaker::Test::Setup::BFD;
use ExtUtils::MakeMaker;
use File::Spec;
use TieOut;
use ExtUtils::MakeMaker::Config;

my $Is_VMS = $^O eq 'VMS';

use File::Temp qw[tempdir];
my $tmpdir = tempdir( DIR => 't', CLEANUP => 1 );
chdir $tmpdir;

perl_lib;

$| = 1;

my $Makefile = makefile_name;
my $Curdir = File::Spec->curdir;
my $Updir  = File::Spec->updir;

ok( setup_recurs(), 'setup' );
END {
    ok( chdir File::Spec->updir );
    ok( teardown_recurs(), 'teardown' );
}

ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
  diag("chdir failed: $!");

my $stdout = tie *STDOUT, 'TieOut' or die;

my $mm = WriteMakefile(
    NAME          => 'Big::Dummy',
    VERSION_FROM  => 'lib/Big/Dummy.pm',
    PREREQ_PM     => {},
    PERL_CORE     => $ENV{PERL_CORE},
);

like( $stdout->read, qr{
                        Generating\ a\ \w+?-style\ $Makefile\n
                        Writing\ $Makefile\ for\ Big::Liar\n
                        (?:Writing\ MYMETA.yml\ and\ MYMETA.json\n)?
                        Big::Liar's\ vars\n
                        INST_LIB\ =\ \S+\n
                        INST_ARCHLIB\ =\ \S+\n
                        Generating\ a\ \w+?-style\ $Makefile\n
                        Writing\ $Makefile\ for\ Big::Dummy\n
                        (?:Writing\ MYMETA.yml\ and\ MYMETA.json\n)?
}x );

is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' );

isa_ok( $mm, 'ExtUtils::MakeMaker' );

is( $mm->{NAME}, 'Big::Dummy',  'NAME' );
is( $mm->{VERSION}, 0.01,            'VERSION' );

foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) {
    unlike( $mm->{$prefix}, qr/\$$PREFIX$/ );
}

my $PREFIX = File::Spec->catdir('foo', 'bar');
$mm = WriteMakefile(
    NAME          => 'Big::Dummy',
    VERSION_FROM  => 'lib/Big/Dummy.pm',
    PREREQ_PM     => {},
    PERL_CORE     => $ENV{PERL_CORE},
    PREFIX        => $PREFIX,
);
like( $stdout->read, qr{
                        Generating\ a\ \w+?-style\ $Makefile\n
                        Writing\ $Makefile\ for\ Big::Liar\n
                        (?:Writing\ MYMETA.yml\ and\ MYMETA.json\n)?
                        Big::Liar's\ vars\n
                        INST_LIB\ =\ \S+\n
                        INST_ARCHLIB\ =\ \S+\n
                        Generating\ a\ \w+?-style\ $Makefile\n
                        Writing\ $Makefile\ for\ Big::Dummy\n
                        (?:Writing\ MYMETA.yml\ and\ MYMETA.json\n)?
}x );
undef $stdout;
untie *STDOUT;

is( $mm->{PREFIX}, $PREFIX,   'PREFIX' );

foreach my $prefix (qw(PERLPREFIX SITEPREFIX VENDORPREFIX)) {
    is( $mm->{$prefix}, '$(PREFIX)', "\$(PREFIX) overrides $prefix" );
}

is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );

my($perl_src, $mm_perl_src);
if( $ENV{PERL_CORE} ) {
    $perl_src = File::Spec->catdir($Updir, $Updir, $Updir, $Updir, $Updir);
    $perl_src = File::Spec->canonpath($perl_src);
    $mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
}
else {
    $mm_perl_src = $mm->{PERL_SRC};
}

is( $mm_perl_src, $perl_src,     'PERL_SRC' );

# Every INSTALL* variable must start with some PREFIX.
my %Install_Vars = (
 PERL   => [qw(archlib    privlib   bin       man1dir       man3dir   script)],
 SITE   => [qw(sitearch   sitelib   sitebin   siteman1dir   siteman3dir)],
 VENDOR => [qw(vendorarch vendorlib vendorbin vendorman1dir vendorman3dir)]
);

while( my($type, $vars) = each %Install_Vars) {
    SKIP: {
        skip "VMS must expand macros in INSTALL* vars", scalar @$vars
          if $Is_VMS;
        skip '$Config{usevendorprefix} not set', scalar @$vars
          if $type eq 'VENDOR' and !$Config{usevendorprefix};

foreach my $var (@$vars) {
            my $installvar = "install$var";
            my $prefix = '$('.$type.'PREFIX)';

SKIP: {
                skip uc($installvar).' set to another INSTALL variable', 1
                  if $mm->{uc $installvar} =~ /^\$$INSTALL.*$$/;

# support for man page skipping
                $prefix = 'none' if $type eq 'PERL' &&
                                    $var =~ /man/ &&
                                    !$Config{$installvar};
                like( $mm->{uc $installvar}, qr/^\Q$prefix\E/,
                      "$prefix + $var" );
            }
        }
    }
}

# Check that when installman*dir isn't set in Config no man pages
# are generated.
{
    _set_config(installman1dir => '');
    _set_config(installman3dir => '');

my $wibble = File::Spec->catdir(qw(wibble and such));
    my $stdout = tie *STDOUT, 'TieOut' or die;
    my $mm = WriteMakefile(
                           NAME          => 'Big::Dummy',
                           VERSION_FROM  => 'lib/Big/Dummy.pm',
                           PREREQ_PM     => {},
                           PERL_CORE     => $ENV{PERL_CORE},
                           PREFIX        => $PREFIX,
                           INSTALLMAN1DIR=> $wibble,
                          );

is( $mm->{INSTALLMAN1DIR}, $wibble );
    is( $mm->{INSTALLMAN3DIR}, 'none'  );
}

# Check that when installvendorman*dir is set in Config it is honored
# [rt.cpan.org 2949]
{
    _set_config(installvendorman1dir => File::Spec->catdir('foo','bar') );
    _set_config(installvendorman3dir => '' );
    _set_config(usevendorprefix => 1 );
    _set_config(vendorprefixexp => 'something' );

my $stdout = tie *STDOUT, 'TieOut' or die;
    my $mm = WriteMakefile(
                   NAME          => 'Big::Dummy',
                   VERSION_FROM  => 'lib/Big/Dummy.pm',
                   PREREQ_PM     => {},
                   PERL_CORE     => $ENV{PERL_CORE},

# In case the local installation doesn't have man pages.
                   INSTALLMAN1DIR=> 'foo/bar/baz',
                   INSTALLMAN3DIR=> 'foo/bar/baz',
                  );

is( $mm->{INSTALLVENDORMAN1DIR}, File::Spec->catdir('foo','bar'),
                      'installvendorman1dir (in %Config) not modified' );
    isnt( $mm->{INSTALLVENDORMAN3DIR}, '',
                      'installvendorman3dir (not in %Config) set'  );
}

# Check that when installsiteman*dir isn't set in Config it falls back
# to installman*dir
{
    _set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
    _set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
    _set_config(installsiteman1dir => '' );
    _set_config(installsiteman3dir => '' );
    _set_config(installvendorman1dir => '' );
    _set_config(installvendorman3dir => '' );
    _set_config(usevendorprefix => 'define' );
    _set_config(vendorprefixexp => 'something' );

is( $mm->{INSTALLSITEMAN1DIR},   '$(INSTALLMAN1DIR)' );
        is( $mm->{INSTALLSITEMAN3DIR},   '$(INSTALLMAN3DIR)' );
        is( $mm->{INSTALLVENDORMAN1DIR}, '$(INSTALLMAN1DIR)' );
        is( $mm->{INSTALLVENDORMAN3DIR}, '$(INSTALLMAN3DIR)' );
    }
}

# Check that when usevendoprefix and installvendorman*dir aren't set in
# Config it leaves them unset.
{
    _set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
    _set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
    _set_config(installsiteman1dir => '' );
    _set_config(installsiteman3dir => '' );
    _set_config(installvendorman1dir => '' );
    _set_config(installvendorman3dir => '' );
    _set_config(usevendorprefix => '' );
    _set_config(vendorprefixexp => '' );

is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
    is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
    SKIP: {
        skip "VMS must expand macros in INSTALL* vars", 2 if $Is_VMS;
        is( $mm->{INSTALLSITEMAN1DIR},   '$(INSTALLMAN1DIR)' );
        is( $mm->{INSTALLSITEMAN3DIR},   '$(INSTALLMAN3DIR)' );
    }
    is( $mm->{INSTALLVENDORMAN1DIR}, '' );
    is( $mm->{INSTALLVENDORMAN3DIR}, '' );
}

sub _set_config {
    my($k,$v) = @_;
    (my $k_no_install = $k) =~ s/^install//i;
    $Config{$k} = $v;

# Because VMS's config has traditionally been underpopulated, it will
    # fall back to the install-less versions in desperation.
    $Config{$k_no_install} = $v if $Is_VMS;
    return;
}