37 lines
803 B
Perl
37 lines
803 B
Perl
package KohaTest::Dates;
|
|
use base qw( KohaTest );
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
use C4::Dates;
|
|
sub testing_class { 'C4::Dates' };
|
|
|
|
|
|
sub methods : Test( 1 ) {
|
|
my $self = shift;
|
|
my @methods = qw( _prefformat
|
|
regexp
|
|
dmy_map
|
|
_check_date_and_time
|
|
_chron_to_ymd
|
|
_chron_to_hms
|
|
new
|
|
init
|
|
output
|
|
today
|
|
_recognize_format
|
|
DHTMLcalendar
|
|
format
|
|
visual
|
|
format_date
|
|
format_date_in_iso
|
|
);
|
|
|
|
can_ok( $self->testing_class, @methods );
|
|
}
|
|
|
|
1;
|
|
|