#!perl
sub
TEST_MODULE_NAME() {
'Acme::Bleach'
};
SKIP:
{
skip
'cannot build a pkg without pacman & makepkg'
, 4
unless
( CPANPLUS::Dist::Arch::format_available );
diag
'Testing package building with the '
.TEST_MODULE_NAME.
' module'
;
my
$cb
;
ok(
$cb
= CPANPLUS::Backend->new,
q{load a CPANPLUS::Backend object}
);
ok(
$cb
->configure_object->set_conf(
'dist_type'
,
'CPANPLUS::Dist::Arch'
),
q{set dist_type to CPANPLUS::Dist::Arch'}
);
my
$test_mod
;
ok(
$test_mod
=
$cb
->module_tree( TEST_MODULE_NAME ),
q{load }
. TEST_MODULE_NAME .
q{'s module tree}
);
ok(
$test_mod
->create,
'create module package'
);
}