View | Details | Raw Unified | Return to bug 17909
Collapse All | Expand All

(-)a/t/db_dependent/Authorities/Merge.t (-5 / +4 lines)
Lines 38-44 set_mocks(); Link Here
38
# Framework operations
38
# Framework operations
39
my ( $authtype1, $authtype2 ) = modify_framework();
39
my ( $authtype1, $authtype2 ) = modify_framework();
40
40
41
subtest 'Test merge A1 to A2 (withing same authtype)' => sub {
41
subtest 'Test merge A1 to A2 (within same authtype)' => sub {
42
# Tests originate from bug 11700
42
# Tests originate from bug 11700
43
    plan tests => 9;
43
    plan tests => 9;
44
44
Lines 111-117 subtest 'Test merge A1 to modified A1' => sub { Link Here
111
    compare_field_count( $MARC1, $biblio1, 1 );
111
    compare_field_count( $MARC1, $biblio1, 1 );
112
    compare_field_order( $MARC1, $biblio1, 1 );
112
    compare_field_order( $MARC1, $biblio1, 1 );
113
    is( $auth1new->field(109)->subfield('a'), $biblio1->field(109)->subfield('a'), 'Record1 values updated correctly' );
113
    is( $auth1new->field(109)->subfield('a'), $biblio1->field(109)->subfield('a'), 'Record1 values updated correctly' );
114
    my $biblio2 = GetMarcBiblio($biblionumber1);
114
    my $biblio2 = GetMarcBiblio( $biblionumber2 );
115
    compare_field_count( $MARC2, $biblio2, 1 );
115
    compare_field_count( $MARC2, $biblio2, 1 );
116
    compare_field_order( $MARC2, $biblio2, 1 );
116
    compare_field_order( $MARC2, $biblio2, 1 );
117
    is( $auth1new->field(109)->subfield('a'), $biblio2->field(109)->subfield('a'), 'Record2 values updated correctly' );
117
    is( $auth1new->field(109)->subfield('a'), $biblio2->field(109)->subfield('a'), 'Record2 values updated correctly' );
Lines 233-239 sub modify_framework { Link Here
233
        },
233
        },
234
    });
234
    });
235
235
236
    # Link 112/712 to the second authtype
236
    # Link 112/612 to the second authtype
237
    $builder->build({
237
    $builder->build({
238
        source => 'MarcSubfieldStructure',
238
        source => 'MarcSubfieldStructure',
239
        value  => {
239
        value  => {
Lines 246-252 sub modify_framework { Link Here
246
    $builder->build({
246
    $builder->build({
247
        source => 'MarcSubfieldStructure',
247
        source => 'MarcSubfieldStructure',
248
        value  => {
248
        value  => {
249
            tagfield => '712',
249
            tagfield => '612',
250
            tagsubfield => 'a',
250
            tagsubfield => 'a',
251
            authtypecode => $authtype2->{authtypecode},
251
            authtypecode => $authtype2->{authtypecode},
252
            frameworkcode => '',
252
            frameworkcode => '',
253
- 

Return to bug 17909