ヤミRoot VoidGate

Viewing: pp-05set.t

BEGIN {
    $ENV{PERL_DATETIME_PP} = 1;
}

use strict;
use warnings;

use Test::More;

use DateTime;

{
    my $dt = DateTime->new(
        year      => 1996, month  => 11, day    => 22,
        hour      => 18,   minute => 30, second => 20,
        time_zone => 'UTC',
    );

    is( $dt->month, 11, 'check month' );

    $dt->set( month => 5 );
    is( $dt->year,   1996, 'check year after setting month' );
    is( $dt->month,  5,    'check month after setting it' );
    is( $dt->day,    22,   'check day after setting month' );
    is( $dt->hour,   18,   'check hour after setting month' );
    is( $dt->minute, 30,   'check minute after setting month' );
    is( $dt->second, 20,   'check second after setting month' );

    $dt->set_time_zone('-060001');
    is( $dt->year,   1996, 'check year after setting time zone' );
    is( $dt->month,  5,    'check month after setting time zone' );
    is( $dt->day,    22,   'check day after setting time zone' );
    is( $dt->hour,   12,   'check hour after setting time zone' );
    is( $dt->minute, 30,   'check minute after setting time zone' );
    is( $dt->second, 19,   'check second after setting time zone' );
    is(
        $dt->offset, -21601,
        'check time zone offset after setting new time zone'
    );

    $dt->set_time_zone('+0100');
    is( $dt->year,   1996, 'check year after setting time zone' );
    is( $dt->month,  5,    'check month after setting time zone' );
    is( $dt->day,    22,   'check day after setting time zone' );
    is( $dt->hour,   19,   'check hour after setting time zone' );
    is( $dt->minute, 30,   'check minute after setting time zone' );
    is( $dt->second, 20,   'check second after setting time zone' );
    is(
        $dt->offset, 3600,
        'check time zone offset after setting new time zone'
    );

    $dt->set( hour => 17 );
    is( $dt->year,   1996, 'check year after setting hour' );
    is( $dt->month,  5,    'check month after setting hour' );
    is( $dt->day,    22,   'check day after setting hour' );
    is( $dt->hour,   17,   'check hour after setting hour' );
    is( $dt->minute, 30,   'check minute after setting hour' );
    is( $dt->second, 20,   'check second after setting hour' );
}

{
    my $dt = DateTime->new(
        year      => 1996, month  => 11, day    => 22,
        hour      => 18,   minute => 30, second => 20,
        time_zone => 'UTC',
    );

    $dt->set_year(2000);
    is( $dt->year, 2000, 'check year after set_year' );

    $dt->set_month(5);
    is( $dt->month, 5, 'check month after set_month' );

    $dt->set_day(6);
    is( $dt->day, 6, 'check day after set_day' );

    $dt->set_hour(7);
    is( $dt->hour, 7, 'check hour after set_hour' );

    $dt->set_minute(8);
    is( $dt->minute, 8, 'check minute after set_minute' );

    $dt->set_second(9);
    is( $dt->second, 9, 'check second after set_second' );

    $dt->set_nanosecond(9999);
    is( $dt->nanosecond, 9999, 'check nanosecond after set_nanosecond' );

    $dt->set_locale('fr_FR');
    is( $dt->month_name, 'mai', 'check month name after set_locale' );
}

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