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