# $Id: 04_months.t 46 2009-01-24 23:19:13Z roland $
# $Revision: 46 $
# $HeadURL: svn+ssh://ipenburg.xs4all.nl/srv/svnroot/debbie/trunk/Date-Extract-P800Picture/t/04_months.t $
# $Date: 2009-01-25 00:19:13 +0100 (Sun, 25 Jan 2009) $

use Test::More;
BEGIN { plan tests => 12 }

my %months = (
    '00000001.JPG' => [ '2000-01-01T00:00:00', 'januari' ],
    '01000001.JPG' => [ '2000-02-01T00:00:00', 'februari' ],
    '02000001.JPG' => [ '2000-03-01T00:00:00', 'march' ],
    '03000001.JPG' => [ '2000-04-01T00:00:00', 'april' ],
    '04000001.JPG' => [ '2000-05-01T00:00:00', 'may' ],
    '05000001.JPG' => [ '2000-06-01T00:00:00', 'june' ],
    '06000001.JPG' => [ '2000-07-01T00:00:00', 'july' ],
    '07000001.JPG' => [ '2000-08-01T00:00:00', 'august' ],
    '08000001.JPG' => [ '2000-09-01T00:00:00', 'september' ],
    '09000001.JPG' => [ '2000-10-01T00:00:00', 'october' ],
    '0A000001.JPG' => [ '2000-11-01T00:00:00', 'november' ],
    '0B000001.JPG' => [ '2000-12-01T00:00:00', 'december' ],
);

use Date::Extract::P800Picture;
my $parser = Date::Extract::P800Picture->new();
while ( my ( $filename, $expect ) = each %months ) {
    is( "@{[$parser->extract($filename)]}", $expect->[0], $expect->[1] );
}