From 9e292a1bf87b9402d28ddab54f610278b552a41f Mon Sep 17 00:00:00 2001 From: Aleisha Amohia Date: Thu, 3 Nov 2022 01:12:11 +0000 Subject: [PATCH] Bug 30358: (follow-up) Fixing ModBiblioMarc.t tests Signed-off-by: David Nind --- C4/Biblio.pm | 1 + t/db_dependent/Biblio/ModBiblioMarc.t | 6 ++++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 10299c2c35..71000916a6 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -113,6 +113,7 @@ use Koha::SearchEngine; use Koha::SearchEngine::Indexer; use Koha::Libraries; use Koha::Util::MARC; +use Koha::MetadataRecord; =head1 NAME diff --git a/t/db_dependent/Biblio/ModBiblioMarc.t b/t/db_dependent/Biblio/ModBiblioMarc.t index 5e33cd23e2..e049598da9 100755 --- a/t/db_dependent/Biblio/ModBiblioMarc.t +++ b/t/db_dependent/Biblio/ModBiblioMarc.t @@ -63,14 +63,16 @@ subtest "StripWhitespaceChars tests" => sub { is( $title, " My\ntitle\n", 'Title has whitespace characters' ); C4::Biblio::ModBiblioMarc( $record, $biblio->biblionumber ); - my $savedrec = C4::Biblio::GetMarcBiblio({ biblionumber => $biblio->biblionumber }); + $biblio = Koha::Biblios->find( $biblio->biblionumber ); + my $savedrec = $biblio->metadata->record; my $savedtitle = $savedrec->title; is( $savedtitle, " My\ntitle\n", "Title still has whitespace characters because StripWhitespaceChars is disabled" ); t::lib::Mocks::mock_preference('StripWhitespaceChars', 1); C4::Biblio::ModBiblioMarc( $record, $biblio->biblionumber ); - my $amendedrec = C4::Biblio::GetMarcBiblio({ biblionumber => $biblio->biblionumber }); + $biblio = Koha::Biblios->find( $biblio->biblionumber ); + my $amendedrec = $biblio->metadata->record; my $amendedtitle = $amendedrec->title; is( $amendedtitle, "My title", "Whitespace characters removed from title because StripWhitespaceChars is enabled" ); }; -- 2.30.2