gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 21065: Add tests 

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

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit 09ef91653b)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit 554cee5b3c)

Conflicts:
	t/db_dependent/Koha/Account/Lines.t

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2018-12-14 12:47:11 -03:00 committed by Lucas Gass
parent 61784f5e26
commit a630acd720
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 => 2;
use Test::More tests => 3;
use Koha::Account::Lines;
use Koha::Items;
@ -128,3 +128,30 @@ subtest 'total_outstanding' => 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;
};