From 5ac8560b17277653fe7f136ad0cdc5c1b8f6e961 Mon Sep 17 00:00:00 2001 From: Alex Arnaud Date: Wed, 19 Oct 2022 14:36:18 +0000 Subject: [PATCH] Bug 31858: unit tests --- t/db_dependent/Letters.t | 53 +++++++++++++++++++++++++++++++++++++++- 1 file changed, 52 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Letters.t b/t/db_dependent/Letters.t index 814d5e60e9..9251c149e3 100755 --- a/t/db_dependent/Letters.t +++ b/t/db_dependent/Letters.t @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use Test::More tests => 85; +use Test::More tests => 86; use Test::MockModule; use Test::Warn; use Test::Exception; @@ -343,6 +343,57 @@ is( $prepared_letter->{content}, q|And also this one:| . output_pref({ dt => $ye $dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('claimacquisition','TESTACQCLAIM','Acquisition Claim','Item Not Received','<>|<>|Ordernumber <> (<>) (<> ordered)');}); $dbh->do(q{INSERT INTO letter (module, code, name, title, content) VALUES ('orderacquisition','TESTACQORDER','Acquisition Order','Order','<>|<>|Ordernumber <> (<>) (<> ordered) Basket name: [% basket.basketname %]');}); +my $testacqorder2_content = <do("INSERT INTO letter (module, code, name, title, content) VALUES ('orderacquisition','TESTACQORDER2','Acquisition Order','Order','$testacqorder2_content');"); + +my $popito = $builder->build({ + source => 'Aqbookseller', + value => { name => 'Popito' } +}); + +my $order_1 = $builder->build({ + source => 'Aqorder', + value => { + quantity => 2, + listprice => '12.00' + } +}); + +my $order_2 = $builder->build({ + source => 'Aqorder', + value => { + quantity => 1, + listprice => '23.50' + } +}); + +$prepared_letter = GetPreparedLetter(( + module => 'orderacquisition', + branchcode => '', + letter_code => 'TESTACQORDER2', + tables => { 'aqbooksellers' => $popito->{id} }, + loops => { + aqorders => [ $order_1->{ordernumber}, $order_2->{ordernumber} ] + } +)); + +my $testacqorder2_expected = qq|Popito + +Ordernumber | . $order_1->{ordernumber} . qq| 2 12.00 + +Ordernumber | . $order_2->{ordernumber} . qq| 1 23.50 + +|; + +is($prepared_letter->{content}, $testacqorder2_expected); + # Test that _parseletter doesn't modify its parameters bug 15429 { my $values = { dateexpiry => '2015-12-13', }; -- 2.30.2