Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
25 lines (18 sloc) 640 Bytes
#!/usr/bin/perl -w
use strict;
use lib qw(./lib);
use Test::More;
use IO::File;
use CPAN::Testers::WWW::Reports::Query::Reports;
# Skip if doing a regular install
plan skip_all => "Author tests not required for installation"
unless ( $ENV{AUTOMATED_TESTING} );
my $fh = IO::File->new('Changes','r') or plan skip_all => "Cannot open Changes file";
plan 'no_plan';
my $latest = 0;
while(<$fh>) {
next unless(m!^\d!);
$latest = 1 if(m!^$CPAN::Testers::WWW::Reports::Query::Reports::VERSION!);
like($_, qr!\d[\d._]+\s+\d{2}/\d{2}/\d{4}!,'... version has a date');
}
is($latest,1,'... latest version not listed');
Jump to Line
Something went wrong with that request. Please try again.