From 822e6a9bf36ddbd60d0e493b0894a38c0ae7efb9 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Wed, 5 May 2021 18:20:05 +0000 Subject: [PATCH] Bug 27577: Unit test --- t/db_dependent/Biblio.t | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Biblio.t b/t/db_dependent/Biblio.t index 5d59de3de0..feac71d8eb 100755 --- a/t/db_dependent/Biblio.t +++ b/t/db_dependent/Biblio.t @@ -44,7 +44,7 @@ Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" ); my $builder = t::lib::TestBuilder->new; subtest 'AddBiblio' => sub { - plan tests => 4; + plan tests => 5; my $marcflavour = 'MARC21'; t::lib::Mocks::mock_preference( 'marcflavour', $marcflavour ); @@ -67,6 +67,19 @@ subtest 'AddBiblio' => sub { ); is( Koha::Biblios->count, $nb_biblios, 'No biblio should have been added if something went wrong' ); + + t::lib::Mocks::mock_preference( 'BiblioAddsAuthorities', $marcflavour ); + t::lib::Mocks::mock_preference( 'AutoCreateAuthorities', $marcflavour ); + + my $mock_biblio = Test::MockModule->new("C4::Biblio"); + $mock_biblio->mock( BiblioAutoLink => sub { + my $record = shift; + my $frameworkcode = shift; + warn "My biblionumber is ".$record->subfield('999','c')." and my frameworkcode is $frameworkcode"; + }); + warning_like { $builder->build_sample_biblio(); } + qr/My biblionumber is \d+ and my frameworkcode is /, "The biblionumber is correctly passed to BiblioAutoLink"; + }; subtest 'GetMarcSubfieldStructureFromKohaField' => sub { -- 2.11.0