This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
47fcc264e0eab44a7c22f62acc98d51baeaee97b
[perl5.git] / dist / ExtUtils-Install / t / Install.t
1 #!/usr/bin/perl -w
2
3 # Test ExtUtils::Install.
4
5 BEGIN {
6     unshift @INC, 't/lib';
7 }
8
9 use strict;
10 use TieOut;
11 use File::Path;
12 use File::Spec;
13 use File::Temp qw[tempdir];
14
15 use Test::More tests => 60;
16
17 use MakeMaker::Test::Setup::BFD;
18
19 BEGIN { use_ok('ExtUtils::Install') }
20 # ensure the env doesn't pollute our tests
21 local $ENV{EU_INSTALL_ALWAYS_COPY};
22 local $ENV{EU_ALWAYS_COPY};    
23
24 # Check exports.
25 foreach my $func (qw(install uninstall pm_to_blib install_default)) {
26     can_ok(__PACKAGE__, $func);
27 }
28
29 my $tmpdir = tempdir( DIR => 't', CLEANUP => 1 );
30 chdir $tmpdir;
31
32 ok( setup_recurs(), 'setup' );
33 END {
34     ok( chdir File::Spec->updir, 'chdir ..');
35     ok( teardown_recurs(), 'teardown' );
36 }
37
38 chdir 'Big-Dummy';
39
40 my $stdout = tie *STDOUT, 'TieOut';
41 pm_to_blib( { 'lib/Big/Dummy.pm' => 'blib/lib/Big/Dummy.pm' },
42             'blib/lib/auto'
43           );
44 END { rmtree 'blib' }
45
46 ok( -d 'blib/lib',              'pm_to_blib created blib dir' );
47 ok( -r 'blib/lib/Big/Dummy.pm', '  copied .pm file' );
48 ok( -r 'blib/lib/auto',         '  created autosplit dir' );
49 is( $stdout->read, "cp lib/Big/Dummy.pm blib/lib/Big/Dummy.pm\n" );
50
51
52 pm_to_blib( { 'lib/Big/Dummy.pm' => 'blib/lib/Big/Dummy.pm' },
53             'blib/lib/auto'
54           );
55 ok( -d 'blib/lib',              'second run, blib dir still there' );
56 ok( -r 'blib/lib/Big/Dummy.pm', '  .pm file still there' );
57 ok( -r 'blib/lib/auto',         '  autosplit still there' );
58 is( $stdout->read, "Skip blib/lib/Big/Dummy.pm (unchanged)\n" );
59
60
61 install( { 'blib/lib' => 'install-test/lib/perl',
62            read   => 'install-test/packlist',
63            write  => 'install-test/packlist'
64          },
65        0, 1);
66 ok( ! -d 'install-test/lib/perl',        'install made dir (dry run)');
67 ok( ! -r 'install-test/lib/perl/Big/Dummy.pm',
68                                          '  .pm file installed (dry run)');
69 ok( ! -r 'install-test/packlist',        '  packlist exists (dry run)');
70
71 install( { 'blib/lib' => 'install-test/lib/perl',
72            read   => 'install-test/packlist',
73            write  => 'install-test/packlist'
74          } );
75 ok( -d 'install-test/lib/perl',                 'install made dir' );
76 ok( -r 'install-test/lib/perl/Big/Dummy.pm',    '  .pm file installed' );
77 ok(!-r 'install-test/lib/perl/Big/Dummy.SKIP',  '  ignored .SKIP file' );
78 ok( -r 'install-test/packlist',                 '  packlist exists' );
79
80 open(PACKLIST, 'install-test/packlist' );
81 my %packlist = map { chomp;  ($_ => 1) } <PACKLIST>;
82 close PACKLIST;
83
84 # On case-insensitive filesystems (ie. VMS), the keys of the packlist might
85 # be lowercase. :(
86 my $native_dummy = File::Spec->catfile(qw(install-test lib perl Big Dummy.pm));
87 is( keys %packlist, 1 );
88 is( lc((keys %packlist)[0]), lc $native_dummy, 'packlist written' );
89
90
91 # Test UNINST=1 preserving same versions in other dirs.
92 install( { 'blib/lib' => 'install-test/other_lib/perl',
93            read   => 'install-test/packlist',
94            write  => 'install-test/packlist'
95          },
96        0, 0, 1);
97 ok( -d 'install-test/other_lib/perl',        'install made other dir' );
98 ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', '  .pm file installed' );
99 ok( -r 'install-test/packlist',              '  packlist exists' );
100 ok( -r 'install-test/lib/perl/Big/Dummy.pm', '  UNINST=1 preserved same' );
101
102
103 chmod 0644, 'blib/lib/Big/Dummy.pm' or die $!;
104 open(DUMMY, ">>blib/lib/Big/Dummy.pm") or die $!;
105 print DUMMY "Extra stuff\n";
106 close DUMMY;
107
108
109 # Test UNINST=0 does not remove other versions in other dirs.
110 {
111   ok( -r 'install-test/lib/perl/Big/Dummy.pm', 'different install exists' );
112
113   local @INC = ('install-test/lib/perl');
114   local $ENV{PERL5LIB} = '';
115   install( { 'blib/lib' => 'install-test/other_lib/perl',
116            read   => 'install-test/packlist',
117            write  => 'install-test/packlist'
118          },
119        0, 0, 0);
120   ok( -d 'install-test/other_lib/perl',        'install made other dir' );
121   ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', '  .pm file installed' );
122   ok( -r 'install-test/packlist',              '  packlist exists' );
123   ok( -r 'install-test/lib/perl/Big/Dummy.pm',
124                                              '  UNINST=0 left different' );
125 }
126
127 # Test UNINST=1 only warning when failing to remove an irrelevant shadow file
128 {
129   my $tfile='install-test/lib/perl/Big/Dummy.pm';
130   local $ExtUtils::Install::Testing = $tfile; 
131   local @INC = ('install-test/other_lib/perl','install-test/lib/perl');
132   local $ENV{PERL5LIB} = '';
133   ok( -r $tfile, 'different install exists' );
134   my @warn;
135   local $SIG{__WARN__}=sub { push @warn, @_; return };
136   my $ok=eval {
137     install( { 'blib/lib' => 'install-test/other_lib/perl',
138            read   => 'install-test/packlist',
139            write  => 'install-test/packlist'
140          },
141        0, 0, 1);
142     1
143   };
144   ok($ok,'  we didnt die');
145   ok(0+@warn,"  we did warn");
146   ok( -d 'install-test/other_lib/perl',        'install made other dir' );
147   ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', '  .pm file installed' );
148   ok( -r 'install-test/packlist',              '  packlist exists' );
149   ok( -r $tfile, '  UNINST=1 failed to remove different' );
150   
151 }
152
153 # Test UNINST=1 dieing when failing to remove an relevant shadow file
154 {
155   my $tfile='install-test/lib/perl/Big/Dummy.pm';
156   local $ExtUtils::Install::Testing = $tfile;
157   local @INC = ('install-test/lib/perl','install-test/other_lib/perl');
158   local $ENV{PERL5LIB} = '';
159   ok( -r $tfile, 'different install exists' );
160   my @warn;
161   local $SIG{__WARN__}=sub { push @warn,@_; return };
162   my $ok=eval {
163     install( { 'blib/lib' => 'install-test/other_lib/perl',
164            read   => 'install-test/packlist',
165            write  => 'install-test/packlist'
166          },
167        0, 0, 1);
168     1
169   };
170   ok(!$ok,'  we did die');
171   ok(!@warn,"  we didnt warn");
172   ok( -d 'install-test/other_lib/perl',        'install made other dir' );
173   ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', '  .pm file installed' );
174   ok( -r 'install-test/packlist',              '  packlist exists' );
175   ok( -r $tfile,'  UNINST=1 failed to remove different' );
176 }
177
178 # Test UNINST=1 removing other versions in other dirs.
179 {
180   local @INC = ('install-test/lib/perl');
181   local $ENV{PERL5LIB} = '';
182   install( { 'blib/lib' => 'install-test/other_lib/perl',
183            read   => 'install-test/packlist',
184            write  => 'install-test/packlist'
185          },
186        0, 0, 1);
187   ok( -d 'install-test/other_lib/perl',        'install made other dir' );
188   ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', '  .pm file installed' );
189   ok( -r 'install-test/packlist',              '  packlist exists' );
190   ok( !-r 'install-test/lib/perl/Big/Dummy.pm',
191                                              '  UNINST=1 removed different' );
192 }
193
194
195 # really this test should be run on any platform that supports
196 # symbolic and hard links, but this representative sample should do for
197 # now
198
199
200 # check hard and symbolic links
201
202 SKIP: {
203     my $has_links =
204         $^O =~ /^(aix|bsdos|darwin|freebsd|hpux|irix|linux|openbsd|solaris)$/;
205     skip "(sym)links not supported", 8 unless $has_links;
206
207     install([ from_to => { 'blib/lib/' => 'install-links',
208                            read   => 'install-links/packlist',
209                            write  => 'install-links/packlist'
210                          },
211     ]);
212
213     # make orig file a hard link and check that it doesn't get messed up
214
215     my $bigdir = 'install-links/Big';
216     ok link("$bigdir/Dummy.pm", "$bigdir/DummyHard.pm"),
217         'link DummyHard.pm';
218
219     open(my $fh, ">>", "blib/lib/Big/Dummy.pm") or die $!;
220     print $fh "Extra stuff 2\n";
221     close $fh;
222
223     install([ from_to => { 'blib/lib/' => 'install-links',
224                            read   => 'install-links/packlist',
225                            write  => 'install-links/packlist'
226                          },
227     ]);
228
229     ok( !-w "$bigdir/DummyHard.pm", 'DummyHard.pm not writeable' );
230
231     use File::Compare;
232     ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyHard.pm"),
233         "hard-linked file should be different");
234
235     # make orig file a symlink and check that it doesn't get messed up
236
237     ok rename("$bigdir/Dummy.pm", "$bigdir/DummyOrig.pm"),
238         'rename DummyOrig.pm';
239     ok symlink('DummyOrig.pm', "$bigdir/Dummy.pm"),
240         'symlink Dummy.pm';
241
242
243     open($fh, ">>", "blib/lib/Big/Dummy.pm") or die $!;
244     print $fh "Extra stuff 3\n";
245     close $fh;
246
247     install([ from_to => { 'blib/lib/' => 'install-links',
248                            read   => 'install-links/packlist',
249                            write  => 'install-links/packlist'
250                          },
251     ]);
252
253     ok( !-w "$bigdir/DummyOrig.pm", 'DummyOrig.pm not writeable' );
254     ok( !-l "$bigdir/Dummy.pm", 'Dummy.pm not a link' );
255     ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyOrig.pm"),
256         "orig file should be different");
257 }