Lines 66-77
subtest 'Test merge A1 to A2 (within same authtype)' => sub {
Link Here
|
66 |
|
66 |
|
67 |
# Check the results |
67 |
# Check the results |
68 |
my $newbiblio1 = GetMarcBiblio($biblionumber1); |
68 |
my $newbiblio1 = GetMarcBiblio($biblionumber1); |
|
|
69 |
$newbiblio1->delete_fields( $newbiblio1->field('100') ); # fix for UNIMARC |
69 |
compare_field_count( $biblio1, $newbiblio1, 1 ); |
70 |
compare_field_count( $biblio1, $newbiblio1, 1 ); |
70 |
compare_field_order( $biblio1, $newbiblio1, 1 ); |
71 |
compare_field_order( $biblio1, $newbiblio1, 1 ); |
71 |
is( $newbiblio1->subfield('609', '9'), $authid1, 'Check biblio1 609$9' ); |
72 |
is( $newbiblio1->subfield('609', '9'), $authid1, 'Check biblio1 609$9' ); |
72 |
is( $newbiblio1->subfield('609', 'a'), 'George Orwell', |
73 |
is( $newbiblio1->subfield('609', 'a'), 'George Orwell', |
73 |
'Check biblio1 609$a' ); |
74 |
'Check biblio1 609$a' ); |
74 |
my $newbiblio2 = GetMarcBiblio($biblionumber2); |
75 |
my $newbiblio2 = GetMarcBiblio($biblionumber2); |
|
|
76 |
$newbiblio2->delete_fields( $newbiblio2->field('100') ); # fix for UNIMARC |
75 |
compare_field_count( $biblio2, $newbiblio2, 1 ); |
77 |
compare_field_count( $biblio2, $newbiblio2, 1 ); |
76 |
compare_field_order( $biblio2, $newbiblio2, 1 ); |
78 |
compare_field_order( $biblio2, $newbiblio2, 1 ); |
77 |
is( $newbiblio2->subfield('609', '9'), $authid1, 'Check biblio2 609$9' ); |
79 |
is( $newbiblio2->subfield('609', '9'), $authid1, 'Check biblio2 609$9' ); |
Lines 108-117
subtest 'Test merge A1 to modified A1' => sub {
Link Here
|
108 |
|
110 |
|
109 |
#Check the results |
111 |
#Check the results |
110 |
my $biblio1 = GetMarcBiblio($biblionumber1); |
112 |
my $biblio1 = GetMarcBiblio($biblionumber1); |
|
|
113 |
$biblio1->delete_fields( $biblio1->field('100') ); # quick fix for UNIMARC |
111 |
compare_field_count( $MARC1, $biblio1, 1 ); |
114 |
compare_field_count( $MARC1, $biblio1, 1 ); |
112 |
compare_field_order( $MARC1, $biblio1, 1 ); |
115 |
compare_field_order( $MARC1, $biblio1, 1 ); |
113 |
is( $auth1new->field(109)->subfield('a'), $biblio1->field(109)->subfield('a'), 'Record1 values updated correctly' ); |
116 |
is( $auth1new->field(109)->subfield('a'), $biblio1->field(109)->subfield('a'), 'Record1 values updated correctly' ); |
114 |
my $biblio2 = GetMarcBiblio( $biblionumber2 ); |
117 |
my $biblio2 = GetMarcBiblio( $biblionumber2 ); |
|
|
118 |
$biblio2->delete_fields( $biblio2->field('100') ); # quick fix for UNIMARC |
115 |
compare_field_count( $MARC2, $biblio2, 1 ); |
119 |
compare_field_count( $MARC2, $biblio2, 1 ); |
116 |
compare_field_order( $MARC2, $biblio2, 1 ); |
120 |
compare_field_order( $MARC2, $biblio2, 1 ); |
117 |
is( $auth1new->field(109)->subfield('a'), $biblio2->field(109)->subfield('a'), 'Record2 values updated correctly' ); |
121 |
is( $auth1new->field(109)->subfield('a'), $biblio2->field(109)->subfield('a'), 'Record2 values updated correctly' ); |
Lines 158-163
subtest 'Test merge A1 to B1 (changing authtype)' => sub {
Link Here
|
158 |
|
162 |
|
159 |
# Get new marc record for compares |
163 |
# Get new marc record for compares |
160 |
my $newbiblio = C4::Biblio::GetMarcBiblio( $biblionumber ); |
164 |
my $newbiblio = C4::Biblio::GetMarcBiblio( $biblionumber ); |
|
|
165 |
$newbiblio->delete_fields( $newbiblio->field('100') ); # fix for UNIMARC |
161 |
compare_field_count( $oldbiblio, $newbiblio, 1 ); |
166 |
compare_field_count( $oldbiblio, $newbiblio, 1 ); |
162 |
# TODO The following test will still fail; refined after 17913 |
167 |
# TODO The following test will still fail; refined after 17913 |
163 |
compare_field_order( $oldbiblio, $newbiblio, 0 ); |
168 |
compare_field_order( $oldbiblio, $newbiblio, 0 ); |
164 |
- |
|
|