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