File: rt72706.t

package info (click to toggle)
libdatetime-format-pg-perl 0.16010-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 260 kB
  • ctags: 224
  • sloc: makefile: 492; perl: 369
file content (18 lines) | stat: -rw-r--r-- 485 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
use strict;
use Test::More;

use_ok "DateTime::Format::Pg";

subtest 'positive offset' => sub {
    my $dt = DateTime::Format::Pg->parse_datetime( "1894-01-01 00:00:00+05:17:32" );
    ok $dt, "Parse ok";
    is $dt->offset(), ((5*60+17)*60)+32, 'tz offset';
};

subtest 'negative offset' => sub {
    my $dt = DateTime::Format::Pg->parse_datetime( "1894-01-01 00:00:00-05:17:32" );
    ok $dt, "Parse ok";
    is $dt->offset(), -1 * (((5*60+17)*60)+32), 'tz offset';
};

done_testing;