Bug 15774: (QA follow-up) Fix use statemenets

[koha.git] / t / lib / Dates.pm

diff --git a/t/lib/Dates.pm b/t/lib/Dates.pm
index 330d5c5..66299d9 100644 (file)
--- a/t/lib/Dates.pm
+++ b/t/lib/Dates.pm
@@ -1,7 +1,6 @@
 package t::lib::Dates;
 
 use Modern::Perl;
-use Test::More;
 use Koha::DateUtils;
 use DateTime;
 
@@ -13,19 +12,19 @@ t::lib::Dates.pm - test helper module for working with dates
 
 =head2 compare
 
-  compare( $got_dt, $expected_dt, $test_description );
+  compare( $got_dt, $expected_dt );
 
 Will execute a test and compare the 2 dates given in parameters
-The date will be compared truncated to minutes
+The dates will be considered as identical if there are less than 5sec between them.
 
 =cut
 
 sub compare {
-    my ( $got, $expected, $description ) = @_;
+    my ( $got, $expected ) = @_;
     my $dt_got      = dt_from_string($got);
     my $dt_expected = dt_from_string($expected);
     my $diff = $dt_got->epoch - $dt_expected->epoch;
-    if ( abs($diff) < 6 ) { return 0 }
+    if ( abs($diff) <= 5 ) { return 0 }
     return $diff > 0 ? 1 : -1;
 }