@@ -, +, @@ prove -v t/db_dependent/Letters.t --- t/db_dependent/Letters.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) --- a/t/db_dependent/Letters.t +++ a/t/db_dependent/Letters.t @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use Test::More tests => 68; +use Test::More tests => 69; use Test::MockModule; use Test::Warn; @@ -331,6 +331,13 @@ is( $prepared_letter->{content}, q|This one only contains the date: | . output_p $dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('claimacquisition','TESTACQCLAIM','Acquisition Claim','Item Not Received','<>|<>|Ordernumber <> (<>) (<> ordered)');}); +# Test that _parseletter doesn't modify its parameters bug 15429 +{ + my $values = { dateexpiry => '2015-12-13', }; + C4::Letters::_parseletter($prepared_letter, 'borrowers', $values); + is( $values->{dateexpiry}, '2015-12-13', "_parseletter doesn't modify its parameters" ); +} + my $booksellerid = C4::Bookseller::AddBookseller( { name => "my vendor", --