32 lines
675 B
Perl
32 lines
675 B
Perl
package t::lib::Dates;
|
|
|
|
use Modern::Perl;
|
|
use Koha::DateUtils qw( dt_from_string );
|
|
use DateTime;
|
|
|
|
=head1 NAME
|
|
|
|
t::lib::Dates.pm - test helper module for working with dates
|
|
|
|
=head1 METHODS
|
|
|
|
=head2 compare
|
|
|
|
compare( $got_dt, $expected_dt );
|
|
|
|
Will execute a test and compare the 2 dates given in parameters
|
|
The dates will be considered as identical if there are less than 5sec between them.
|
|
|
|
=cut
|
|
|
|
sub compare {
|
|
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) <= 5 ) { return 0 }
|
|
return $diff > 0 ? 1 : -1;
|
|
}
|
|
|
|
1;
|