use strict;
use warnings;

use Test::More;

use DateTime::Format::Builder;

{
    eval q[
    package SampleDispatch;
    use DateTime::Format::Builder
    (
        parsers => {
        parse_datetime => [
            {
            Dispatch => sub {
                return 'fnerk';
            }
            }
        ]
        },
        groups => {
        fnerk => [
            {
            regex => qr/^(\d{4})(\d\d)(\d\d)$/,
            params => [qw( year month day )],
            },
        ]
        }
    );
    ];
    ok( !$@, "No errors when creating the class." );
    if ($@) { diag $@; exit }

    my $parser = SampleDispatch->new();
    isa_ok( $parser => 'SampleDispatch' );

    my $dt = eval { $parser->parse_datetime("20040506") };
    ok( !$@, "No errors when parsing." );
    if ($@) { diag $@; exit }
    isa_ok( $dt => 'DateTime' );

    is( $dt->year  => 2004, 'Year is 2004' );
    is( $dt->month => 5,    'Month is 5' );
    is( $dt->day   => 6,    'Day is 6' );

    eval { $parser->fnerk };
    ok( $@, "There is no fnerk." );

}

{
    eval q[
        package SampleDispatchB;

        use DateTime::Format::Builder;

        DateTime::Format::Builder->create_class(
            parsers => {
                parse_datetime => [
                    {
                        Dispatch => sub {
                            return( 8, 6 );
                        }
                    },
                ],
            },
            groups => {
                8 => [
                    {
                        regex  => qr/^ (\d{4}) (\d\d) (\d\d) $/x,
                        params => [ qw( year month day ) ],
                    },
                ],
                6 => [
                    {
                        regex  => qr/^ (\d{4}) (\d\d) $/x,
                        params => [ qw( year month ) ],
                    },
                ],
            }
        );
    ];

    ok( !$@, "No errors when creating the class." );
    if ($@) { diag $@; exit }

    my $parser = SampleDispatchB->new();
    isa_ok( $parser => 'SampleDispatchB' );

    {
        my $dt = eval { $parser->parse_datetime("20040506") };
        ok( !$@, "No errors when parsing." );
        if ($@) { diag $@; exit }
        isa_ok( $dt => 'DateTime' );

        is( $dt->year  => 2004, 'Year is 2004' );
        is( $dt->month => 5,    'Month is 5' );
        is( $dt->day   => 6,    'Day is 6' );
    }

    {
        my $dt = eval { $parser->parse_datetime("200311") };
        ok( !$@, "No errors when parsing." );
        if ($@) { diag $@; exit }
        isa_ok( $dt => 'DateTime' );

        is( $dt->year  => 2003, 'Year is 2003' );
        is( $dt->month => 11,   'Month is 11' );
        is( $dt->day   => 1,    'Day is 1' );
    }

    eval { $parser->fnerk };
    ok( $@, "There is no fnerk." );

}

# ------------------------------------------------------------------------

pass "All done.";

done_testing();