From 02ae18522e17437fe57641c7722f0da885f9eb9f Mon Sep 17 00:00:00 2001 From: Janusz Kaczmarek Date: Mon, 9 Mar 2026 17:18:25 +0000 Subject: [PATCH] Bug 42039: Unit tests Signed-off-by: Roman Dolny --- t/db_dependent/Biblio.t | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Biblio.t b/t/db_dependent/Biblio.t index bca89014a2..4b204e6c78 100755 --- a/t/db_dependent/Biblio.t +++ b/t/db_dependent/Biblio.t @@ -785,11 +785,13 @@ subtest 'IsMarcStructureInternal' => sub { }; subtest 'deletedbiblio_metadata' => sub { - plan tests => 2; + plan tests => 3; t::lib::Mocks::mock_preference( 'RealTimeHoldsQueue', 0 ); - my ( $biblionumber, $biblioitemnumber ) = AddBiblio( MARC::Record->new, '' ); + my $record_new = MARC::Record->new; + $record_new->leader( substr( $record_new->leader, 0, 5 ) . 'n' . substr( $record_new->leader, 6 ) ); + my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $record_new, '' ); my $biblio_metadata = C4::Biblio::GetXmlBiblio($biblionumber); C4::Biblio::DelBiblio($biblionumber); my ($moved) = @@ -800,6 +802,13 @@ subtest 'deletedbiblio_metadata' => sub { $biblionumber ); is( $moved, $biblionumber, 'Found in deletedbiblio_metadata' ); + my $record_deleted = MARC::Record::new_from_xml( + $schema->resultset('DeletedbiblioMetadata')->find( { biblionumber => $biblionumber } )->metadata ); + is( + substr( $record_deleted->leader, 5, 1 ), + 'd', 'LDR/5 = "d" for deleted biblio record' + ); + }; subtest 'DelBiblio' => sub { -- 2.39.5