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 |
- |
|
|