View | Details | Raw Unified | Return to bug 39700
Collapse All | Expand All

(-)a/t/db_dependent/Authority/Merge.t (-3 / +2 lines)
Lines 697-703 subtest 'ModBiblio calls from merge' => sub { Link Here
697
    my $biblio_record = MARC::Record->new();
697
    my $biblio_record = MARC::Record->new();
698
    $biblio_record->insert_fields_ordered(
698
    $biblio_record->insert_fields_ordered(
699
        MARC::Field->new( '609', '1', '1', a => 'Brown,', 'c' => 'Father', 9 => $authid ) );
699
        MARC::Field->new( '609', '1', '1', a => 'Brown,', 'c' => 'Father', 9 => $authid ) );
700
    my $biblionumber = AddBiblio( $biblio_record, '', { skip_record_index => 1 } );
700
    my ($biblionumber) = AddBiblio( $biblio_record, '', { skip_record_index => 1 } );
701
701
702
    my $biblio_module = Test::MockModule->new('C4::AuthoritiesMarc');
702
    my $biblio_module = Test::MockModule->new('C4::AuthoritiesMarc');
703
    $biblio_module->mock(
703
    $biblio_module->mock(
Lines 748-754 subtest 'ModBiblio calls from merge' => sub { Link Here
748
    my $biblio_record2 = MARC::Record->new();
748
    my $biblio_record2 = MARC::Record->new();
749
    $biblio_record2->insert_fields_ordered(
749
    $biblio_record2->insert_fields_ordered(
750
        MARC::Field->new( '109', '1', ' ', a => 'Chesterton, G.K.', 9 => $authid2 ) );
750
        MARC::Field->new( '109', '1', ' ', a => 'Chesterton, G.K.', 9 => $authid2 ) );
751
    my $biblionumber2 = AddBiblio( $biblio_record2, '', { skip_record_index => 1 } );
751
    my ($biblionumber2) = AddBiblio( $biblio_record2, '', { skip_record_index => 1 } );
752
752
753
    my $num_biblio_edited;
753
    my $num_biblio_edited;
754
    warnings_are {
754
    warnings_are {
755
- 

Return to bug 39700