use strict;
use warnings;
use Test::More;
use CPAN::Changes;
my @dates = (
'2000',
'2000-01',
'2000-01-01',
'2000-01-01T12:00',
'2000-01-01T12:00Z',
'2000-01-01T12:00+04:00',
'2000-01-01T12:00+04:00:00',
'2000-01-01 12:00', # optional "T"
);
for my $date ( @dates ) {
ok( $date =~ m[^${CPAN::Changes::W3CDTF_REGEX}$], "Valid Date: $date" );
}
done_testing;