From b489320ce7157b828a21e7504071106d93b8d899 Mon Sep 17 00:00:00 2001 From: David Gustafsson Date: Thu, 22 Jul 2021 16:22:58 +0200 Subject: [PATCH] Bug 20551: Fix tests --- t/db_dependent/Exporter/Record.t | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/t/db_dependent/Exporter/Record.t b/t/db_dependent/Exporter/Record.t index 8e65ce74db..e488b7aca7 100755 --- a/t/db_dependent/Exporter/Record.t +++ b/t/db_dependent/Exporter/Record.t @@ -28,7 +28,7 @@ use MARC::Batch; use File::Slurp; use Encode; -use C4::Biblio qw( AddBiblio ); +use C4::Biblio qw( AddBiblio DelBiblio ); use C4::Context; use Koha::Database; use Koha::Biblio; @@ -175,8 +175,10 @@ subtest 'export xml' => sub { is( $title, $biblio_2_title, 'Export XML: The title is correctly encoded' ); my $deleted_record = $records[2]; - # Leader has the expected value (and record status "d") - is( $deleted_record->leader, '00136dam a22000617a 4500', 'Deleted record has the correct leader value' ); + + # 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' ); }; subtest 'export iso2709' => sub { @@ -207,8 +209,9 @@ subtest 'export iso2709' => sub { is( $title, $biblio_2_title, 'Export ISO2709: The title is correctly encoded' ); my $deleted_record = $records[2]; - # Leader has the expected value (and record status "d") - is( $deleted_record->leader, '00136dam a22000617a 4500', 'Deleted record has the correct leader value' ); + # 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' ); }; subtest 'export without record_type' => sub { -- 2.20.1