ヤミRoot VoidGate

Viewing: pp-10subtract.t

BEGIN {
    $ENV{PERL_DATETIME_PP} = 1;
}

use strict;
use warnings;

use Test::More;

use DateTime;

{
    my $date1 = DateTime->new(
        year       => 2001, month  => 5, day    => 10,
        hour       => 4,    minute => 3, second => 2,
        nanosecond => 12,
        time_zone  => 'UTC'
    );

    my $date2 = DateTime->new(
        year       => 2001, month  => 6, day    => 12,
        hour       => 5,    minute => 7, second => 23,
        nanosecond => 7,
        time_zone  => 'UTC'
    );

    my $dur = $date2 - $date1;

    is( $dur->delta_months,  1,  'delta_months should be 1' );
    is( $dur->delta_days,    2,  'delta_days should be 2' );
    is( $dur->delta_minutes, 64, 'delta_minutes should be 64' );
    is( $dur->delta_seconds, 20, 'delta_seconds should be 20' );
    is(
        $dur->delta_nanoseconds, 999_999_995,
        'delta_nanoseconds should be 999,999,995'
    );

    is( $dur->years,       0,           'Years' );
    is( $dur->months,      1,           'Months' );
    is( $dur->weeks,       0,           'Weeks' );
    is( $dur->days,        2,           'Days' );
    is( $dur->hours,       1,           'Hours' );
    is( $dur->minutes,     4,           'Minutes' );
    is( $dur->seconds,     20,          'Seconds' );
    is( $dur->nanoseconds, 999_999_995, 'Nanoseconds' );
}

{
    my $date1 = DateTime->new(
        year      => 2001, month  => 5, day    => 10,
        hour      => 4,    minute => 3, second => 2,
        time_zone => 'UTC'
    );

    my $date2 = DateTime->new(
        year      => 2001, month  => 6, day    => 12,
        hour      => 5,    minute => 7, second => 23,
        time_zone => 'UTC'
    );

    my $dur = $date1 - $date2;

    is( $dur->delta_months,      -1,  'delta_months should be -1' );
    is( $dur->delta_days,        -2,  'delta_days should be -2' );
    is( $dur->delta_minutes,     -64, 'delta_minutes should be 64' );
    is( $dur->delta_seconds,     -21, 'delta_seconds should be 20' );
    is( $dur->delta_nanoseconds, 0,   'delta_nanoseconds should be 0' );

    is( $dur->years,       0,  'Years' );
    is( $dur->months,      1,  'Months' );
    is( $dur->weeks,       0,  'Weeks' );
    is( $dur->days,        2,  'Days' );
    is( $dur->hours,       1,  'Hours' );
    is( $dur->minutes,     4,  'Minutes' );
    is( $dur->seconds,     21, 'Seconds' );
    is( $dur->nanoseconds, 0,  'Nanoseconds' );

    $dur = $date1 - $date1;
    is( $dur->delta_days, 0, 'date minus itself should have no delta days' );
    is(
        $dur->delta_seconds, 0,
        'date minus itself should have no delta seconds'
    );

    my $new = $date1 - DateTime::Duration->new( years => 2 );
    is( $new->datetime, '1999-05-10T04:03:02', 'test - overloading' );
}

{
    my $d = DateTime->new(
        year      => 2001, month  => 10, day    => 19,
        hour      => 5,    minute => 1,  second => 1,
        time_zone => 'UTC'
    );

    my $d2 = $d->clone;
    $d2->subtract(
        weeks   => 1,
        days    => 1,
        hours   => 1,
        minutes => 1,
        seconds => 1,
    );

    ok( defined $d2, 'Defined' );
    is(
        $d2->datetime, '2001-10-11T04:00:00',
        'Subtract and get the right thing'
    );
}

# based on bug report from Eric Cholet
{
    my $dt1 = DateTime->new(
        year      => 2003, month  => 2, day    => 9,
        hour      => 0,    minute => 0, second => 1,
        time_zone => 'UTC',
    );

    my $dt2 = DateTime->new(
        year      => 2003, month  => 2,  day    => 7,
        hour      => 23,   minute => 59, second => 59,
        time_zone => 'UTC',
    );

    my $dur1 = $dt1->subtract_datetime($dt2);

    is( $dur1->delta_days,    1, 'delta_days should be 1' );
    is( $dur1->delta_seconds, 2, 'delta_seconds should be 2' );

    my $dt3 = $dt2 + $dur1;

    is(
        DateTime->compare( $dt1, $dt3 ), 0,
        'adding difference back to dt1 should give same datetime'
    );

    my $dur2 = $dt2->subtract_datetime($dt1);

    is( $dur2->delta_days,    -1, 'delta_days should be -1' );
    is( $dur2->delta_seconds, -2, 'delta_seconds should be -2' );

    my $dt4 = $dt1 + $dur2;

    is(
        DateTime->compare( $dt2, $dt4 ), 0,
        'adding difference back to dt2 should give same datetime'
    );
}

# test if the day changes because of a nanosecond subtract
{
    my $dt = DateTime->new(
        year      => 2001, month  => 6, day    => 12,
        hour      => 0,    minute => 0, second => 0,
        time_zone => 'UTC'
    );
    $dt->subtract( nanoseconds => 1 );
    is( $dt->nanosecond, 999999999, 'negative nanoseconds normalize ok' );
    is( $dt->second,     59,        'seconds normalize ok' );
    is( $dt->minute,     59,        'minutes normalize ok' );
    is( $dt->hour,       23,        'hours normalize ok' );
    is( $dt->day,        11,        'days normalize ok' );
}

# test for a bug when nanoseconds were greater in earlier datetime
{
    my $dt1 = DateTime->new(
        year       => 2000, month  => 1,  day    => 5,
        hour       => 0,    minute => 10, second => 0,
        nanosecond => 1,
        time_zone  => 'UTC',
    );

    my $dt2 = DateTime->new(
        year       => 2000, month  => 1,  day    => 6,
        hour       => 0,    minute => 10, second => 0,
        nanosecond => 0,
        time_zone  => 'UTC',
    );
    my $dur = $dt2 - $dt1;

    is( $dur->delta_days,    0,    'delta_days is 0' );
    is( $dur->delta_minutes, 1439, 'delta_minutes is 1439' );
    is( $dur->delta_seconds, 59,   'delta_seconds is 59' );
    is(
        $dur->delta_nanoseconds, 999_999_999,
        'delta_nanoseconds is 999,999,999'
    );
    ok( $dur->is_positive, 'duration is positive' );
}

{
    my $dt1 = DateTime->new(
        year       => 2000, month  => 1,  day    => 5,
        hour       => 0,    minute => 10, second => 0,
        nanosecond => 20,
        time_zone  => 'UTC',
    );

    my $dt2 = DateTime->new(
        year       => 2000, month  => 1,  day    => 5,
        hour       => 0,    minute => 10, second => 0,
        nanosecond => 10,
        time_zone  => 'UTC',
    );

    my $dur = $dt2 - $dt1;

    is( $dur->delta_days,        0,   'days is 0' );
    is( $dur->delta_seconds,     0,   'seconds is 0' );
    is( $dur->delta_nanoseconds, -10, 'nanoseconds is -10' );
    ok( $dur->is_negative, 'duration is negative' );
}

{
    my $dt1 = DateTime->new(
        year       => 2000, month  => 1,  day    => 5,
        hour       => 0,    minute => 11, second => 0,
        nanosecond => 20,
        time_zone  => 'UTC',
    );

    my $dt2 = DateTime->new(
        year       => 2000, month  => 1,  day    => 5,
        hour       => 0,    minute => 10, second => 0,
        nanosecond => 10,
        time_zone  => 'UTC',
    );

    my $dur = $dt2 - $dt1;

    is( $dur->delta_days,        0,   'delta_days is 0' );
    is( $dur->delta_minutes,     -1,  'delta_minutes is -1' );
    is( $dur->delta_seconds,     0,   'delta_seconds is 0' );
    is( $dur->delta_nanoseconds, -10, 'nanoseconds is -10' );
    ok( $dur->is_negative, 'duration is negative' );
}

{
    my $dt1 = DateTime->new(
        year       => 2000, month  => 1,  day    => 5,
        hour       => 0,    minute => 10, second => 0,
        nanosecond => 20,
        time_zone  => 'UTC',
    );

    my $dt2 = DateTime->new(
        year       => 2000, month  => 1,  day    => 5,
        hour       => 0,    minute => 11, second => 0,
        nanosecond => 10,
        time_zone  => 'UTC',
    );

    my $dur = $dt2 - $dt1;

    is( $dur->delta_days,        0,           'days is 0' );
    is( $dur->delta_seconds,     59,          'seconds is 59' );
    is( $dur->delta_nanoseconds, 999_999_990, 'nanoseconds is 999,999,990' );
    ok( $dur->is_positive, 'duration is positive' );
}

{
    my $dt1 = DateTime->new(
        year       => 2000, month  => 1,  day    => 5,
        hour       => 0,    minute => 11, second => 0,
        nanosecond => 10,
        time_zone  => 'UTC',
    );

    my $dt2 = DateTime->new(
        year       => 2000, month  => 1,  day    => 5,
        hour       => 0,    minute => 10, second => 0,
        nanosecond => 20,
        time_zone  => 'UTC',
    );

    my $dur = $dt2 - $dt1;

    is( $dur->delta_days,    0,   'days is 0' );
    is( $dur->delta_seconds, -59, 'seconds is -59' );
    is(
        $dur->delta_nanoseconds, -999_999_990,
        'nanoseconds is -999,999,990'
    );
    ok( $dur->is_negative, 'duration is negative' );
}

{
    my $dt1 = DateTime->new(
        year       => 2000, month  => 1,  day    => 5,
        hour       => 0,    minute => 11, second => 0,
        nanosecond => 20,
        time_zone  => 'UTC',
    );

    my $dur = $dt1 - $dt1;

    is( $dur->delta_days,        0, 'days is 0' );
    is( $dur->delta_seconds,     0, 'seconds is 0' );
    is( $dur->delta_nanoseconds, 0, 'nanoseconds is 0' );
    ok( !$dur->is_positive, 'not positive' );
    ok( !$dur->is_negative, 'not negative' );
}

{
    my $dt1 = DateTime->new( year => 2003, month => 12, day => 31 );
    my $dt2 = $dt1->clone->subtract( months => 1 );

    is( $dt2->year,  2003, '2003-12-31 - 1 month = 2003-11-30' );
    is( $dt2->month, 11,   '2003-12-31 - 1 month = 2003-11-30' );
    is( $dt2->day,   30,   '2003-12-31 - 1 month = 2003-11-30' );
}

{
    my $date1 = DateTime->new(
        year       => 2001, month  => 5, day    => 10,
        hour       => 4,    minute => 3, second => 2,
        nanosecond => 12,
        time_zone  => 'UTC'
    );

    my $date2 = DateTime->new(
        year       => 2001, month  => 6, day    => 12,
        hour       => 5,    minute => 7, second => 23,
        nanosecond => 7,
        time_zone  => 'UTC'
    );

    my $dur = $date2->subtract_datetime_absolute($date1);

    is( $dur->delta_months,  0,         'delta_months is 0' );
    is( $dur->delta_minutes, 0,         'delta_minutes is 0' );
    is( $dur->delta_seconds, 2_855_060, 'delta_seconds is 2,855,060' );
    is(
        $dur->delta_nanoseconds, 999_999_995,
        'delta_seconds is 999,999,995'
    );
}

{
    my $date1 = DateTime->new(
        year      => 2001, month  => 5, day    => 10,
        hour      => 4,    minute => 3, second => 2,
        time_zone => 'UTC'
    );

    my $date2 = DateTime->new(
        year      => 2001, month  => 6, day    => 12,
        hour      => 5,    minute => 7, second => 23,
        time_zone => 'UTC'
    );

    my $dur = $date1->subtract_datetime_absolute($date2);

    is( $dur->delta_months,      0,          'delta_months is 0' );
    is( $dur->delta_minutes,     0,          'delta_minutes is 0' );
    is( $dur->delta_seconds,     -2_855_061, 'delta_seconds is -2,855,061' );
    is( $dur->delta_nanoseconds, 0,          'delta_nanoseconds is 0' );
}

{
    my $date1 = DateTime->new( year => 2003, month => 9,  day => 30 );
    my $date2 = DateTime->new( year => 2003, month => 10, day => 1 );

    my $date3 = DateTime->new( year => 2003, month => 10, day => 31 );
    my $date4 = DateTime->new( year => 2003, month => 11, day => 1 );

    my $date5 = DateTime->new( year => 2003, month => 2, day => 28 );
    my $date6 = DateTime->new( year => 2003, month => 3, day => 1 );

    my $date7 = DateTime->new( year => 2003, month => 1, day => 31 );
    my $date8 = DateTime->new( year => 2003, month => 2, day => 1 );

    foreach my $p (
        [ $date1, $date2 ],
        [ $date3, $date4 ],
        [ $date5, $date6 ],
        [ $date7, $date8 ],
    ) {
        my $pos_diff = $p->[1]->subtract_datetime( $p->[0] );

        is( $pos_diff->delta_days,   1, '1 day diff at end of month' );
        is( $pos_diff->delta_months, 0, '0 month diff at end of month' );

        my $neg_diff = $p->[0]->subtract_datetime( $p->[1] );

        is( $neg_diff->delta_days,   -1, '-1 day diff at end of month' );
        is( $neg_diff->delta_months, 0,  '0 month diff at end of month' );
    }
}

{
    my $dt1 = DateTime->new(
        year      => 2005, month => 6, day => 11,
        time_zone => 'UTC',
    );

    my $dt2 = DateTime->new(
        year      => 2005, month => 11, day => 10,
        time_zone => 'UTC',
    );

    my $dur    = $dt2->subtract_datetime($dt1);
    my %deltas = $dur->deltas;
    is( $deltas{months},  4,  '4 months - smaller day > bigger day' );
    is( $deltas{days},    29, '29 days - smaller day > bigger day' );
    is( $deltas{minutes}, 0,  '0 minutes - smaller day > bigger day' );

    is(
        DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
        '$dt1 + $dur == $dt2'
    );

    # XXX - this does not work, nor will it ever work
    #    is( $dt2->clone->subtract_duration($dur), $dt1, '$dt2 - $dur == $dt1' );
}

{
    my $dt1 = DateTime->new(
        year      => 2005, month => 6, day => 11,
        time_zone => 'UTC',
    );

    my $dt2 = DateTime->new(
        year      => 2005, month => 11, day => 10,
        time_zone => 'UTC',
    );

    my $dur    = $dt2->delta_days($dt1);
    my %deltas = $dur->deltas;
    is( $deltas{months},  0,   '30 months - smaller day > bigger day' );
    is( $deltas{days},    152, '152 days - smaller day > bigger day' );
    is( $deltas{minutes}, 0,   '0 minutes - smaller day > bigger day' );

    is(
        DateTime->compare( $dt1->clone->add_duration($dur), $dt2 ), 0,
        '$dt1 + $dur == $dt2'
    );
    is(
        DateTime->compare( $dt2->clone->subtract_duration($dur), $dt1 ), 0,
        '$dt2 - $dur == $dt1'
    );
}

{
    my $dt = DateTime->new(
        year      => 2012,
        month     => 6,
        day       => 30,
        time_zone => 'floating',
    );

    my $default = $dt->clone()->subtract( months => 1 );
    is(
        $default->format_cldr('yyyy-MM-dd'),
        '2012-05-31',
        'default subtract uses preserve end_of_month mode'
    );

    my $with_mode = $dt->clone()->subtract(
        months       => 1,
        end_of_month => 'limit',
    );
    is(
        $with_mode->format_cldr('yyyy-MM-dd'),
        '2012-05-30',
        'set end_of_month mode to limit in call to subtract()'
    );

}

{
    my $dt = DateTime->new(
        year      => 2014,
        month     => 7,
        day       => 3,
        time_zone => 'floating',
    );

    $dt->subtract( days => 2 );
    is(
        $dt->date, '2014-07-01',
        'subtracting 2 days from a floating datetime'
    );
}

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