gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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 <roman.dolny@jezuici.pl>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Thomas Klausner 2025-04-22 19:25:46 +00:00 committed by Katrin Fischer
parent 29cd3022ac
commit 8bc4ea1418
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
t/db_dependent/Authority/Merge.t
View File

@ -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 {