view release on metacpan or  search on metacpan

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

  qr/homepage${fat_re}'https:/,
  qr/repository\W+type${fat_re}'git'\W+url${fat_re}'https:/s,
  qr/x_contributors\W+${fat_re}\[.*\]/m,
  qr/OBJECT${fat_re}''/m,
  qr/TEST_REQUIRES${fat_re}.*?\bTest::More\b/s,
  qr/PREREQ_PM${fat_re}.*?\bperl\b/s,
);

subtest 'meta merge - runtime recommends' => sub {
  open my $fh, '+>', 'cpanfile';
  print $fh "recommends 'Mojo::JWT' => '0.09'\n";
  close $fh;
  $app->_render_makefile_pl;
  t::Util->test_file(
    'Makefile.PL',
    qr/^\# Generated by git-ship. See 'git-ship --man'/m,
    qr/'prereqs'$fat_re/m,
    qr/'runtime'$fat_re/m,
    qr/'recommends'$fat_re/m,
    qr/'Mojo::JWT'$fat_re/m,
    );
};

TODO: {
  local $TODO = -x "bin/e-x-e" ? "" : "Cannot test on $^O";
  t::Util->test_file('Makefile.PL', qr{EXE_FILES${fat_re}\[qw\(bin/e-x-e\)\]}s);
}

t::Util->test_file('Changes', qr/^[\d\.]+ Not Released$/m);
$app->_timestamp_to_changes for 1 .. 3;    # need to see what happens if you run multiple times
t::Util->test_file('Changes', qr/^[\d\.]+\s+\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}/m);

create_main_module();
$app->_update_version_info;
t::Util->test_file(
  File::Spec->catfile(qw(lib Perl Build.pm)), qr{^0\.01}m, qr{^our \$VERSION = '0\.01';}m,
);

add_version_to_changes("0.$_") for 1 .. 3;
like $app->_changes_to_commit_message, qr{^Released version 0\.3}s, '_changes_to_commit_message()';
like $app->_changes_to_commit_message,
  qr{^Released version 0\.3\n\n\W+Some other cool feature for 0\.3\.\n\n$}s,
  '_changes_to_commit_message() reset diamond operator';

touch($_) for qw(foo foo~ foo.bak foo.swp foo.old MYMETA.json);
$app->_make('manifest');
t::Util->test_file_lines('MANIFEST',
  qw(bin/e-x-e bin/foo Changes cpanfile foo lib/Perl/Build.pm Makefile.PL t/00-basic.t),
  qr{^MANIFEST\s+});

done_testing;

sub create_main_module {
  open my $MAIN_MODULE, '>', File::Spec->catfile(qw(lib Perl Build.pm));
  print $MAIN_MODULE
    "package Perl::Build;\n=head1 NAME\n\nPerl::Build\n\n=head1 VERSION\n\n0.00\n\n=cut\n\nour \$VERSION = '42';\n\n1";
}

sub add_version_to_changes {
  my $version = shift;
  local @ARGV = ('Changes');
  local $^I   = '';
  while (<>) {
    print "$version\n       * Some other cool feature for $version.\n\n" if $. == 3;
    print;
  }
}

sub touch {
  open my $FH, '>>', shift;
}