1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
### make sure we can find our conf.pl file
BEGIN {
use FindBin;
require "$FindBin::Bin/inc/conf.pl";
}
use strict;
use Test::More 'no_plan';
use CPANPLUS::Dist;
use CPANPLUS::Backend;
use CPANPLUS::Module::Fake;
use CPANPLUS::Module::Author::Fake;
use CPANPLUS::Internals::Constants;
my $Conf = gimme_conf();
my $CB = CPANPLUS::Backend->new( $Conf );
### set the config so that we will ignore the build installer,
### but prefer it anyway
{ CPANPLUS::Dist->_ignore_dist_types( INSTALLER_BUILD );
$Conf->set_conf( prefer_makefile => 0 );
}
my $Mod = $CB->module_tree( 'Foo::Bar::MB::NOXS' );
ok( $Mod, "Module object retrieved" );
ok( not grep { $_ eq INSTALLER_BUILD } CPANPLUS::Dist->dist_types,
" Build installer not returned" );
### fetch the file first
{ my $where = $Mod->fetch;
ok( -e $where, " Tarball '$where' exists" );
}
### extract it, silence warnings/messages
{ local $CPANPLUS::Error::MSG_FH = output_handle();
local $CPANPLUS::Error::ERROR_FH = output_handle();
my $where = $Mod->extract;
ok( -e $where, " Tarball extracted to '$where'" );
}
### check the installer type
{ is( $Mod->status->installer_type, INSTALLER_MM,
"Proper installer type found" );
my $err = CPANPLUS::Error->stack_as_string;
like( $err, '/'.INSTALLER_MM.'/',
" Error mentions " . INSTALLER_MM );
like( $err, '/'.INSTALLER_BUILD.'/',
" Error mentions " . INSTALLER_BUILD );
like( $err, qr/but might not be able to install/,
" Error mentions install warning" );
}
END { 1 while unlink output_file() }
|
