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

Bug 21065: Add tests

Browse source 
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2018-12-14 12:47:11 -03:00 committed by Nick Clemens
parent 64242cabea
commit 09ef91653b
1 changed files with 28 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
t/db_dependent/Koha/Account/Lines.t
View file

@ -19,7 +19,7 @@
use Modern::Perl;
use Test::More tests => 4;
use Test::More tests => 5;
use Test::Exception;
use Koha::Account;
@ -268,3 +268,30 @@ subtest 'apply() tests' => sub {
$schema->storage->txn_rollback;
};
subtest 'Keep account info when a patron is deleted' => sub {
plan tests => 2;
$schema->storage->txn_begin;
my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
my $item = $builder->build_object({ class => 'Koha::Items' });
my $line = Koha::Account::Line->new(
{
borrowernumber => $patron->borrowernumber,
itemnumber => $item->itemnumber,
accounttype => "F",
amount => 10,
})->store;
$item->delete;
$line = $line->get_from_storage;
is( $line->itemnumber, undef, "The account line should not be deleted when the related item is delete");
$patron->delete;
$line = $line->get_from_storage;
is( $line->borrowernumber, undef, "The account line should not be deleted when the related patron is delete");
$schema->storage->txn_rollback;
};