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

(-)a/t/db_dependent/Biblio.t (-4 / +9 lines)
Lines 137-142 sub run_tests { Link Here
137
    $issns = GetMarcISSN( $marc_record, $marcflavour );
137
    $issns = GetMarcISSN( $marc_record, $marcflavour );
138
    is( scalar @$issns, 4,
138
    is( scalar @$issns, 4,
139
        'GetMARCISSN handles records with multiple ISSN fields (count correct)');
139
        'GetMARCISSN handles records with multiple ISSN fields (count correct)');
140
    # Create an empty ISSN
141
    $field = create_issn_field( "", $marcflavour );
142
    $marc_record->append_fields($field);
143
    $issns = GetMarcISSN( $marc_record, $marcflavour );
144
    is( scalar @$issns, 4,
145
        'GetMARCISSN skips empty ISSN fields (Bug 12674)');
140
146
141
    ## Testing GetMarcControlnumber
147
    ## Testing GetMarcControlnumber
142
    my $controlnumber;
148
    my $controlnumber;
Lines 246-264 sub create_issn_field { Link Here
246
}
252
}
247
253
248
subtest 'MARC21' => sub {
254
subtest 'MARC21' => sub {
249
    plan tests => 26;
255
    plan tests => 27;
250
    run_tests('MARC21');
256
    run_tests('MARC21');
251
    $dbh->rollback;
257
    $dbh->rollback;
252
};
258
};
253
259
254
subtest 'UNIMARC' => sub {
260
subtest 'UNIMARC' => sub {
255
    plan tests => 26;
261
    plan tests => 27;
256
    run_tests('UNIMARC');
262
    run_tests('UNIMARC');
257
    $dbh->rollback;
263
    $dbh->rollback;
258
};
264
};
259
265
260
subtest 'NORMARC' => sub {
266
subtest 'NORMARC' => sub {
261
    plan tests => 26;
267
    plan tests => 27;
262
    run_tests('NORMARC');
268
    run_tests('NORMARC');
263
    $dbh->rollback;
269
    $dbh->rollback;
264
};
270
};
265
- 

Return to bug 12674