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

Bug 29759: Unit tests

Browse source 
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Tomás Cohen Arazi 2021-12-22 18:17:10 -03:00 committed by Fridolin Somers
parent 331af91c48
commit f0886ce27c
1 changed files with 27 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
t/db_dependent/Koha/ArticleRequest.t
View file

@ -156,19 +156,40 @@ subtest 'complete() tests' => sub {
subtest 'cancel() tests' => sub {
plan tests => 4;
plan tests => 11;
$schema->storage->txn_begin;
my $amount = 11;
my $patron_mock = Test::MockModule->new('Koha::Patron');
$patron_mock->mock( 'article_request_fee', sub { return $amount; } );
my $patron = $builder->build_object({ class => 'Koha::Patrons' });
my $item = $builder->build_sample_item;
my $ar_mock = Test::MockModule->new('Koha::ArticleRequest');
$ar_mock->mock( 'notify', sub { ok( 1, '->notify() called' ); } );
my $ar = $builder->build_object(
{ class => 'Koha::ArticleRequests',
value => { status => Koha::ArticleRequest::Status::Requested }
my $ar = Koha::ArticleRequest->new(
{
borrowernumber => $patron->id,
biblionumber => $item->biblionumber,
itemnumber => $item->id,
}
);
$ar->request()->discard_changes;
is( $ar->status, Koha::ArticleRequest::Status::Requested );
is( $ar->itemnumber, $item->id, 'itemnumber set' );
ok( defined $ar->debit_id, 'Fee linked' );
is( $patron->account->balance, $amount, 'Outstanding fees with the right value' );
my $payed_amount = 5;
$patron->account->pay({ amount => $payed_amount, interface => 'intranet', lines => [ $ar->debit ] });
is( $patron->account->balance, $amount - $payed_amount, 'Outstanding fees with the right value' );
my $reason = "Hey, ho";
my $notes = "Let's go!";
@ -178,5 +199,7 @@ subtest 'cancel() tests' => sub {
is( $ar->cancellation_reason, $reason, 'Cancellation reason stored correctly' );
is( $ar->notes, $notes, 'Notes stored correctly' );
is( abs $patron->account->balance, $payed_amount, 'The patron has been refunded the right value' );
$schema->storage->txn_rollback;
};