|
Lines 108-115
sub run_tests {
Link Here
|
| 108 |
|
108 |
|
| 109 |
# Generate a record with just the ISBN |
109 |
# Generate a record with just the ISBN |
| 110 |
my $marc_record = MARC::Record->new; |
110 |
my $marc_record = MARC::Record->new; |
| 111 |
my $isbn_field = create_isbn_field( $isbn, $marcflavour ); |
111 |
$marc_record->append_fields( create_isbn_field( $isbn, $marcflavour ) ); |
| 112 |
$marc_record->append_fields( $isbn_field ); |
|
|
| 113 |
|
112 |
|
| 114 |
# Add the record to the DB |
113 |
# Add the record to the DB |
| 115 |
my( $biblionumber, $biblioitemnumber ) = AddBiblio( $marc_record, '' ); |
114 |
my( $biblionumber, $biblioitemnumber ) = AddBiblio( $marc_record, '' ); |
|
Lines 119-124
sub run_tests {
Link Here
|
| 119 |
is( $data->{ title }, undef, |
118 |
is( $data->{ title }, undef, |
| 120 |
'(GetBiblioData) Title field is empty in fresh biblio.'); |
119 |
'(GetBiblioData) Title field is empty in fresh biblio.'); |
| 121 |
|
120 |
|
|
|
121 |
my ( $isbn_field, $isbn_subfield ) = get_isbn_field(); |
| 122 |
my $marc = GetMarcBiblio( $biblionumber ); |
| 123 |
is( $marc->subfield( $isbn_field, $isbn_subfield ), $isbn, ); |
| 124 |
|
| 122 |
# Add title |
125 |
# Add title |
| 123 |
my $field = create_title_field( $title, $marcflavour ); |
126 |
my $field = create_title_field( $title, $marcflavour ); |
| 124 |
$marc_record->append_fields( $field ); |
127 |
$marc_record->append_fields( $field ); |
|
Lines 127-132
sub run_tests {
Link Here
|
| 127 |
is( $data->{ title }, $title, |
130 |
is( $data->{ title }, $title, |
| 128 |
'ModBiblio correctly added the title field, and GetBiblioData.'); |
131 |
'ModBiblio correctly added the title field, and GetBiblioData.'); |
| 129 |
is( $data->{ isbn }, $isbn, '(ModBiblio) ISBN is still there after ModBiblio.'); |
132 |
is( $data->{ isbn }, $isbn, '(ModBiblio) ISBN is still there after ModBiblio.'); |
|
|
133 |
$marc = GetMarcBiblio( $biblionumber ); |
| 134 |
my ( $title_field, $title_subfield ) = get_title_field(); |
| 135 |
is( $marc->subfield( $title_field, $title_subfield ), $title, ); |
| 130 |
|
136 |
|
| 131 |
my $itemdata = GetBiblioItemData( $biblioitemnumber ); |
137 |
my $itemdata = GetBiblioItemData( $biblioitemnumber ); |
| 132 |
is( $itemdata->{ title }, $title, |
138 |
is( $itemdata->{ title }, $title, |
|
Lines 320-338
sub create_issn_field {
Link Here
|
| 320 |
} |
326 |
} |
| 321 |
|
327 |
|
| 322 |
subtest 'MARC21' => sub { |
328 |
subtest 'MARC21' => sub { |
| 323 |
plan tests => 29; |
329 |
plan tests => 31; |
| 324 |
run_tests('MARC21'); |
330 |
run_tests('MARC21'); |
| 325 |
$dbh->rollback; |
331 |
$dbh->rollback; |
| 326 |
}; |
332 |
}; |
| 327 |
|
333 |
|
| 328 |
subtest 'UNIMARC' => sub { |
334 |
subtest 'UNIMARC' => sub { |
| 329 |
plan tests => 29; |
335 |
plan tests => 31; |
| 330 |
run_tests('UNIMARC'); |
336 |
run_tests('UNIMARC'); |
| 331 |
$dbh->rollback; |
337 |
$dbh->rollback; |
| 332 |
}; |
338 |
}; |
| 333 |
|
339 |
|
| 334 |
subtest 'NORMARC' => sub { |
340 |
subtest 'NORMARC' => sub { |
| 335 |
plan tests => 29; |
341 |
plan tests => 31; |
| 336 |
run_tests('NORMARC'); |
342 |
run_tests('NORMARC'); |
| 337 |
$dbh->rollback; |
343 |
$dbh->rollback; |
| 338 |
}; |
344 |
}; |
| 339 |
- |
|
|