ヤミRoot VoidGate

Viewing: 35rd-values.t

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();

User / IP	: 216.73.216.2
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64