Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 15905 - Update unit tests

Browse source 
Signed-off-by: Mark Tompsett <mtompset@hotmail.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Kyle Hall 2016-02-24 16:10:48 +00:00
parent c3685f041c
commit c439fc8f68
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
t/db_dependent/Accounts.t
View file

@ -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
@ -303,7 +303,7 @@ subtest "Koha::Account::pay particular line tests" => sub {
is( $line4->amountoutstanding, "4.000000", "Line 4 was not paid" );
};
subtest "makepayment() tests" => sub {
subtest "More Koha::Account::pay tests" => sub {
plan tests => 6;
@ -330,13 +330,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,