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

(-)a/t/db_dependent/Biblio.t (-4 / +9 lines)
Lines 143-148 sub run_tests { Link Here
143
    $issns = GetMarcISSN( $marc_record, $marcflavour );
143
    $issns = GetMarcISSN( $marc_record, $marcflavour );
144
    is( scalar @$issns, 4,
144
    is( scalar @$issns, 4,
145
        'GetMARCISSN handles records with multiple ISSN fields (count correct)');
145
        'GetMARCISSN handles records with multiple ISSN fields (count correct)');
146
    # Create an empty ISSN
147
    $field = create_issn_field( "", $marcflavour );
148
    $marc_record->append_fields($field);
149
    $issns = GetMarcISSN( $marc_record, $marcflavour );
150
    is( scalar @$issns, 4,
151
        'GetMARCISSN skips empty ISSN fields (Bug 12674)');
146
152
147
    ## Testing GetMarcControlnumber
153
    ## Testing GetMarcControlnumber
148
    my $controlnumber;
154
    my $controlnumber;
Lines 254-272 sub create_issn_field { Link Here
254
}
260
}
255
261
256
subtest 'MARC21' => sub {
262
subtest 'MARC21' => sub {
257
    plan tests => 26;
263
    plan tests => 27;
258
    run_tests('MARC21');
264
    run_tests('MARC21');
259
    $dbh->rollback;
265
    $dbh->rollback;
260
};
266
};
261
267
262
subtest 'UNIMARC' => sub {
268
subtest 'UNIMARC' => sub {
263
    plan tests => 26;
269
    plan tests => 27;
264
    run_tests('UNIMARC');
270
    run_tests('UNIMARC');
265
    $dbh->rollback;
271
    $dbh->rollback;
266
};
272
};
267
273
268
subtest 'NORMARC' => sub {
274
subtest 'NORMARC' => sub {
269
    plan tests => 26;
275
    plan tests => 27;
270
    run_tests('NORMARC');
276
    run_tests('NORMARC');
271
    $dbh->rollback;
277
    $dbh->rollback;
272
};
278
};
273
- 

Return to bug 12674