date_diff.t

#!/usr/bin/env perl

use strict;
use warnings;
use DateTime::Format::W3CDTF;
use DateTime;
use Test::More;

{
    my $days = get_days(
        DateTime::Format::W3CDTF->parse_datetime('2017-01-01'),
        DateTime::Format::W3CDTF->parse_datetime('2017-01-01')
    );
    is $days, 0;
};

{
    my $days = get_days(
        DateTime::Format::W3CDTF->parse_datetime('2017-01-01'),
        DateTime::Format::W3CDTF->parse_datetime('2017-01-02')
    );
    is $days, 1;
};

{
    my $days = get_days(
        DateTime::Format::W3CDTF->parse_datetime('2017-01-01'),
        DateTime::Format::W3CDTF->parse_datetime('2017-02-01')
    );
    is $days, 31;
};

{
    my $days = get_days(
        DateTime::Format::W3CDTF->parse_datetime('2017-01-01'),
        DateTime::Format::W3CDTF->parse_datetime('2017-01-31')
    );
    is $days, 30;
};

sub get_days {
    my ($date1, $date2) = @_;
    return $date2->delta_days($date1)->delta_days;
}

done_testing;