From a53814395aff5fbeda824f39d701a2ee822f5328 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Wed, 27 Feb 2019 12:02:36 +0000 Subject: [PATCH] Bug 22008: Add tests for new constraints Signed-off-by: Kyle M Hall Signed-off-by: Josef Moravec --- t/db_dependent/Koha/Account/Lines.t | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Koha/Account/Lines.t b/t/db_dependent/Koha/Account/Lines.t index e5b5d9fe0b..bf5634a349 100755 --- a/t/db_dependent/Koha/Account/Lines.t +++ b/t/db_dependent/Koha/Account/Lines.t @@ -274,17 +274,25 @@ subtest 'apply() tests' => sub { $schema->storage->txn_rollback; }; -subtest 'Keep account info when a patron is deleted' => sub { +subtest 'Keep account info when related patron, staff or item is deleted' => sub { - plan tests => 2; + plan tests => 3; $schema->storage->txn_begin; my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); + my $staff = $builder->build_object( { class => 'Koha::Patrons' } ); my $item = $builder->build_object({ class => 'Koha::Items' }); + my $issue = $builder->build_object( + { + class => 'Koha::Checkout', + value => { itemnumber => $item->itemnumber } + } + ); my $line = Koha::Account::Line->new( { borrowernumber => $patron->borrowernumber, + manager_id => $staff->borrowernumber, itemnumber => $item->itemnumber, accounttype => "F", amount => 10, @@ -294,6 +302,10 @@ subtest 'Keep account info when a patron is deleted' => sub { $line = $line->get_from_storage; is( $line->itemnumber, undef, "The account line should not be deleted when the related item is delete"); + $staff->delete; + $line = $line->get_from_storage; + is( $line->manager_id, undef, "The account line should not be deleted when the related staff 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"); -- 2.11.0