view release on metacpan or  search on metacpan

t/corpus.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use constant HAVE_DIFF => eval {
  require Test::Differences;
  Test::Differences::unified_diff();
  1;
};

use CPAN::Changes::Parser;
use Getopt::Long qw(:config gnu_getopt no_auto_abbrev no_ignore_case);
use Data::Dumper ();
use File::Spec;

sub _dump {
  local $Data::Dumper::Indent = 1;
  local $Data::Dumper::Terse = 1;
  local $Data::Dumper::Sortkeys = 1;
  local $Data::Dumper::Useqq = 1;
  Data::Dumper::Dumper(@_);
}

sub _eq {
  if (HAVE_DIFF) {
    Test::Differences::eq_or_diff(_dump($_[0]), _dump($_[1]), $_[2], { context => 5 });
  }
  elsif (ref $_[0] && ref $_[1]) {
    goto &Test::More::is_deeply;
  }
  else {
    goto &Test::More::is;
  }
}

GetOptions(

t/raw.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use constant HAVE_DIFF => eval {
  require Test::Differences;
  Test::Differences::unified_diff();
  1;
};

use CPAN::Changes::Parser;

sub _eq {
  if (HAVE_DIFF) {
    Test::Differences::eq_or_diff(@_[0..2], { context => 5 });
  }
  else {
    goto &Test::More::is;
  }
}

my $parser = CPAN::Changes::Parser->new(version_like => qr/\{\{\s*\$NEXT\s*\}\}/);

for my $log (@ARGV ? @ARGV : glob('corpus/dists/*.changes')) {
  my $content = do {