@@ -, +, @@ --- t/Test/Dates.t | 2 +- t/lib/Dates.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) --- a/t/Test/Dates.t +++ a/t/Test/Dates.t @@ -14,7 +14,7 @@ is( t::lib::Dates::compare( $dt_2, $dt_1 ), 1, '2018 is after 2017' ); is( t::lib::Dates::compare( $date_1, $date_2 ), -1, '2017 is before 2018 (strings comparison)' ); is( t::lib::Dates::compare( $date_2, $date_1 ), 1, '2018 is after 2017 (strings comparison)' ); -my $dt_3 = $dt_1->clone->subtract( seconds => 59 ); +my $dt_3 = $dt_1->clone->subtract( seconds => 5 ); is( t::lib::Dates::compare( $dt_1, $dt_3 ), 0, 'If there is less than 1min, the dates are considered identicals' ); is( t::lib::Dates::compare( $dt_3, $dt_1 ), --- a/t/lib/Dates.pm +++ a/t/lib/Dates.pm @@ -20,7 +20,7 @@ sub compare { $dt_got->set_time_zone('floating'); $dt_expected->set_time_zone('floating'); my $diff = $dt_got->epoch - $dt_expected->epoch; - if ( abs($diff) < 60 ) { return 0 } + if ( abs($diff) < 6 ) { return 0 } return $diff > 0 ? 1 : -1; } --