@@ -, +, @@ --- t/db_dependent/Accounts.t | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) --- a/t/db_dependent/Accounts.t +++ a/t/db_dependent/Accounts.t @@ -24,6 +24,7 @@ use Test::Warn; use t::lib::TestBuilder; +use Koha::Account; use Koha::Account::Lines; use Koha::Account::Line; @@ -36,7 +37,6 @@ BEGIN { can_ok( 'C4::Accounts', qw( - makepayment getnextacctno chargelostitem manualinvoice @@ -256,7 +256,7 @@ subtest "Koha::Account::pay tests" => sub { is($note,'$200.00 payment note', '$200.00 payment note is registered'); }; -subtest "makepayment() tests" => sub { +subtest "More Koha::Account::pay tests" => sub { plan tests => 6; @@ -283,13 +283,10 @@ subtest "makepayment() tests" => sub { is( $rs->count(), 1, 'Accountline created' ); + my $account = Koha::Account->new( { patron_id => $borrowernumber } ); + my $line = Koha::Account::Lines->find( $accountline->{ accountlines_id } ); # make the full payment - makepayment( - $accountline->{ accountlines_id }, $borrowernumber, - $accountline->{ accountno }, $amount, - $borrowernumber, $branch, 'A payment note' ); - - # TODO: someone should write actual tests for makepayment() + $account->pay({ lines => [$line], amount => $amount, library_id => $branch, note => 'A payment note' }); my $stat = $schema->resultset('Statistic')->search({ branch => $branch, --