File: extra.t

package info (click to toggle)
libdatetime-format-builder-perl 0.8300-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 504 kB
  • sloc: perl: 1,236; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 480 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
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();