t/db_dependent/Koha_template_plugin_KohaDates.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use C4::Context;
   5 use C4::Dates;
   6 use Test::More tests => 7;
   7 use Test::MockModule;
   8
   9 BEGIN {
  10         use_ok('Koha::Template::Plugin::KohaDates');
  11 }
  12
  13 my $module_context = new Test::MockModule('C4::Context');
  14
  15 my $date = "1973-05-21";
  16 my $context = C4::Context->new();
  17 my $dateobj = C4::Dates->new();
  18
  19 my $filter = Koha::Template::Plugin::KohaDates->new();
  20 ok ($filter, "new()");
  21
  22 $context->set_preference( "dateformat", 'iso' );
  23 $context->clear_syspref_cache();
  24 $dateobj->reset_prefformat;
  25
  26 my $filtered_date = $filter->filter($date);
  27 is ($filtered_date,$date, "iso conversion") or diag ("iso conversion fails");
  28
  29 #$filter = Koha::Template::Plugin::KohaDates->new();
  30 $context->set_preference( "dateformat", 'us' );
  31 $context->clear_syspref_cache();
  32 $dateobj->reset_prefformat;
  33
  34 $filtered_date = $filter->filter($date);
  35 is ($filtered_date,'05/21/1973', "us conversion") or diag ("us conversion fails $filtered_date");
  36
  37 $context->set_preference( "dateformat", 'metric' );
  38 $context->clear_syspref_cache();
  39 $dateobj->reset_prefformat;
  40
  41 $filtered_date = $filter->filter($date);
  42 is ($filtered_date,'21/05/1973', "metric conversion") or diag ("metric conversion fails $filtered_date");
  43
  44 $module_context->mock(
  45     'tz',
  46     sub {
  47         return DateTime::TimeZone->new( name => 'Europe/Lisbon' );
  48     }
  49 );
  50
  51 $filtered_date = $filter->filter('1979-04-01');
  52 is( $filtered_date, '01/04/1979', 'us: dt_from_string should return the valid date if a DST is given' );
  53
  54 $module_context->mock(
  55     'tz',
  56     sub {
  57         return DateTime::TimeZone->new( name => 'Europe/Paris' );
  58     }
  59 );
  60
  61 $filtered_date = $filter->filter('2014-03-30 02:00:00');
  62 is( $filtered_date, '30/03/2014', 'us: dt_from_string should return a DateTime object if a DST is given' );