use strict;
use Test::More tests => 105;
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' );
}
{
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' );
}
{
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' );
}
{
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( $dt1->clone->add_duration($dur), $dt2, '$dt1 + $dur == $dt2' );
}
{
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( $dt1->clone->add_duration($dur), $dt2, '$dt1 + $dur == $dt2' );
is( $dt2->clone->subtract_duration($dur), $dt1, '$dt2 - $dur == $dt1' );
}