From 454e8152120ed78ad6cacf9c729f16d9b76b0e75 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 4 Nov 2016 10:40:38 +0000 Subject: [PATCH] Bug 15896 - Unit Tests --- t/db_dependent/Accounts.t | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/Accounts.t b/t/db_dependent/Accounts.t index afbe8e9..68efb76 100644 --- a/t/db_dependent/Accounts.t +++ b/t/db_dependent/Accounts.t @@ -56,13 +56,13 @@ $schema->storage->txn_begin; my $dbh = C4::Context->dbh; my $builder = t::lib::TestBuilder->new; -my $library = $builder->build({ source => 'Branch' }); +my $library = $builder->build( { source => 'Branch' } ); $dbh->do(q|DELETE FROM accountlines|); $dbh->do(q|DELETE FROM issues|); $dbh->do(q|DELETE FROM borrowers|); -my $branchcode = $library->{branchcode}; +my $branchcode = $library->{branchcode}; my $borrower_number; my $context = new Test::MockModule('C4::Context'); @@ -138,7 +138,7 @@ $dbh->do(q|DELETE FROM accountlines|); subtest "Koha::Account::pay tests" => sub { - plan tests => 10; + plan tests => 12; # Create a borrower my $categorycode = $builder->build({ source => 'Category' })->{ categorycode }; @@ -225,6 +225,7 @@ subtest "Koha::Account::pay tests" => sub { $amountleft += $line; } is($amountleft, 160, 'The account has $160 as expected' ); + # Is the payment note well registered $sth = $dbh->prepare("SELECT note FROM accountlines WHERE borrowernumber=? ORDER BY accountlines_id DESC LIMIT 1"); $sth->execute($borrower->borrowernumber); @@ -244,11 +245,19 @@ subtest "Koha::Account::pay tests" => sub { $amountleft += $line; } is($amountleft, -40, 'The account has -$40 as expected, (credit situation)' ); + # Is the payment note well registered $sth = $dbh->prepare("SELECT note FROM accountlines WHERE borrowernumber=? ORDER BY accountlines_id DESC LIMIT 1"); $sth->execute($borrower->borrowernumber); $note = $sth->fetchrow_array; is($note,'$200.00 payment note', '$200.00 payment note is registered'); + + my $line3 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 42 })->store(); + my $payment_id = $account->pay( { accountlines_id => $line3->id, amount => 42 } ); + my $payment = Koha::Account::Lines->find( $payment_id ); + is( $payment->amount(), '-42.000000', "Payment paid the specified fine" ); + $line3 = Koha::Account::Lines->find( $line3->id ); + is( $line3->amountoutstanding, '0.000000', "Specified fine is paid" ); }; subtest "makepayment() tests" => sub { -- 2.1.4