From 837e34fb39214039ba6d204df6dae84a74488ed4 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 2 Dec 2016 15:52:10 +0000 Subject: [PATCH] Bug 15969 - Add unit test of substitution param Signed-off-by: Nick Clemens --- t/db_dependent/Letters/TemplateToolkit.t | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Letters/TemplateToolkit.t b/t/db_dependent/Letters/TemplateToolkit.t index 611b936..3423ce6 100644 --- a/t/db_dependent/Letters/TemplateToolkit.t +++ b/t/db_dependent/Letters/TemplateToolkit.t @@ -19,7 +19,7 @@ # along with Koha; if not, see . use Modern::Perl; -use Test::More tests => 17; +use Test::More tests => 18; use Test::Warn; use MARC::Record; @@ -934,3 +934,15 @@ sub process_letter { ); return $letter; } + +$sth->execute( "TEST_SUBSTITUTION", "[% SubstituteMe %]" ); +$prepared_letter = GetPreparedLetter( + ( + module => 'test', + letter_code => 'TEST_SUBSTITUTION', + substitute => { + SubstituteMe => 'Substituted' + } + ) +); +is( $prepared_letter->{content}, 'Substituted', 'Substitution works correctly' ); -- 2.10.2