1use strict;
2use warnings;
3
4use Test::More;
5
6use DateTime::Format::Builder;
7
8{
9    my $parser = DateTime::Format::Builder->parser(
10        {
11            params => [qw( year month day hour minute second )],
12            regex  => qr/^(\d\d\d\d)(\d\d)(\d\d)T(\d\d)(\d\d)(\d\d)$/,
13            extra  => { time_zone => 'America/Chicago' },
14        }
15    );
16
17    my $dt = $parser->parse_datetime("20030716T163245");
18
19    is( $dt->time_zone->name, 'America/Chicago' );
20}
21
22done_testing();
23