view release on metacpan or  search on metacpan

t/fails.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 4;

# ABSTRACT: Things that fail
use CPAN::Changes::Group::Dependencies::Stats;

sub is_fail($$) {
  my ( $reason, $code ) = @_;
  local $@;
  my $failed = 1;
  eval {
    $code->();
    undef $failed;
  };
  if ($failed) {
    @_ = 'died:' . $reason;
    note explain $@;
    goto \&pass;
  }
  else {
    @_ = 'die expected:' . $reason;
    goto \&fail;
  }
}

sub isnt_fail($$) {
  my ( $reason, $code ) = @_;
  local $@;
  my $failed = 1;
  eval {
    $code->();
    undef $failed;
  };
  if ( not $failed ) {
    @_ = 'lived:' . $reason;
    goto \&pass;