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

(-)a/t/db_dependent/AuthoritiesMarc.t (-5 / +43 lines)
Lines 5-11 Link Here
5
5
6
use Modern::Perl;
6
use Modern::Perl;
7
7
8
use Test::More tests => 12;
8
use Test::More tests => 13;
9
use Test::MockModule;
9
use Test::MockModule;
10
use Test::Warn;
10
use Test::Warn;
11
use MARC::Field;
11
use MARC::Field;
Lines 175-180 $dbh->do(q{ Link Here
175
    INSERT INTO auth_types (authtypecode, authtypetext, auth_tag_to_report, summary)
175
    INSERT INTO auth_types (authtypecode, authtypetext, auth_tag_to_report, summary)
176
    VALUES ('NP', 'Auteur', '200', '[200a][, 200b][ 200d][ ; 200c][ (200f)]')
176
    VALUES ('NP', 'Auteur', '200', '[200a][, 200b][ 200d][ ; 200c][ (200f)]')
177
});
177
});
178
$dbh->do(
179
    q{
180
    INSERT INTO marc_subfield_structure (frameworkcode,authtypecode,tagfield)
181
    VALUES ('','NP','200')
182
}
183
);
178
184
179
my $unimarc_name_auth = MARC::Record->new();
185
my $unimarc_name_auth = MARC::Record->new();
180
$unimarc_name_auth->add_fields(
186
$unimarc_name_auth->add_fields(
Lines 212-228 subtest 'AddAuthority should respect AUTO_INCREMENT (BZ 18104)' => sub { Link Here
212
    plan tests => 3;
218
    plan tests => 3;
213
219
214
    t::lib::Mocks::mock_preference( 'marcflavour', 'MARC21' );
220
    t::lib::Mocks::mock_preference( 'marcflavour', 'MARC21' );
215
    my $record = C4::AuthoritiesMarc::GetAuthority(1);
221
    my $record = MARC::Record->new();
222
    my $field  = MARC::Field->new( '151', ' ', ' ', a => 'Amsterdam (Netherlands)', 'x' => 'Economic conditions' );
223
    $record->append_fields($field);
216
    my $id1 = AddAuthority( $record, undef, 'GEOGR_NAME' );
224
    my $id1 = AddAuthority( $record, undef, 'GEOGR_NAME' );
217
    DelAuthority({ authid => $id1 });
225
    DelAuthority( { authid => $id1 } );
226
    $record = MARC::Record->new();
227
    $record->append_fields($field);
218
    my $id2 = AddAuthority( $record, undef, 'GEOGR_NAME' );
228
    my $id2 = AddAuthority( $record, undef, 'GEOGR_NAME' );
219
    isnt( $id1, $id2, 'Do not return the same id again' );
229
    isnt( $id1, $id2, 'Do not return the same id again' );
220
    t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' );
230
    t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' );
221
    my $id3 = AddAuthority( $record, undef, 'GEOGR_NAME' );
231
    $record = MARC::Record->new();
232
    $field  = MARC::Field->new( '200', ' ', ' ', a => 'Fossey', 'b' => 'Brigitte' );
233
    $record->append_fields($field);
234
    my $id3 = AddAuthority( $record, undef, 'NP' );
222
    ok( $id3 > 0, 'Tested AddAuthority with UNIMARC' );
235
    ok( $id3 > 0, 'Tested AddAuthority with UNIMARC' );
223
    is( $record->field('001')->data, $id3, 'Check updated 001' );
236
    is( $record->field('001')->data, $id3, 'Check updated 001' );
224
};
237
};
225
238
239
subtest 'AddAuthority should create heading field with display form' => sub {
240
    plan tests => 2;
241
242
    t::lib::Mocks::mock_preference( 'marcflavour',    'MARC21' );
243
    t::lib::Mocks::mock_preference( 'AuthoritiesLog', 0 );
244
    my $record = MARC::Record->new();
245
    my $field  = MARC::Field->new( '151', ' ', ' ', a => 'White River Junction (Vt.)' );
246
    $record->append_fields($field);
247
    my $id        = AddAuthority( $record, undef, 'GEOGR_NAME' );
248
    my $authority = Koha::Authorities->find($id);
249
    is(
250
        $authority->heading, 'White River Junction (Vt.)',
251
        'Heading field is formed as expected when adding authority'
252
    );
253
    $record = MARC::Record->new();
254
    $field  = MARC::Field->new( '151', ' ', ' ', a => 'Lyon (France)', 'x' => 'Antiquities' );
255
    $record->append_fields($field);
256
    $id        = ModAuthority( $id, $record, 'GEOGR_NAME' );
257
    $authority = Koha::Authorities->find($id);
258
    is(
259
        $authority->heading, 'Lyon (France)--Antiquities',
260
        'Heading field is formed as expected when modding authority'
261
    );
262
263
};
264
226
subtest 'CompareFieldWithAuthority tests' => sub {
265
subtest 'CompareFieldWithAuthority tests' => sub {
227
    plan tests => 3;
266
    plan tests => 3;
228
267
229
- 

Return to bug 30047