From 837e7d102d3c14b292072f1264896b4d55a853b9 Mon Sep 17 00:00:00 2001 From: Arthur Suzuki Date: Tue, 19 Nov 2024 11:25:43 +0100 Subject: [PATCH] Bug 20551: (QA follow-up) perltidy and test fixes --- t/db_dependent/Exporter/Record.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/t/db_dependent/Exporter/Record.t b/t/db_dependent/Exporter/Record.t index fbf4227705c..09315c0af6f 100755 --- a/t/db_dependent/Exporter/Record.t +++ b/t/db_dependent/Exporter/Record.t @@ -79,8 +79,8 @@ if ( $marcflavour eq 'UNIMARC' ) { my $deleted_biblio = MARC::Record->new(); $deleted_biblio->leader('00136nam a22000617a 4500'); $deleted_biblio->append_fields( - MARC::Field->new( '100', ' ', ' ', a => 'Chopra, Deepak' ), - MARC::Field->new( '245', ' ', ' ', a => 'The seven spiritual laws of success' ), + MARC::Field->new( '100', ' ', ' ', a => 'Chopra, Deepak' ), + MARC::Field->new( $title_field_tag, ' ', ' ', a => 'The seven spiritual laws of success' ), ); my ($deleted_biblionumber) = AddBiblio( $deleted_biblio, '' ); DelBiblio($deleted_biblionumber); @@ -206,7 +206,7 @@ subtest 'export xml' => sub { # Leader has the expected value (and record status "d", length may have # changed) - ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' ); + ok( $deleted_record->leader =~ '\d{5}dam a22000\d{2}7a 4500', 'Deleted record has the expected leader value' ); }; subtest 'export iso2709' => sub { @@ -242,7 +242,7 @@ subtest 'export iso2709' => sub { # Leader has the expected value (and record status "d", length may have # changed) - ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' ); + ok( $deleted_record->leader =~ '\d{5}dam a22000\d{2}7a 4500', 'Deleted record has the expected leader value' ); }; subtest 'export without record_type' => sub { -- 2.39.5