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

Bug 32442: Add tests

Browse source 
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Jonathan Druart 2022-12-14 08:31:01 +01:00 committed by Tomas Cohen Arazi
parent 37302e71fc
commit 6d07a1cd8c
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F
1 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3,7 +3,7 @@
# This file is part of Koha. # This file is part of Koha.
# #
# Copyright (C) 2016 ByWater Solutions # Copyright (C) 2016 ByWater Solutions
# Copyright (C) 2017 Koha Development Team # Copyright (C) 2022 Koha Development Team
# #
# Koha is free software; you can redistribute it and/or modify it # Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by # under the terms of the GNU General Public License as published by
@ -19,7 +19,7 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>. # along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl; use Modern::Perl;
use Test::More tests => 30; use Test::More tests => 31;
use Test::MockModule; use Test::MockModule;
use Test::Warn; use Test::Warn;
@ -1207,6 +1207,21 @@ EOF
my $branchcode = $library->branchcode; my $branchcode = $library->branchcode;
like($letter->{content}, qr{=$branchcode=}, 'content generated with the library'); like($letter->{content}, qr{=$branchcode=}, 'content generated with the library');
is( ref($library->get_from_storage), 'Koha::Library', 'calling ->delete on the object has not been comitted'); is( ref($library->get_from_storage), 'Koha::Library', 'calling ->delete on the object has not been comitted');
};
subtest '_process_letter croaks on parsing error' => sub {
plan tests => 1;
my $params = {
code => 'TEST_CROAK',
substitute => { count => 42 },
};
my $tt_template = q|[% IF %]|;
eval { process_letter( { template => $tt_template, %$params } ) };
like($@, qr{^ERROR PROCESSING TEMPLATE: });
}; };
sub reset_template { sub reset_template {