Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 21824: Add tests

Browse source 
Signed-off-by: Bouzid Fergani <bouzid.fergani@inlibro.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Jonathan Druart 2018-12-13 18:24:32 -03:00 committed by Martin Renvoize
parent 1bb3ed4f5b
commit 7ddedd7b42
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F
1 changed files with 51 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
t/db_dependent/Letters/TemplateToolkit.t
View file

@ -19,7 +19,7 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use Test::More tests => 18;
use Test::More tests => 19;
use Test::MockModule;
use Test::Warn;
@ -1060,6 +1060,56 @@ subtest 'add_tt_filters' => sub {
is( $letter->{content}, $expected_letter, "Pre-processing should call TT plugin to remove punctuation if table is biblio or biblioitems");
};
subtest 'Dates formatting' => sub {
plan tests => 1;
my $code = 'TEST_DATE';
t::lib::Mocks::mock_preference('dateformat', 'metric'); # MM/DD/YYYY
my $biblio = $builder->build_object(
{
class => 'Koha::Biblios',
value => {
timestamp => '2018-12-13 20:21:22',
datecreated => '2018-12-13'
}
}
);
my $template = <<EOF;
[%- USE KohaDates -%]
[% biblio.timestamp %]
[% biblio.timestamp | \$KohaDates %]
[% biblio.timestamp | \$KohaDates with_hours => 1 %]
[% biblio.datecreated %]
[% biblio.datecreated | \$KohaDates %]
[% biblio.datecreated | \$KohaDates with_hours => 1 %]
[% biblio.timestamp | \$KohaDates dateformat => 'iso' %]
[% KohaDates.output_preference( str => biblio.timestamp, dateformat => 'iso' ) %]
[% KohaDates.output_preference( str => biblio.timestamp, dateformat => 'iso', dateonly => 1 ) %]
EOF
reset_template({ template => $template, code => $code, module => 'test' });
my $letter = GetPreparedLetter(
module => 'test',
letter_code => $code,
tables => {
biblio => $biblio->biblionumber,
}
);
my $expected_content = sprintf("%s\n%s\n%s\n\n%s\n%s\n%s\n\n%s\n%s\n%s\n",
'2018-12-13 20:21:22',
'13/12/2018',
'13/12/2018 20:21',
'2018-12-13',
'13/12/2018',
'13/12/2018 00:00',
'2018-12-13',
'2018-12-13 20:21',
'2018-12-13',
);
is( $letter->{content}, $expected_content );
};
sub reset_template {
my ( $params ) = @_;