ヤミRoot VoidGate

Viewing: pp-01sanity.t

BEGIN {
    $ENV{PERL_DATETIME_PP} = 1;
}

use strict;
use warnings;

use Test::More;

use DateTime;

{
    my $dt = DateTime->new(
        year       => 1870, month  => 10, day    => 21,
        hour       => 12,   minute => 10, second => 45,
        nanosecond => 123456,
        time_zone  => 'UTC'
    );

    is( $dt->year,       '1870',   'Year accessor, outside of the epoch' );
    is( $dt->month,      '10',     'Month accessor, outside the epoch' );
    is( $dt->day,        '21',     'Day accessor, outside the epoch' );
    is( $dt->hour,       '12',     'Hour accessor, outside the epoch' );
    is( $dt->minute,     '10',     'Minute accessor, outside the epoch' );
    is( $dt->second,     '45',     'Second accessor, outside the epoch' );
    is( $dt->nanosecond, '123456', 'nanosecond accessor, outside the epoch' );

    $dt = DateTime->from_object( object => $dt );
    is( $dt->year,       '1870',   'Year should be identical' );
    is( $dt->month,      '10',     'Month should be identical' );
    is( $dt->day,        '21',     'Day should be identical' );
    is( $dt->hour,       '12',     'Hour should be identical' );
    is( $dt->minute,     '10',     'Minute should be identical' );
    is( $dt->second,     '45',     'Second should be identical' );
    is( $dt->nanosecond, '123456', 'nanosecond should be identical' );
}

{
    my $dt = DateTime->new(
        year      => 1870, month  => 10, day    => 21,
        hour      => 12,   minute => 10, second => 45,
        time_zone => 'UTC'
    );
    is( $dt->minute, '10', 'Minute accessor, outside the epoch' );
    is( $dt->second, '45', 'Second accessor, outside the epoch' );
}

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