1 files changed, 20 insertions, 0 deletions
diff --git a/cpan/Test-Simple/t/xxx-changes_updated.t b/cpan/Test-Simple/t/xxx-changes_updated.t
new file mode 100644
index 0000000000..d813d8a7c7
--- /dev/null
+++ b/cpan/Test-Simple/t/xxx-changes_updated.t
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+use Test::More;
+use List::Util qw/first/;
+
+plan skip_all => "Only tested when releasing" unless $ENV{AUTHOR_TESTING};
+
+my $ver = $Test::More::VERSION;
+
+my $changes = first { -f $_ } './Changes', '../Changes';
+
+plan 'skip_all' => 'Could not find changes file'
+    unless $changes;
+
+open(my $fh, '<', $changes) || die "Could not load changes file!";
+chomp(my $line = <$fh>);
+like($line, qr/^\Q$ver\E/, "Changes file is up to date");
+close($fh);
+
+done_testing;