use strict;

use warnings;

use Test::More;

use CPAN::Changes;

my $changes = CPAN::Changes->load( 't/corpus/timestamp.changes' );

isa_ok( $changes, 'CPAN::Changes' );

my @releases = $changes->releases;

is( scalar @releases, 11, 'has 11 releases' );

my @expected = (

    qw(

      2011-03-25T12:16:25Z

      2011-03-25T12:18:36Z

      2011-03-25

      2011-04-11T12:11:10Z

      2011-04-11T15:14Z

      2011-04-11T21:40:45-03:00

    ),

    { d => '2011-04-12T12:00:00Z', n => '# JUNK!' },

    { d => '2011-04-13T12:00Z', n => 'Test' },

    { d => '2011-04-14T12:00:00Z', n => 'America/Halifax' },

    '2011-04-14T13:00:00.123Z',

    { d => '2011-04-12T12:00:00+01:00', n => undef },

);

for ( 0..@expected - 1 ) {

    isa_ok( $releases[ $_ ], 'CPAN::Changes::Release' );

    if( ref $expected[ $_ ] ) {

        is( $releases[ $_ ]->date,  $expected[ $_ ]->{ d }, 'date' );

        is( $releases[ $_ ]->note,  $expected[ $_ ]->{ n }, 'note' );

    }

    else {

        is( $releases[ $_ ]->date,  $expected[ $_ ], 'date' );

        is( $releases[ $_ ]->note,  undef, 'note' );

    }

}

done_testing;