From e0eab0f7712817056ceebc4eb3283363fa77e443 Mon Sep 17 00:00:00 2001 From: Thomas Klausner Date: Tue, 22 Apr 2025 19:25:46 +0000 Subject: [PATCH] Bug 39700: Fix test case t/db_dependent/Authority/Merge.t broken in 34739 Bug 34739 added some test cases to t/db_dependent/Authority/Merge.t which work when run as a standlone test, but fail when run with some other tests. This patch fixes the test. Test Plan: * Start KTD and enter a shell * Run only the single test: prove t/db_dependent/Authority/Merge.t * You should get "All test successful" * Now run two tests: prove t/db_dependent/Biblio.t t/db_dependent/Authority/Merge.t * You will get a FAIL: t/db_dependent/Authority/Merge.t (Wstat: 256 (exited 1) Tests: 14 Failed: 1) Failed test: 13 * Apply the patch * Again run two tests: prove t/db_dependent/Biblio.t t/db_dependent/Authority/Merge.t * You should get "All test successful" Sponsored by: HKS3 Signed-off-by: Roman Dolny --- t/db_dependent/Authority/Merge.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Authority/Merge.t b/t/db_dependent/Authority/Merge.t index 15ede67477..885e7fdaaf 100755 --- a/t/db_dependent/Authority/Merge.t +++ b/t/db_dependent/Authority/Merge.t @@ -697,7 +697,7 @@ subtest 'ModBiblio calls from merge' => sub { my $biblio_record = MARC::Record->new(); $biblio_record->insert_fields_ordered( MARC::Field->new( '609', '1', '1', a => 'Brown,', 'c' => 'Father', 9 => $authid ) ); - my $biblionumber = AddBiblio( $biblio_record, '', { skip_record_index => 1 } ); + my ($biblionumber) = AddBiblio( $biblio_record, '', { skip_record_index => 1 } ); my $biblio_module = Test::MockModule->new('C4::AuthoritiesMarc'); $biblio_module->mock( @@ -748,7 +748,7 @@ subtest 'ModBiblio calls from merge' => sub { my $biblio_record2 = MARC::Record->new(); $biblio_record2->insert_fields_ordered( MARC::Field->new( '109', '1', ' ', a => 'Chesterton, G.K.', 9 => $authid2 ) ); - my $biblionumber2 = AddBiblio( $biblio_record2, '', { skip_record_index => 1 } ); + my ($biblionumber2) = AddBiblio( $biblio_record2, '', { skip_record_index => 1 } ); my $num_biblio_edited; warnings_are { -- 2.39.5