This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils::MakeMaker 6.25
[perl5.git] / lib / ExtUtils / t / INST_PREFIX.t
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;
19 use Test::More tests => 52;
20 use MakeMaker::Test::Utils;
21 use MakeMaker::Test::Setup::BFD;
22 use ExtUtils::MakeMaker;
23 use File::Spec;
24 use TieOut;
25 use Config;
26
27 my $Is_VMS = $^O eq 'VMS';
28
29 chdir 't';
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
39 ok( setup_recurs(), 'setup' );
40 END {
41     ok( chdir File::Spec->updir );
42     ok( teardown_recurs(), 'teardown' );
43 }
44
45 ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
46   diag("chdir failed: $!");
47
48 my $stdout = tie *STDOUT, 'TieOut' or die;
49
50 my $mm = WriteMakefile(
51     NAME          => 'Big::Dummy',
52     VERSION_FROM  => 'lib/Big/Dummy.pm',
53     PREREQ_PM     => {},
54     PERL_CORE     => $ENV{PERL_CORE},
55 );
56
57 like( $stdout->read, qr{
58                         Writing\ $Makefile\ for\ Big::Liar\n
59                         Big::Liar's\ vars\n
60                         INST_LIB\ =\ \S+\n
61                         INST_ARCHLIB\ =\ \S+\n
62                         Writing\ $Makefile\ for\ Big::Dummy\n
63 }x );
64
65 is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' );
66
67 isa_ok( $mm, 'ExtUtils::MakeMaker' );
68
69 is( $mm->{NAME}, 'Big::Dummy',  'NAME' );
70 is( $mm->{VERSION}, 0.01,            'VERSION' );
71
72 foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) {
73     unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ );
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
95 is( $mm->{PREFIX}, $PREFIX,   'PREFIX' );
96
97 foreach my $prefix (qw(PERLPREFIX SITEPREFIX VENDORPREFIX)) {
98     is( $mm->{$prefix}, '$(PREFIX)', "\$(PREFIX) overrides $prefix" );
99 }
100
101 is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );
102
103 my($perl_src, $mm_perl_src);
104 if( $ENV{PERL_CORE} ) {
105     $perl_src = File::Spec->catdir($Updir, $Updir);
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.
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 );
122
123 while( my($type, $vars) = each %Install_Vars) {
124     SKIP: {
125         skip "VMS must expand macros in INSTALL* vars", scalar @$vars 
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         }
146     }
147 }
148
149 # Check that when installman*dir isn't set in Config no man pages
150 # are generated.
151 {
152     undef *ExtUtils::MM_Unix::Config;
153     undef *ExtUtils::MM_Unix::Config_Override;
154     %ExtUtils::MM_Unix::Config = %Config;
155     *ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;
156
157     _set_config(installman1dir => '');
158     _set_config(installman3dir => '');
159
160     my $wibble = File::Spec->catdir(qw(wibble and such));
161     my $stdout = tie *STDOUT, 'TieOut' or die;
162     my $mm = WriteMakefile(
163                            NAME          => 'Big::Dummy',
164                            VERSION_FROM  => 'lib/Big/Dummy.pm',
165                            PREREQ_PM     => {},
166                            PERL_CORE     => $ENV{PERL_CORE},
167                            PREFIX        => $PREFIX,
168                            INSTALLMAN1DIR=> $wibble,
169                           );
170
171     is( $mm->{INSTALLMAN1DIR}, $wibble );
172     is( $mm->{INSTALLMAN3DIR}, 'none'  );
173 }
174
175 # Check that when installvendorman*dir is set in Config it is honored
176 # [rt.cpan.org 2949]
177 {
178     undef *ExtUtils::MM_Unix::Config;
179     undef *ExtUtils::MM_Unix::Config_Override;
180     undef *ExtUtils::MM_VMS::Config;
181
182     %ExtUtils::MM_Unix::Config = %Config;
183     *ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;
184
185     _set_config(installvendorman1dir => File::Spec->catdir('foo','bar') );
186     _set_config(installvendorman3dir => '' );
187     _set_config(usevendorprefix => 1 );
188     _set_config(vendorprefixexp => 'something' );
189
190     my $stdout = tie *STDOUT, 'TieOut' or die;
191     my $mm = WriteMakefile(
192                    NAME          => 'Big::Dummy',
193                    VERSION_FROM  => 'lib/Big/Dummy.pm',
194                    PREREQ_PM     => {},
195                    PERL_CORE     => $ENV{PERL_CORE},
196
197                    # In case the local installation doesn't have man pages.
198                    INSTALLMAN1DIR=> 'foo/bar/baz',
199                    INSTALLMAN3DIR=> 'foo/bar/baz',
200                   );
201
202     is( $mm->{INSTALLVENDORMAN1DIR}, File::Spec->catdir('foo','bar'), 
203                       'installvendorman1dir (in %Config) not modified' );
204     isnt( $mm->{INSTALLVENDORMAN3DIR}, '', 
205                       'installvendorman3dir (not in %Config) set'  );
206 }
207
208 # Check that when installsiteman*dir isn't set in Config it falls back
209 # to installman*dir
210 {
211     undef *ExtUtils::MM_Unix::Config;
212     undef *ExtUtils::MM_Unix::Config_Override;
213     %ExtUtils::MM_Unix::Config = %Config;
214     *ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;
215
216     _set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
217     _set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
218     _set_config(installsiteman1dir => '' );
219     _set_config(installsiteman3dir => '' );
220     _set_config(installvendorman1dir => '' );
221     _set_config(installvendorman3dir => '' );
222     _set_config(usevendorprefix => 'define' );
223     _set_config(vendorprefixexp => 'something' );
224
225     my $wibble = File::Spec->catdir(qw(wibble and such));
226     my $stdout = tie *STDOUT, 'TieOut' or die;
227     my $mm = WriteMakefile(
228                            NAME          => 'Big::Dummy',
229                            VERSION_FROM  => 'lib/Big/Dummy.pm',
230                            PERL_CORE     => $ENV{PERL_CORE},
231                           );
232
233     is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
234     is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
235     SKIP: {
236         skip "VMS must expand macros in INSTALL* vars", 4 if $Is_VMS;
237
238         is( $mm->{INSTALLSITEMAN1DIR},   '$(INSTALLMAN1DIR)' );
239         is( $mm->{INSTALLSITEMAN3DIR},   '$(INSTALLMAN3DIR)' );
240         is( $mm->{INSTALLVENDORMAN1DIR}, '$(INSTALLMAN1DIR)' );
241         is( $mm->{INSTALLVENDORMAN3DIR}, '$(INSTALLMAN3DIR)' );
242     }
243 }
244
245
246 # Check that when usevendoprefix and installvendorman*dir aren't set in 
247 # Config it leaves them unset.
248 {
249     undef *ExtUtils::MM_Unix::Config;
250     undef *ExtUtils::MM_Unix::Config_Override;
251     %ExtUtils::MM_Unix::Config = %Config;
252     *ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;
253
254     _set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
255     _set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
256     _set_config(installsiteman1dir => '' );
257     _set_config(installsiteman3dir => '' );
258     _set_config(installvendorman1dir => '' );
259     _set_config(installvendorman3dir => '' );
260     _set_config(usevendorprefix => '' );
261     _set_config(vendorprefixexp => '' );
262
263     my $wibble = File::Spec->catdir(qw(wibble and such));
264     my $stdout = tie *STDOUT, 'TieOut' or die;
265     my $mm = WriteMakefile(
266                            NAME          => 'Big::Dummy',
267                            VERSION_FROM  => 'lib/Big/Dummy.pm',
268                            PERL_CORE     => $ENV{PERL_CORE},
269                           );
270
271     is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
272     is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
273     SKIP: {
274         skip "VMS must expand macros in INSTALL* vars", 2 if $Is_VMS;
275         is( $mm->{INSTALLSITEMAN1DIR},   '$(INSTALLMAN1DIR)' );
276         is( $mm->{INSTALLSITEMAN3DIR},   '$(INSTALLMAN3DIR)' );
277     }
278     is( $mm->{INSTALLVENDORMAN1DIR}, '' );
279     is( $mm->{INSTALLVENDORMAN3DIR}, '' );
280 }
281
282
283 sub _set_config {
284     my($k,$v) = @_;
285     (my $k_no_install = $k) =~ s/^install//i;
286     $ExtUtils::MM_Unix::Config{$k} = $v;
287
288     # Because VMS's config has traditionally been underpopulated, it will
289     # fall back to the install-less versions in desperation.
290     $ExtUtils::MM_Unix::Config{$k_no_install} = $v if $Is_VMS;
291     return;
292 }