bug 8215: (followup) make sure C4::CourseReserves doesn't export anything
[koha.git] / t / AuthoritiesMarc_MARC21.t
1 #!/usr/bin/perl
2 #
3 # This Koha test module is a stub!  
4 # Add more tests here!!!
5
6 use strict;
7 use warnings;
8
9 use Test::More tests => 4;
10 use MARC::Record;
11
12 BEGIN {
13         use_ok('C4::AuthoritiesMarc::MARC21');
14 }
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");