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

(-)a/t/db_dependent/Biblio.t (-3 / +3 lines)
Lines 70-75 subtest 'AddBiblio' => sub { Link Here
70
70
71
    t::lib::Mocks::mock_preference( 'BiblioAddsAuthorities', $marcflavour );
71
    t::lib::Mocks::mock_preference( 'BiblioAddsAuthorities', $marcflavour );
72
    t::lib::Mocks::mock_preference( 'AutoCreateAuthorities', $marcflavour );
72
    t::lib::Mocks::mock_preference( 'AutoCreateAuthorities', $marcflavour );
73
    t::lib::Mocks::mock_preference( 'autoControlNumber', "OFF" );
73
74
74
    my $mock_biblio = Test::MockModule->new("C4::Biblio");
75
    my $mock_biblio = Test::MockModule->new("C4::Biblio");
75
    $mock_biblio->mock( BiblioAutoLink => sub {
76
    $mock_biblio->mock( BiblioAutoLink => sub {
Lines 835-846 subtest 'autoControlNumber tests' => sub { Link Here
835
    is($record->field('001'), undef, '001 not set when pref is off');
836
    is($record->field('001'), undef, '001 not set when pref is off');
836
837
837
    t::lib::Mocks::mock_preference('autoControlNumber', 'biblionumber');
838
    t::lib::Mocks::mock_preference('autoControlNumber', 'biblionumber');
838
    C4::Biblio::ModBiblio($record, $biblionumber, "", 1);
839
    C4::Biblio::ModBiblio($record, $biblionumber, "", { skip_record_index => 1, disable_autolink => 1 });
839
    $record = GetMarcBiblio({biblionumber => $biblionumber});
840
    $record = GetMarcBiblio({biblionumber => $biblionumber});
840
    is($record->field('001')->as_string(), $biblionumber, '001 set to biblionumber when pref set and field is blank');
841
    is($record->field('001')->as_string(), $biblionumber, '001 set to biblionumber when pref set and field is blank');
841
842
842
    $record->field('001')->update('Not biblionumber');
843
    $record->field('001')->update('Not biblionumber');
843
    C4::Biblio::ModBiblio($record, $biblionumber, "", 1);
844
    C4::Biblio::ModBiblio($record, $biblionumber, "", { skip_record_index => 1, disable_autolink => 1 });
844
    $record = GetMarcBiblio({biblionumber => $biblionumber});
845
    $record = GetMarcBiblio({biblionumber => $biblionumber});
845
    is($record->field('001')->as_string(), 'Not biblionumber', '001 not set to biblionumber when pref set and field exists');
846
    is($record->field('001')->as_string(), 'Not biblionumber', '001 not set to biblionumber when pref set and field exists');
846
847
847
- 

Return to bug 27981