#!/usr/bin/perl -w
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
$version
=
$Labyrinth::PSGI::VERSION
;
my
$latest
= 0;
while
(<
$fh
>) {
next
unless
(m!^\d!);
$latest
= 1
if
(m!^
$version
!);
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
)?
)?
)
!
x,
'... version has a date'
);
}
is(
$latest
,1,
'... latest version not listed'
);