6 use Test
::More tests
=> 7;
10 use_ok
('Koha::Template::Plugin::KohaDates');
13 my $module_context = new Test
::MockModule
('C4::Context');
15 my $date = "1973-05-21";
16 my $context = C4
::Context
->new();
17 my $dateobj = C4
::Dates
->new();
19 my $filter = Koha
::Template
::Plugin
::KohaDates
->new();
20 ok
($filter, "new()");
22 $context->set_preference( "dateformat", 'iso' );
23 $context->clear_syspref_cache();
24 $dateobj->reset_prefformat;
26 my $filtered_date = $filter->filter($date);
27 is
($filtered_date,$date, "iso conversion") or diag
("iso conversion fails");
29 #$filter = Koha::Template::Plugin::KohaDates->new();
30 $context->set_preference( "dateformat", 'us' );
31 $context->clear_syspref_cache();
32 $dateobj->reset_prefformat;
34 $filtered_date = $filter->filter($date);
35 is
($filtered_date,'05/21/1973', "us conversion") or diag
("us conversion fails $filtered_date");
37 $context->set_preference( "dateformat", 'metric' );
38 $context->clear_syspref_cache();
39 $dateobj->reset_prefformat;
41 $filtered_date = $filter->filter($date);
42 is
($filtered_date,'21/05/1973', "metric conversion") or diag
("metric conversion fails $filtered_date");
44 $module_context->mock(
47 return DateTime
::TimeZone
->new( name
=> 'Europe/Lisbon' );
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' );
54 $module_context->mock(
57 return DateTime
::TimeZone
->new( name
=> 'Europe/Paris' );
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' );