view release on metacpan or  search on metacpan

t/01_use.t  view on Meta::CPAN

done_testing;

sub require_ok ($)
{
  # special case of when I really do want require_ok.
  # I just want a test that checks that the modules
  # will compile okay.  I won't be trying to use them.
  my($mod) = @_;
  my $ctx = context();
  eval qq{ require $mod };
  my $error = $@;
  my $ok = !$error;
  $ctx->ok($ok, "require $mod");
  $ctx->diag("error: $error") if $error ne '';
  $ctx->release;
}

t/alien_build_plugin_fetch_rewrite.t  view on Meta::CPAN

    fetch sub { die 'oh noes!' }

  };
};

$build->load_requires($build->install_type);

subtest 'failure' => sub {

  eval { $build->fetch };
  my $error = $@;

  isnt $error, '';
  note "error = $error";

};

sub res2content
{
  my($res) = @_;
  $res->{content} ? $res->{content} : path($res->{path})->slurp_raw;
}

subtest 'basic good' => sub {