From a630acd7204124b4d4e0ecedf02fde838c8dee0b Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 14 Dec 2018 12:47:11 -0300 Subject: [PATCH] Bug 21065: Add tests Signed-off-by: Martin Renvoize Signed-off-by: Nick Clemens (cherry picked from commit 09ef91653bc8e0349d4e8613482251d7e3c165b5) Signed-off-by: Martin Renvoize (cherry picked from commit 554cee5b3cc8c5f10ab0e252bedeb351e2b2799d) Conflicts: t/db_dependent/Koha/Account/Lines.t Signed-off-by: Lucas Gass --- t/db_dependent/Koha/Account/Lines.t | 29 ++++++++++++++++++++++++++++- 1 file changed, 28 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Koha/Account/Lines.t b/t/db_dependent/Koha/Account/Lines.t index 11c8df121f..4b795bdb5e 100755 --- a/t/db_dependent/Koha/Account/Lines.t +++ b/t/db_dependent/Koha/Account/Lines.t @@ -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; +}; -- 2.20.1