42 lines
1.1 KiB
Perl
42 lines
1.1 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
|
|
use strict;
|
|
use warnings;
|
|
use C4::Context;
|
|
use C4::Dates;
|
|
use Test::More tests => 5;
|
|
|
|
BEGIN {
|
|
use_ok('Koha::Template::Plugin::KohaDates');
|
|
}
|
|
|
|
my $date = "1973-05-21";
|
|
my $context = C4::Context->new();
|
|
my $dateobj = C4::Dates->new();
|
|
|
|
my $filter = Koha::Template::Plugin::KohaDates->new();
|
|
ok ($filter, "new()");
|
|
|
|
|
|
$context->set_preference( "dateformat", 'iso' );
|
|
$context->clear_syspref_cache();
|
|
$dateobj->reset_prefformat;
|
|
|
|
my $filtered_date = $filter->filter($date);
|
|
is ($filtered_date,$date, "iso conversion") or diag ("iso conversion fails");
|
|
|
|
#$filter = Koha::Template::Plugin::KohaDates->new();
|
|
$context->set_preference( "dateformat", 'us' );
|
|
$context->clear_syspref_cache();
|
|
$dateobj->reset_prefformat;
|
|
|
|
$filtered_date = $filter->filter($date);
|
|
is ($filtered_date,'05/21/1973', "us conversion") or diag ("us conversion fails $filtered_date");
|
|
|
|
$context->set_preference( "dateformat", 'metric' );
|
|
$context->clear_syspref_cache();
|
|
$dateobj->reset_prefformat;
|
|
|
|
$filtered_date = $filter->filter($date);
|
|
is ($filtered_date,'21/05/1973', "metric conversion") or diag ("metric conversion fails $filtered_date");
|