[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / INST_PREFIX.t

#!/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 {
    if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        @INC = ('../lib', 'lib');
    }
    else {
        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';

chdir 't';

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{
                        Writing\ $Makefile\ for\ Big::Liar\n
                        Big::Liar's\ vars\n
                        INST_LIB\ =\ \S+\n
                        INST_ARCHLIB\ =\ \S+\n
                        Writing\ $Makefile\ for\ Big::Dummy\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{
                        Writing\ $Makefile\ for\ Big::Liar\n
                        Big::Liar's\ vars\n
                        INST_LIB\ =\ \S+\n
                        INST_ARCHLIB\ =\ \S+\n
                        Writing\ $Makefile\ for\ Big::Dummy\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);
    $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' );

    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',
                           PERL_CORE     => $ENV{PERL_CORE},
                          );

    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", 4 if $Is_VMS;

        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 => '' );

    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',
                           PERL_CORE     => $ENV{PERL_CORE},
                          );

    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;
}
Commit	Line	Data
5c161494	1	#!/usr/bin/perl -w
	2
	3	# Wherein we ensure the INST_* and INSTALL* variables are set correctly
	4	# when various PREFIX variables are set.
	5	#
	6	# Essentially, this test is a Makefile.PL.
	7
	8	BEGIN {
	9	if( $ENV{PERL_CORE} ) {
	10	chdir 't' if -d 't';
	11	@INC = ('../lib', 'lib');
	12	}
	13	else {
	14	unshift @INC, 't/lib';
	15	}
	16	}
	17
	18	use strict;
a7d1454b	19	use Test::More tests => 52;
5c161494	20	use MakeMaker::Test::Utils;
a7d1454b	21	use MakeMaker::Test::Setup::BFD;
5c161494	22	use ExtUtils::MakeMaker;
	23	use File::Spec;
	24	use TieOut;
7292dc67	25	use ExtUtils::MakeMaker::Config;
5c161494	26
45bc4d3a	27	my $Is_VMS = $^O eq 'VMS';
	28
	29	chdir 't';
5c161494	30
	31	perl_lib;
	32
	33	$\| = 1;
	34
	35	my $Makefile = makefile_name;
	36	my $Curdir = File::Spec->curdir;
	37	my $Updir = File::Spec->updir;
	38
a7d1454b	39	ok( setup_recurs(), 'setup' );
	40	END {
	41	ok( chdir File::Spec->updir );
	42	ok( teardown_recurs(), 'teardown' );
	43	}
	44
45bc4d3a	45	ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) \|\|
5c161494	46	diag("chdir failed: $!");
	47
	48	my $stdout = tie *STDOUT, 'TieOut' or die;
479d2113	49
5c161494	50	my $mm = WriteMakefile(
45bc4d3a	51	NAME => 'Big::Dummy',
45bc4d3a	52	VERSION_FROM => 'lib/Big/Dummy.pm',
5c161494	53	PREREQ_PM => {},
5c161494	54	PERL_CORE => $ENV{PERL_CORE},
5c161494	55	);
479d2113	56
5c161494	57	like( $stdout->read, qr{
45bc4d3a	58	Writing\ $Makefile\ for\ Big::Liar\n
45bc4d3a	59	Big::Liar's\ vars\n
5c161494	60	INST_LIB\ =\ \S+\n
5c161494	61	INST_ARCHLIB\ =\ \S+\n
45bc4d3a	62	Writing\ $Makefile\ for\ Big::Dummy\n
5c161494	63	}x );
5c161494	64
a7d1454b	65	is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' );
a7d1454b	66
5c161494	67	isa_ok( $mm, 'ExtUtils::MakeMaker' );
5c161494	68
45bc4d3a	69	is( $mm->{NAME}, 'Big::Dummy', 'NAME' );
5c161494	70	is( $mm->{VERSION}, 0.01, 'VERSION' );
5c161494	71
479d2113	72	foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) {
479d2113	73	unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ );
479d2113	74	}
	75
	76
	77	my $PREFIX = File::Spec->catdir('foo', 'bar');
	78	$mm = WriteMakefile(
	79	NAME => 'Big::Dummy',
	80	VERSION_FROM => 'lib/Big/Dummy.pm',
	81	PREREQ_PM => {},
	82	PERL_CORE => $ENV{PERL_CORE},
	83	PREFIX => $PREFIX,
	84	);
	85	like( $stdout->read, qr{
	86	Writing\ $Makefile\ for\ Big::Liar\n
	87	Big::Liar's\ vars\n
	88	INST_LIB\ =\ \S+\n
	89	INST_ARCHLIB\ =\ \S+\n
	90	Writing\ $Makefile\ for\ Big::Dummy\n
	91	}x );
	92	undef $stdout;
	93	untie *STDOUT;
	94
5e719f03	95	is( $mm->{PREFIX}, $PREFIX, 'PREFIX' );
479d2113	96
479d2113	97	foreach my $prefix (qw(PERLPREFIX SITEPREFIX VENDORPREFIX)) {
5e719f03	98	is( $mm->{$prefix}, '$(PREFIX)', "\$(PREFIX) overrides $prefix" );
479d2113	99	}
5c161494	100
	101	is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );
	102
	103	my($perl_src, $mm_perl_src);
	104	if( $ENV{PERL_CORE} ) {
45bc4d3a	105	$perl_src = File::Spec->catdir($Updir, $Updir);
5c161494	106	$perl_src = File::Spec->canonpath($perl_src);
	107	$mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
	108	}
	109	else {
	110	$mm_perl_src = $mm->{PERL_SRC};
	111	}
	112
	113	is( $mm_perl_src, $perl_src, 'PERL_SRC' );
	114
	115
	116	# Every INSTALL* variable must start with some PREFIX.
479d2113	117	my %Install_Vars = (
	118	PERL => [qw(archlib privlib bin man1dir man3dir script)],
	119	SITE => [qw(sitearch sitelib sitebin siteman1dir siteman3dir)],
	120	VENDOR => [qw(vendorarch vendorlib vendorbin vendorman1dir vendorman3dir)]
	121	);
5c161494	122
479d2113	123	while( my($type, $vars) = each %Install_Vars) {
a7d1454b	124	SKIP: {
479d2113	125	skip "VMS must expand macros in INSTALL* vars", scalar @$vars
a7d1454b	126	if $Is_VMS;
	127	skip '$Config{usevendorprefix} not set', scalar @$vars
	128	if $type eq 'VENDOR' and !$Config{usevendorprefix};
	129
	130	foreach my $var (@$vars) {
	131	my $installvar = "install$var";
	132	my $prefix = '$('.$type.'PREFIX)';
	133
	134	SKIP: {
	135	skip uc($installvar).' set to another INSTALL variable', 1
	136	if $mm->{uc $installvar} =~ /^\$\(INSTALL.*\)$/;
	137
	138	# support for man page skipping
	139	$prefix = 'none' if $type eq 'PERL' &&
	140	$var =~ /man/ &&
	141	!$Config{$installvar};
	142	like( $mm->{uc $installvar}, qr/^\Q$prefix\E/,
	143	"$prefix + $var" );
	144	}
	145	}
479d2113	146	}
5c161494	147	}
45bc4d3a	148
45bc4d3a	149	# Check that when installman*dir isn't set in Config no man pages
	150	# are generated.
	151	{
a7d1454b	152	_set_config(installman1dir => '');
a7d1454b	153	_set_config(installman3dir => '');
45bc4d3a	154
	155	my $wibble = File::Spec->catdir(qw(wibble and such));
	156	my $stdout = tie *STDOUT, 'TieOut' or die;
	157	my $mm = WriteMakefile(
	158	NAME => 'Big::Dummy',
	159	VERSION_FROM => 'lib/Big/Dummy.pm',
	160	PREREQ_PM => {},
	161	PERL_CORE => $ENV{PERL_CORE},
	162	PREFIX => $PREFIX,
	163	INSTALLMAN1DIR=> $wibble,
	164	);
	165
	166	is( $mm->{INSTALLMAN1DIR}, $wibble );
	167	is( $mm->{INSTALLMAN3DIR}, 'none' );
	168	}
5e719f03	169
	170	# Check that when installvendorman*dir is set in Config it is honored
	171	# [rt.cpan.org 2949]
	172	{
a7d1454b	173	_set_config(installvendorman1dir => File::Spec->catdir('foo','bar') );
	174	_set_config(installvendorman3dir => '' );
	175	_set_config(usevendorprefix => 1 );
	176	_set_config(vendorprefixexp => 'something' );
5e719f03	177
	178	my $stdout = tie *STDOUT, 'TieOut' or die;
	179	my $mm = WriteMakefile(
	180	NAME => 'Big::Dummy',
	181	VERSION_FROM => 'lib/Big/Dummy.pm',
	182	PREREQ_PM => {},
	183	PERL_CORE => $ENV{PERL_CORE},
	184
	185	# In case the local installation doesn't have man pages.
	186	INSTALLMAN1DIR=> 'foo/bar/baz',
	187	INSTALLMAN3DIR=> 'foo/bar/baz',
	188	);
	189
	190	is( $mm->{INSTALLVENDORMAN1DIR}, File::Spec->catdir('foo','bar'),
	191	'installvendorman1dir (in %Config) not modified' );
	192	isnt( $mm->{INSTALLVENDORMAN3DIR}, '',
	193	'installvendorman3dir (not in %Config) set' );
	194	}
a7d1454b	195
	196	# Check that when installsiteman*dir isn't set in Config it falls back
	197	# to installman*dir
	198	{
a7d1454b	199	_set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
	200	_set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
	201	_set_config(installsiteman1dir => '' );
	202	_set_config(installsiteman3dir => '' );
	203	_set_config(installvendorman1dir => '' );
	204	_set_config(installvendorman3dir => '' );
	205	_set_config(usevendorprefix => 'define' );
	206	_set_config(vendorprefixexp => 'something' );
	207
	208	my $wibble = File::Spec->catdir(qw(wibble and such));
	209	my $stdout = tie *STDOUT, 'TieOut' or die;
	210	my $mm = WriteMakefile(
	211	NAME => 'Big::Dummy',
	212	VERSION_FROM => 'lib/Big/Dummy.pm',
	213	PERL_CORE => $ENV{PERL_CORE},
	214	);
	215
	216	is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
	217	is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
1238c24d	218	SKIP: {
5dca256e	219	skip "VMS must expand macros in INSTALL* vars", 4 if $Is_VMS;
	220
	221	is( $mm->{INSTALLSITEMAN1DIR}, '$(INSTALLMAN1DIR)' );
	222	is( $mm->{INSTALLSITEMAN3DIR}, '$(INSTALLMAN3DIR)' );
	223	is( $mm->{INSTALLVENDORMAN1DIR}, '$(INSTALLMAN1DIR)' );
	224	is( $mm->{INSTALLVENDORMAN3DIR}, '$(INSTALLMAN3DIR)' );
1238c24d	225	}
a7d1454b	226	}
	227
	228
	229	# Check that when usevendoprefix and installvendorman*dir aren't set in
	230	# Config it leaves them unset.
	231	{
a7d1454b	232	_set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
	233	_set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
	234	_set_config(installsiteman1dir => '' );
	235	_set_config(installsiteman3dir => '' );
	236	_set_config(installvendorman1dir => '' );
	237	_set_config(installvendorman3dir => '' );
	238	_set_config(usevendorprefix => '' );
	239	_set_config(vendorprefixexp => '' );
	240
	241	my $wibble = File::Spec->catdir(qw(wibble and such));
	242	my $stdout = tie *STDOUT, 'TieOut' or die;
	243	my $mm = WriteMakefile(
	244	NAME => 'Big::Dummy',
	245	VERSION_FROM => 'lib/Big/Dummy.pm',
	246	PERL_CORE => $ENV{PERL_CORE},
	247	);
	248
	249	is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
	250	is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
1238c24d	251	SKIP: {
5dca256e	252	skip "VMS must expand macros in INSTALL* vars", 2 if $Is_VMS;
	253	is( $mm->{INSTALLSITEMAN1DIR}, '$(INSTALLMAN1DIR)' );
	254	is( $mm->{INSTALLSITEMAN3DIR}, '$(INSTALLMAN3DIR)' );
1238c24d	255	}
a7d1454b	256	is( $mm->{INSTALLVENDORMAN1DIR}, '' );
	257	is( $mm->{INSTALLVENDORMAN3DIR}, '' );
	258	}
	259
	260
	261	sub _set_config {
	262	my($k,$v) = @_;
	263	(my $k_no_install = $k) =~ s/^install//i;
7292dc67	264	$Config{$k} = $v;
a7d1454b	265
	266	# Because VMS's config has traditionally been underpopulated, it will
	267	# fall back to the install-less versions in desperation.
7292dc67	268	$Config{$k_no_install} = $v if $Is_VMS;
a7d1454b	269	return;
a7d1454b	270	}