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