view release on metacpan or  search on metacpan

t/efail.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 3;

# ABSTRACT: Expected failures

use CPAN::Changes::Group::Dependencies::Details;

sub is_fail($$) {
  my ( $reason, $sub ) = @_;
  local $@;
  my $failed = 1;
  eval {
    $sub->();
    undef $failed;
  };
  if ($failed) {
    @_ = ( "Got expected failure: " . $reason );
    goto &pass;