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