extra.t   [plain text]

use strict;

use Test::More tests => 1;

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' );
}