1use strict;
2
3use Test::More tests => 7;
4
5
6{
7    eval q[
8	package SampleClass1;
9	use DateTime::Format::Builder
10	    parsers => {
11		parse_datetime => [
12		{
13		    regex => qr/^(\d{4})(\d\d)(d\d)(\d\d)(\d\d)(\d\d)$/,
14		    params => [qw( year month day hour minute second )],
15		},
16		{
17		    regex => qr/^(\d{4})(\d\d)(\d\d)$/,
18		    params => [qw( year month day )],
19		},
20		],
21	    };
22    ];
23    ok( !$@, "No errors when creating the class." );
24
25    my $parser = SampleClass1->new();
26    isa_ok( $parser => 'SampleClass1' );
27
28    my $dt = eval { $parser->parse_datetime( "20040506" ) };
29    isa_ok( $dt => 'DateTime' );
30
31    is( $dt->year	=> 2004, 'Year is 2004' );
32    is( $dt->month	=> 5, 'Year is 2004' );
33    is( $dt->day	=> 6, 'Year is 2004' );
34
35    eval { $parser->fnerk };
36    ok( $@, "There is no fnerk." );
37}
38
39