Lines Matching full:install
4 # Test ExtUtils::Install.
22 use_ok('ExtUtils::Install');
26 foreach my $func (qw(install uninstall pm_to_blib install_default)) {
63 install( [
64 from_to=>{ 'blib/lib' => 'install-test/lib/perl',
65 read => 'install-test/packlist',
66 write => 'install-test/packlist'
69 ok( ! -d 'install-test/lib/perl', 'install made dir (dry run)');
70 ok( ! -r 'install-test/lib/perl/Big/Dummy.pm',
72 ok( ! -r 'install-test/packlist', ' packlist exists (dry run)');
74 install([ from_to=> { 'blib/lib' => 'install-test/lib/perl',
75 read => 'install-test/packlist',
76 write => 'install-test/packlist'
78 ok( -d 'install-test/lib/perl', 'install made dir' );
79 ok( -r 'install-test/lib/perl/Big/Dummy.pm', ' .pm file installed' );
80 ok(!-r 'install-test/lib/perl/Big/Dummy.SKIP', ' ignored .SKIP file' );
81 ok( -r 'install-test/packlist', ' packlist exists' );
83 open(PACKLIST, 'install-test/packlist' );
89 my $native_dummy = File::Spec->catfile(qw(install-test lib perl Big Dummy.pm));
95 install([from_to=> { 'blib/lib' => 'install-test/other_lib/perl',
96 read => 'install-test/packlist',
97 write => 'install-test/packlist'
99 ok( -d 'install-test/other_lib/perl', 'install made other dir' );
100 ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
101 ok( -r 'install-test/packlist', ' packlist exists' );
102 ok( -r 'install-test/lib/perl/Big/Dummy.pm', ' UNINST=1 preserved same' );
113 ok( -r 'install-test/lib/perl/Big/Dummy.pm', 'different install exists' );
115 local @INC = ('install-test/lib/perl');
117 install([from_to=> { 'blib/lib' => 'install-test/other_lib/perl',
118 read => 'install-test/packlist',
119 write => 'install-test/packlist'
121 ok( -d 'install-test/other_lib/perl', 'install made other dir' );
122 ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
123 ok( -r 'install-test/packlist', ' packlist exists' );
124 ok( -r 'install-test/lib/perl/Big/Dummy.pm',
130 my $tfile='install-test/lib/perl/Big/Dummy.pm';
131 local $ExtUtils::Install::Testing = $tfile;
132 local @INC = ('install-test/other_lib/perl','install-test/lib/perl');
134 ok( -r $tfile, 'different install exists' );
138 install([from_to=> { 'blib/lib' => 'install-test/other_lib/perl',
139 read => 'install-test/packlist',
140 write => 'install-test/packlist'
147 ok( -d 'install-test/other_lib/perl', 'install made other dir' );
148 ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
149 ok( -r 'install-test/packlist', ' packlist exists' );
156 my $tfile='install-test/lib/perl/Big/Dummy.pm';
157 local $ExtUtils::Install::Testing = $tfile;
158 local @INC = ('install-test/lib/perl','install-test/other_lib/perl');
160 ok( -r $tfile, 'different install exists' );
164 install([from_to=> { 'blib/lib' => 'install-test/other_lib/perl',
165 read => 'install-test/packlist',
166 write => 'install-test/packlist'
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' );
180 local @INC = ('install-test/lib/perl');
182 ok( -r 'install-test/lib/perl/Big/Dummy.pm','different install exists' );
183 install([from_to=>{ 'blib/lib' => 'install-test/other_lib/perl',
184 read => 'install-test/packlist',
185 write => 'install-test/packlist'
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',
196 local @INC = ('install-test/lib/perl');
199 my $tfile='install-test/other_lib/perl/Big/Dummy.pm';
201 ok(-r $tfile,"install file already exists");
205 install([from_to=>{ 'blib/lib' => 'install-test/other_lib/perl',
206 read => 'install-test/packlist',
207 write => 'install-test/packlist'
209 ok( -d 'install-test/other_lib/perl', 'install made other dir' );
210 ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
211 ok( -r 'install-test/packlist', ' packlist exists' );
220 local @INC = ('install-test/lib/perl');
223 my $tfile='install-test/other_lib/perl/Big/Dummy.pm';
225 ok(-r $tfile,"install file already exists");
229 install([from_to=>{ 'blib/lib' => 'install-test/other_lib/perl',
230 read => 'install-test/packlist',
231 write => 'install-test/packlist'
233 ok( -d 'install-test/other_lib/perl', 'install made other dir' );
234 ok( -r 'install-test/other_lib/perl/Big/Dummy.pm', ' .pm file installed' );
235 ok( -r 'install-test/packlist', ' packlist exists' );
237 ok( !$result{install},' nothing should have been installed');