@@ -, +, @@ newlines --- t/db_dependent/Biblio/ModBiblioMarc.t | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) --- a/t/db_dependent/Biblio/ModBiblioMarc.t +++ a/t/db_dependent/Biblio/ModBiblioMarc.t @@ -49,24 +49,24 @@ subtest "Check MARC field length calculation" => sub { subtest "StripWhitespaceChars tests" => sub { plan tests => 3; - t::lib::Mocks->mock_preference('marcflavour', 'MARC21'); - t::lib::Mocks->mock_preference('StripWhitespaceChars', 0); + t::lib::Mocks::mock_preference('marcflavour', 'MARC21'); + t::lib::Mocks::mock_preference('StripWhitespaceChars', 0); my $biblio = t::lib::TestBuilder->new->build_sample_biblio; my $record = MARC::Record->new; $record->append_fields( - MARC::Field->new( '245', '', '', a => " My title\n" ), + MARC::Field->new( '245', '', '', a => " My\ntitle\n" ), ); my $title = $record->title; - is( $title, " My title\n", 'Title has whitespace characters' ); + is( $title, " My\ntitle\n", 'Title has whitespace characters' ); C4::Biblio::ModBiblioMarc( $record, $biblio->biblionumber ); my $savedrec = C4::Biblio::GetMarcBiblio({ biblionumber => $biblio->biblionumber }); my $savedtitle = $savedrec->title; - is( $savedtitle, " My title\n", "Title still has whitespace characters because StripWhitespaceChars is disabled" ); + is( $savedtitle, " My\ntitle\n", "Title still has whitespace characters because StripWhitespaceChars is disabled" ); - t::lib::Mocks->mock_preference('StripWhitespaceChars', 1); + t::lib::Mocks::mock_preference('StripWhitespaceChars', 1); C4::Biblio::ModBiblioMarc( $record, $biblio->biblionumber ); my $amendedrec = C4::Biblio::GetMarcBiblio({ biblionumber => $biblio->biblionumber }); --