use strict;

use warnings;

use Test::More;

{

    eval q[

    package SampleClass1;

    use DateTime::Format::Builder

        parsers => {

        parse_datetime => [

        {

            regex => qr/^(\d{4})(\d\d)(d\d)(\d\d)(\d\d)(\d\d)$/,

            params => [qw( year month day hour minute second )],

        },

        {

            regex => qr/^(\d{4})(\d\d)(\d\d)$/,

            params => [qw( year month day )],

        },

        ],

        };

    ];

    ok( !$@, "No errors when creating the class." );

    my $parser = SampleClass1->new();

    isa_ok( $parser => 'SampleClass1' );

    my $dt = eval { $parser->parse_datetime("20040506") };

    isa_ok( $dt => 'DateTime' );

    is( $dt->year  => 2004, 'Year is 2004' );

    is( $dt->month => 5,    'Year is 2004' );

    is( $dt->day   => 6,    'Year is 2004' );

    eval { $parser->fnerk };

    ok( $@, "There is no fnerk." );

}

done_testing();