t/lib/KohaTest/Dates.pm

   1 package KohaTest::Dates;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Dates;
  10 sub testing_class { 'C4::Dates' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw( _prefformat
  16                       regexp
  17                       dmy_map
  18                       _check_date_and_time
  19                       _chron_to_ymd
  20                       _chron_to_hms
  21                       new
  22                       init
  23                       output
  24                       today
  25                       _recognize_format
  26                       DHTMLcalendar
  27                       format
  28                       visual
  29                       format_date
  30                       format_date_in_iso
  31                 );
  32
  33     can_ok( $self->testing_class, @methods );
  34 }
  35
  36 1;
  37