Permalink
Fetching contributors…
Cannot retrieve contributors at this time
41 lines (31 sloc) 1.22 KB
#!/usr/bin/perl -w
use strict;
use Test::More;
use IO::File;
# 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';
use Data::Phrasebook::Loader::Ini;
my $version = $Data::Phrasebook::Loader::Ini::VERSION;
my $latest = 0;
while(<$fh>) {
next unless(m!^\d!);
$latest = 1 if(m!^$version!);
# 2012-08-26T01:02 or 2012-08-26T01:02:03 or 2012-08-26T01:02:03.04 or 2012-08-26T01:02+01:00
like($_, qr!^
\d[\d._]+\s+ # version
( \d{4}-\d{2}-\d{2} # 2012-08-26 - YYYY-MM-DD
( T\d{2}:\d{2} # T01:02 - Thh:mm
( :\d{2} # :02 - :ss
( \.\d+ # .2 - .ss (microseconds)
)?
)?
( (Z|[-+]\d+:\d+) # +01:00 - timezone
)?
)?
)
\s*$!x,'... version has a date');
}
is($latest,1,'... latest version not listed');