use strict;
use warnings;
use Test::More;
use DateTime::Format::Builder;
{
my $parser = DateTime::Format::Builder->parser(
{
params => [qw( year month day hour minute second )],
regex => qr/^(\d\d\d\d)(\d\d)(\d\d)T(\d\d)(\d\d)(\d\d)$/,
extra => { time_zone => 'America/Chicago' },
}
);
my $dt = $parser->parse_datetime("20030716T163245");
is( $dt->time_zone->name, 'America/Chicago' );
}
done_testing();