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 149-154
subtest 'Test merge A1 to B1 (changing authtype)' => sub {
Link Here
|
149 |
); |
153 |
); |
150 |
my ( $biblionumber ) = C4::Biblio::AddBiblio( $marc, '' ); |
154 |
my ( $biblionumber ) = C4::Biblio::AddBiblio( $marc, '' ); |
151 |
my $oldbiblio = C4::Biblio::GetMarcBiblio( $biblionumber ); |
155 |
my $oldbiblio = C4::Biblio::GetMarcBiblio( $biblionumber ); |
|
|
156 |
$oldbiblio->delete_fields( $oldbiblio->field('100') ); # fix for UNIMARC |
152 |
|
157 |
|
153 |
# Time to merge |
158 |
# Time to merge |
154 |
@zebrarecords = ( $marc ); |
159 |
@zebrarecords = ( $marc ); |
Lines 158-163
subtest 'Test merge A1 to B1 (changing authtype)' => sub {
Link Here
|
158 |
|
163 |
|
159 |
# Get new marc record for compares |
164 |
# Get new marc record for compares |
160 |
my $newbiblio = C4::Biblio::GetMarcBiblio( $biblionumber ); |
165 |
my $newbiblio = C4::Biblio::GetMarcBiblio( $biblionumber ); |
|
|
166 |
$newbiblio->delete_fields( $newbiblio->field('100') ); # fix for UNIMARC |
161 |
compare_field_count( $oldbiblio, $newbiblio, 1 ); |
167 |
compare_field_count( $oldbiblio, $newbiblio, 1 ); |
162 |
# TODO The following test will still fail; refined after 17913 |
168 |
# TODO The following test will still fail; refined after 17913 |
163 |
compare_field_order( $oldbiblio, $newbiblio, 0 ); |
169 |
compare_field_order( $oldbiblio, $newbiblio, 0 ); |
164 |
- |
|
|