From d4478af1c6f5631f1ef7420afcdd3ffdfde8fc5a Mon Sep 17 00:00:00 2001 From: Josef Moravec Date: Fri, 22 Jun 2018 10:02:14 +0000 Subject: [PATCH] Bug 20271: (QA follow-up): Fix test ModBiblioMarc Test plan: prove t/db_dependent/Biblio/ModBiblioMarc.t Signed-off-by: Josef Moravec --- t/db_dependent/Biblio/ModBiblioMarc.t | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/t/db_dependent/Biblio/ModBiblioMarc.t b/t/db_dependent/Biblio/ModBiblioMarc.t index 3eaf4f7..b4f97cd 100644 --- a/t/db_dependent/Biblio/ModBiblioMarc.t +++ b/t/db_dependent/Biblio/ModBiblioMarc.t @@ -32,16 +32,20 @@ subtest "Check MARC field length calculation" => sub { plan tests => 3; t::lib::Mocks->mock_preference( 'marcflavour', 'MARC21' ); - - my $biblio = t::lib::TestBuilder->new->build({ source => 'Biblio' }); + my $biblioitem = t::lib::TestBuilder->new->build( + { source => 'Biblioitem', + value => { + 'deleted_on' => undef, + } + }); my $record = MARC::Record->new; $record->append_fields( MARC::Field->new( '100', '', '', a => 'My title' ), ); is( $record->leader, ' 'x24, 'No leader lengths' ); - C4::Biblio::ModBiblioMarc( $record, $biblio->{biblionumber}, '' ); - my $savedrec = C4::Biblio::GetMarcBiblio({ biblionumber => $biblio->{biblionumber} }); + C4::Biblio::ModBiblioMarc( $record, $biblioitem->{biblionumber}, '' ); + my $savedrec = C4::Biblio::GetMarcBiblio({ biblionumber => $biblioitem->{biblionumber} }); like( substr($savedrec->leader,0,5), qr/^\d{5}$/, 'Record length found' ); like( substr($savedrec->leader,12,5), qr/^\d{5}$/, 'Base address found' ); }; -- 2.1.4