1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
use strict;
use warnings;
use Test::More;
use DateTime;
{
my $dt = DateTime->new(
year => 2000,
hour => 1,
nanosecond => 500,
time_zone => 'UTC',
);
my ( $utc_rd_days, $utc_rd_secs, $utc_nanosecs ) = $dt->utc_rd_values;
is( $utc_rd_days, 730120, 'utc rd days is 730120' );
is( $utc_rd_secs, 3600, 'utc rd seconds is 3600' );
is( $utc_nanosecs, 500, 'nanoseconds is 500' );
my ( $local_rd_days, $local_rd_secs, $local_nanosecs )
= $dt->local_rd_values;
is( $local_rd_days, $utc_rd_days, 'local & utc rd days are equal' );
is( $local_rd_secs, $utc_rd_secs, 'local & utc rd seconds are equal' );
is( $local_nanosecs, $utc_nanosecs, 'local & UTC nanoseconds are equal' );
}
{
my $dt = DateTime->new(
year => 2000,
hour => 1,
nanosecond => 500,
time_zone => '+02:00',
);
my ( $utc_rd_days, $utc_rd_secs, $utc_nanosecs ) = $dt->utc_rd_values;
is( $utc_rd_days, 730119, 'utc rd days is 730119' );
is( $utc_rd_secs, 82800, 'utc rd seconds is 82800' );
is( $utc_nanosecs, 500, 'nanoseconds is 500' );
my ( $local_rd_days, $local_rd_secs, $local_nanosecs )
= $dt->local_rd_values;
is( $local_rd_days, 730120, 'local rd days is 730120' );
is( $local_rd_secs, 3600, 'local rd seconds is 3600' );
is( $local_nanosecs, 500, 'local nanoseconds is 500' );
}
done_testing();
|
