Bug 36159: Add unit test

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit 9c731a75a9)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Kyle Hall 2024-03-28 06:36:25 -04:00 committed by Fridolin Somers
parent a9cea8a6c0
commit c9379ddd00

View file

@ -1608,7 +1608,7 @@ $retrieved_patron_1->delete;
is( Koha::Patrons->search->count, $nb_of_patrons - 1, 'Delete should have deleted the patron' );
subtest 'BorrowersLog tests' => sub {
plan tests => 4;
plan tests => 5;
t::lib::Mocks::mock_preference( 'BorrowersLog', 1 );
my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
@ -1627,6 +1627,13 @@ subtest 'BorrowersLog tests' => sub {
$patron->update_lastseen('connection');
@logs = $schema->resultset('ActionLog')->search( { module => 'MEMBERS', action => 'MODIFY', object => $patron->borrowernumber } );
is( scalar @logs, 1, 'With BorrowerLogs and TrackLastPatronActivityTriggers we should not spam the logs');
Koha::ActionLogs->search()->delete();
$patron->get_from_storage();
$patron->set( { debarred => "" });
$patron->store;
my $log = Koha::ActionLogs->search( { module => 'MEMBERS', action => 'MODIFY', object => $patron->borrowernumber } )->next;
isnt( defined $log, "No action log generated where incoming changed column is empty string and value in storage is NULL" );
};
$schema->storage->txn_rollback;