1use strict;
2use warnings;
3use Test::More;
4BEGIN {
5  plan skip_all => 'test requires Test::CPAN::Changes'
6    unless eval q{ use Test::CPAN::Changes; 1 };
7};
8use Test::CPAN::Changes;
9use FindBin;
10use File::Spec;
11
12chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
13
14do {
15  my $old = \&Test::Builder::carp;
16  my $new = sub {
17    my($self, @messages) = @_;
18    return if $messages[0] =~ /^Date ".*" is not in the recommend format/;
19    $old->($self, @messages);
20  };
21  no warnings 'redefine';
22  *Test::Builder::carp = $new;
23};
24
25changes_file_ok;
26
27done_testing;
28
29
30