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

my %days = (
    '00000001.JPG' => [ '2000-01-01T00:00:00', '1st' ],
    '00100001.JPG' => [ '2000-01-02T00:00:00', '2nd' ],
    '00200001.JPG' => [ '2000-01-03T00:00:00', '3rd' ],
    '00300001.JPG' => [ '2000-01-04T00:00:00', '4th' ],
    '00400001.JPG' => [ '2000-01-05T00:00:00', '5th' ],
    '00500001.JPG' => [ '2000-01-06T00:00:00', '6th' ],
    '00600001.JPG' => [ '2000-01-07T00:00:00', '7th' ],
    '00700001.JPG' => [ '2000-01-08T00:00:00', '8th' ],
    '00800001.JPG' => [ '2000-01-09T00:00:00', '9th' ],
    '00900001.JPG' => [ '2000-01-10T00:00:00', '10th' ],
    '00A00001.JPG' => [ '2000-01-11T00:00:00', '11th' ],
    '00B00001.JPG' => [ '2000-01-12T00:00:00', '12th' ],
    '00C00001.JPG' => [ '2000-01-13T00:00:00', '13th' ],
    '00D00001.JPG' => [ '2000-01-14T00:00:00', '14th' ],
    '00E00001.JPG' => [ '2000-01-15T00:00:00', '15th' ],
    '00F00001.JPG' => [ '2000-01-16T00:00:00', '16th' ],
    '00G00001.JPG' => [ '2000-01-17T00:00:00', '17th' ],
    '00H00001.JPG' => [ '2000-01-18T00:00:00', '18th' ],
    '00I00001.JPG' => [ '2000-01-19T00:00:00', '19th' ],
    '00J00001.JPG' => [ '2000-01-20T00:00:00', '20th' ],
    '00K00001.JPG' => [ '2000-01-21T00:00:00', '21st' ],
    '00L00001.JPG' => [ '2000-01-22T00:00:00', '22nd' ],
    '00M00001.JPG' => [ '2000-01-23T00:00:00', '23rd' ],
    '00N00001.JPG' => [ '2000-01-24T00:00:00', '24th' ],
    '00O00001.JPG' => [ '2000-01-25T00:00:00', '25th' ],
    '00P00001.JPG' => [ '2000-01-26T00:00:00', '26th' ],
    '00Q00001.JPG' => [ '2000-01-27T00:00:00', '27th' ],
    '00R00001.JPG' => [ '2000-01-28T00:00:00', '28th' ],
    '00S00001.JPG' => [ '2000-01-29T00:00:00', '29th' ],
    '00T00001.JPG' => [ '2000-01-30T00:00:00', '30th' ],
    '00U00001.JPG' => [ '2000-01-31T00:00:00', '31st' ],
);

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