Bug 36473: Unit tests

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
[EDIT] Tidied.
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit 9e9cc822cb)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
(cherry picked from commit d80334a108)
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
Laura Escamilla 2024-04-02 13:43:00 +00:00 committed by Lucas Gass
parent 2c3dacad48
commit 0505085ea9
1 changed files with 22 additions and 1 deletions

View File

@ -17,7 +17,7 @@
use Modern::Perl;
use Test::More tests => 20;
use Test::More tests => 21;
use Test::MockModule;
use Test::Warn;
use List::MoreUtils qw( uniq );
@ -1022,6 +1022,27 @@ subtest 'ModBiblio on invalid record' => sub {
);
};
subtest 'UpdateTotalIssues on Invalid record' => sub {
plan tests => 2;
my $return_record = Test::MockModule->new('Koha::Biblio::Metadata');
$return_record->mock( 'record', sub { Koha::Exceptions::Metadata::Invalid->throw() } );
my $biblio = $builder->build_sample_biblio;
my $increase = 1;
my $success;
warning_is {
$success = C4::Biblio::UpdateTotalIssues( $biblio->biblionumber, $increase, '' );
}
"UpdateTotalIssues could not get biblio record", "Expected warning found";
ok( !$success, 'UpdateTotalIssues fails gracefully for invalid record' );
};
# Cleanup
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" );
$schema->storage->txn_rollback;