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>
This commit is contained in:
Kyle M Hall 2024-03-28 06:36:25 -04:00 committed by Katrin Fischer
parent 22d51cdd07
commit 9c731a75a9
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 8 additions and 1 deletions

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;