view release on metacpan or  search on metacpan

t/20-init.t  view on Meta::CPAN

BEGIN { $tests += 5 }

$dir = tempdir( CLEANUP => 1 );
init($dir);
check_repo( $dir, 1 );

# init using @ARGV
BEGIN { $tests += 5 }
$dir = tempdir( CLEANUP => 1 );
{
    local @ARGV = $dir;
    init();
}
check_repo( $dir, 1 );

# local::lib may have installed some files already
BEGIN { $tests += 5 }

$dir = tempdir( CLEANUP => 1 );
open my $fh, '>', File::Spec->catfile( $dir, '.modulebuildrc' );
print $fh "install  --install_base  $dir\n";