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