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

Bug 17894 - Add unit tests

Browse source 
Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Kyle Hall 2017-01-12 14:41:53 +00:00
parent c718ad6375
commit 595c251b59
1 changed files with 43 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
t/db_dependent/Accounts.t
View file

@ -18,7 +18,7 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 21; use Test::More tests => 22;
use Test::MockModule; use Test::MockModule;
use Test::Warn; use Test::Warn;
@ -303,6 +303,48 @@ subtest "Koha::Account::pay particular line tests" => sub {
is( $line4->amountoutstanding, "4.000000", "Line 4 was not paid" ); is( $line4->amountoutstanding, "4.000000", "Line 4 was not paid" );
}; };
subtest "Koha::Account::pay writeoff tests" => sub {
plan tests => 5;
# Create a borrower
my $categorycode = $builder->build({ source => 'Category' })->{ categorycode };
my $branchcode = $builder->build({ source => 'Branch' })->{ branchcode };
my $borrower = Koha::Patron->new( {
cardnumber => 'chelseahall',
surname => 'Hall',
firstname => 'Chelsea',
} );
$borrower->categorycode( $categorycode );
$borrower->branchcode( $branchcode );
$borrower->store;
my $account = Koha::Account->new({ patron_id => $borrower->id });
my $line = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 42 })->store();
is( $account->balance(), "42.000000", "Account balance is 42" );
my $id = $account->pay(
{
lines => [$line],
amount => 42,
type => 'writeoff',
}
);
$line->_result->discard_changes();
is( $line->amountoutstanding, "0.000000", "Line was written off" );
my $writeoff = Koha::Account::Lines->find( $id );
is( $writeoff->accounttype, 'W', 'Type is correct' );
is( $writeoff->description, 'Writeoff', 'Description is correct' );
is( $writeoff->amount, '-42.000000', 'Amount is correct' );
};
subtest "More Koha::Account::pay tests" => sub { subtest "More Koha::Account::pay tests" => sub {
plan tests => 6; plan tests => 6;