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

(-)a/t/AuthoritiesMarc_MARC21.t (-3 / +26 lines)
Lines 8-18 use warnings; Link Here
8
8
9
use Test::MockModule;
9
use Test::MockModule;
10
use Test::MockObject;
10
use Test::MockObject;
11
use Test::More tests => 5;
11
use Test::More tests => 6;
12
use t::lib::Mocks;
12
use t::lib::Mocks;
13
use MARC::Record;
13
use MARC::Record;
14
14
15
use C4::AuthoritiesMarc qw( FindDuplicateAuthority );
15
use C4::AuthoritiesMarc qw( FindDuplicateAuthority isAuthorityDuplicated );
16
16
17
BEGIN {
17
BEGIN {
18
        use_ok('C4::AuthoritiesMarc::MARC21', qw( default_auth_type_location fix_marc21_auth_type_location ));
18
        use_ok('C4::AuthoritiesMarc::MARC21', qw( default_auth_type_location fix_marc21_auth_type_location ));
Lines 60-62 subtest "FindDuplicateAuthority tests" => sub { Link Here
60
    is( $query, q{at:"GENRE/FORM"  AND he:"Potato"}, "Query formed correctly for Elasticsearch");
60
    is( $query, q{at:"GENRE/FORM"  AND he:"Potato"}, "Query formed correctly for Elasticsearch");
61
61
62
};
62
};
63
- 
63
64
subtest "isAuthorityDuplicated tests" => sub {
65
    plan tests => 2;
66
    my $record1 = MARC::Record->new;
67
    $record1->append_fields(
68
        MARC::Field->new('110', '', '', a => 'Potato' ),
69
    );
70
71
    my $record2 = MARC::Record->new;
72
    $record2->append_fields(
73
        MARC::Field->new('110', '', '', a => 'Potato' ),
74
    );
75
76
    my $duplicate = isAuthorityDuplicated( $record1, $record2,  "CORPO_NAME" );
77
    is( $duplicate, 1 );
78
79
    $record2->delete_fields($record2->field('110'));
80
    $record2->append_fields(
81
        MARC::Field->new('110', '', '', a => 'Newvalue' ),
82
    );
83
84
    $duplicate = isAuthorityDuplicated( $record1, $record2,  "CORPO_NAME" );
85
    is( $duplicate, 0 );
86
};

Return to bug 29522