view release on metacpan or  search on metacpan

t/perl-build.t  view on Meta::CPAN

t::Util->goto_workdir('perl-build', 0);

my $fat_re = qr{\s+=>\s+};

my $app = App::git::ship::perl->new;
$app->start('Perl/Build.pm', 0);

mkdir 'bin';
touch(File::Spec->catfile("bin", $_)) for qw(e-x-e foo);
chmod 0755, File::Spec->catfile(qw(bin e-x-e));

my $main_module_path = $app->config('main_module_path');
$app->_render_makefile_pl;
t::Util->test_file(
  'Makefile.PL',
  qr/^\# Generated by git-ship. See 'git-ship --man'/m,
  qr/use utf8/,
  qr/use ExtUtils::MakeMaker;[\r\n\s]+.*WriteMakefile\(/s,
  qr/NAME${fat_re}'.+?',/m,
  qr/AUTHOR${fat_re}'[^,]+,/m,