@@ -, +, @@ --- t/db_dependent/Letters/TemplateToolkit.t | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) --- a/t/db_dependent/Letters/TemplateToolkit.t +++ a/t/db_dependent/Letters/TemplateToolkit.t @@ -19,7 +19,7 @@ # along with Koha; if not, see . use Modern::Perl; -use Test::More tests => 27; +use Test::More tests => 28; use Test::MockModule; use Test::Warn; @@ -1082,6 +1082,28 @@ 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 'Handle includes' => sub { + plan tests => 1; + my $cgi = CGI->new(); + my $code = 'TEST_INCLUDE'; + my $account = + $builder->build_object( { class => 'Koha::Account::Lines', value => { credit_type_code => 'PAYMENT', status => 'CANCELLED' } } ); + my $template = < $template, code => $code, module => 'test' }); + my $letter = GetPreparedLetter( + module => 'test', + letter_code => $code, + tables => { + credits => $account->accountlines_id + } + ); + is($letter->{content},' Payment (Cancelled) ', "Include used in notice"); +}; + subtest 'Dates formatting' => sub { plan tests => 1; my $code = 'TEST_DATE'; --