The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

#!perl
use strict;
use Test::More tests => 4;
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' );
}