28 lines
587 B
Perl
28 lines
587 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
BEGIN {
|
|
plan skip_all => 'test requires Test::CPAN::Changes'
|
|
unless eval q{ use Test::CPAN::Changes; 1 };
|
|
};
|
|
use Test::CPAN::Changes;
|
|
use FindBin;
|
|
use File::Spec;
|
|
|
|
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
|
|
|
do {
|
|
my $old = \&Test::Builder::carp;
|
|
my $new = sub {
|
|
my($self, @messages) = @_;
|
|
return if $messages[0] =~ /^Date ".*" is not in the recommend format/;
|
|
$old->($self, @messages);
|
|
};
|
|
no warnings 'redefine';
|
|
*Test::Builder::carp = $new;
|
|
};
|
|
|
|
changes_file_ok;
|
|
|
|
done_testing;
|