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

my %years = (
    '00000001.JPG' => [ '2000-01-01T00:00:00', '2000' ],
    '10000001.JPG' => [ '2001-01-01T00:00:00', '2001' ],
    '20000001.JPG' => [ '2002-01-01T00:00:00', '2002' ],
    '30000001.JPG' => [ '2003-01-01T00:00:00', '2003' ],
    '40000001.JPG' => [ '2004-01-01T00:00:00', '2004' ],
    '50000001.JPG' => [ '2005-01-01T00:00:00', '2005' ],
    '60000001.JPG' => [ '2006-01-01T00:00:00', '2006' ],
    '70000001.JPG' => [ '2007-01-01T00:00:00', '2007' ],
    '80000001.JPG' => [ '2008-01-01T00:00:00', '2008' ],
    '90000001.JPG' => [ '2009-01-01T00:00:00', '2009' ],
    'A0000001.JPG' => [ '2010-01-01T00:00:00', '2010' ],
    'B0000001.JPG' => [ '2011-01-01T00:00:00', '2011' ],
    'C0000001.JPG' => [ '2012-01-01T00:00:00', '2012' ],
    'D0000001.JPG' => [ '2013-01-01T00:00:00', '2013' ],
    'E0000001.JPG' => [ '2014-01-01T00:00:00', '2014' ],
    'F0000001.JPG' => [ '2015-01-01T00:00:00', '2015' ],
    'G0000001.JPG' => [ '2016-01-01T00:00:00', '2016' ],
    'H0000001.JPG' => [ '2017-01-01T00:00:00', '2017' ],
    'I0000001.JPG' => [ '2018-01-01T00:00:00', '2018' ],
    'J0000001.JPG' => [ '2019-01-01T00:00:00', '2019' ],
    'K0000001.JPG' => [ '2020-01-01T00:00:00', '2020' ],
    'L0000001.JPG' => [ '2021-01-01T00:00:00', '2021' ],
    'M0000001.JPG' => [ '2022-01-01T00:00:00', '2022' ],
    'N0000001.JPG' => [ '2023-01-01T00:00:00', '2023' ],
    'O0000001.JPG' => [ '2024-01-01T00:00:00', '2024' ],
    'P0000001.JPG' => [ '2025-01-01T00:00:00', '2025' ],
    'Q0000001.JPG' => [ '2026-01-01T00:00:00', '2026' ],
    'R0000001.JPG' => [ '2027-01-01T00:00:00', '2027' ],
    'S0000001.JPG' => [ '2028-01-01T00:00:00', '2028' ],
    'T0000001.JPG' => [ '2029-01-01T00:00:00', '2029' ],
    'U0000001.JPG' => [ '2030-01-01T00:00:00', '2030' ],
    'V0000001.JPG' => [ '2031-01-01T00:00:00', '2031' ],
    'W0000001.JPG' => [ '2032-01-01T00:00:00', '2032' ],
    'X0000001.JPG' => [ '2033-01-01T00:00:00', '2033' ],
    'Y0000001.JPG' => [ '2034-01-01T00:00:00', '2034' ],
    'Z0000001.JPG' => [ '2035-01-01T00:00:00', '2035' ],
);

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