Lines 6-14
Link Here
|
6 |
use strict; |
6 |
use strict; |
7 |
use warnings; |
7 |
use warnings; |
8 |
|
8 |
|
9 |
use Test::More tests => 1; |
9 |
use Test::More tests => 4; |
|
|
10 |
use MARC::Record; |
10 |
|
11 |
|
11 |
BEGIN { |
12 |
BEGIN { |
12 |
use_ok('C4::AuthoritiesMarc::MARC21'); |
13 |
use_ok('C4::AuthoritiesMarc::MARC21'); |
13 |
} |
14 |
} |
14 |
|
15 |
|
15 |
- |
16 |
my @result = C4::AuthoritiesMarc::MARC21::default_auth_type_location(); |
|
|
17 |
ok($result[0] eq '942', "testing default_auth_type_location has first value '942'"); |
18 |
ok($result[1] eq 'a', "testing default_auth_type_location has first value 'a'"); |
19 |
|
20 |
my $marc_record = MARC::Record->new(); |
21 |
is(C4::AuthoritiesMarc::MARC21::fix_marc21_auth_type_location($marc_record, '', ''), undef, "testing fix_marc21_auth_type_location returns undef with empty MARC record"); |