From 47346ebe3b585d58da2cde0d8f144f17877c4674 Mon Sep 17 00:00:00 2001 From: Lari Taskula Date: Wed, 17 Aug 2016 18:36:57 +0300 Subject: [PATCH] Bug 17140: Test to cover more rounding issues in fines calculations To test: 1. Run t/db_dependent/Members.t --- t/db_dependent/Members.t | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Members.t b/t/db_dependent/Members.t index 006207b..e06a0ed 100755 --- a/t/db_dependent/Members.t +++ b/t/db_dependent/Members.t @@ -398,9 +398,10 @@ is( Check_Userid( C4::Context->config('user'), '' ), 0, subtest 'GetMemberAccountRecords' => sub { - plan tests => 2; + plan tests => 3; my $borrowernumber = $builder->build({ source => 'Borrower' })->{ borrowernumber }; + my $borrowernumber2 = $builder->build({ source => 'Borrower' })->{ borrowernumber }; my $accountline_1 = $builder->build({ source => 'Accountline', value => { @@ -412,6 +413,17 @@ subtest 'GetMemberAccountRecords' => sub { my ($total,undef,undef) = GetMemberAccountRecords( $borrowernumber ); is( $total , 64.60, "Rounding works correctly in total calculation (single value)" ); + my $accountline_3 = $builder->build({ + source => 'Accountline', + value => { + borrowernumber => $borrowernumber2, + amountoutstanding => 1.14 + } + }); + + my ($total2,undef,undef) = GetMemberAccountRecords( $borrowernumber2 ); + ok($total2==1.14, "Rounding works correctly in total calculation (another single value)" ); + my $accountline_2 = $builder->build({ source => 'Accountline', value => { -- 1.9.1