From 639525f08c186d35946af1716fd4c79bd5261eea 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 6f55a8a93e..14c7511226 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 => 19; +use Test::More tests => 20; use Test::MockModule; use Test::Warn; @@ -1166,3 +1166,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.24.2 (Apple Git-127)