use Modern::Perl;
-use Test::More tests => 4;
+use Test::More tests => 5;
use Test::Exception;
use Koha::Account;
$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;
+};