From d028a5281e3a3e3b6465eec242696fd0a1940f3d 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 --- 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 ec0743f3e7..7ca3b0f8bb 100755 --- a/t/db_dependent/Koha/Account/Lines.t +++ b/t/db_dependent/Koha/Account/Lines.t @@ -273,17 +273,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, @@ -293,6 +301,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.17.2 (Apple Git-113)