Bug 17600: Standardize our EXPORT_OK

[srvgit] / t / AuthoritiesMarc_UNIMARC.t

diff --git a/t/AuthoritiesMarc_UNIMARC.t b/t/AuthoritiesMarc_UNIMARC.t
index 0a55cd6..84febb8 100755 (executable)
--- a/t/AuthoritiesMarc_UNIMARC.t
+++ b/t/AuthoritiesMarc_UNIMARC.t
@@ -6,9 +6,11 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+use Test::More tests => 2;
 
 BEGIN {
-        use_ok('C4::AuthoritiesMarc::UNIMARC');
+        use_ok('C4::AuthoritiesMarc::UNIMARC', qw( default_auth_type_location ));
 }
 
+my @test = C4::AuthoritiesMarc::UNIMARC::default_auth_type_location();
+ok(($test[0] == 152) && ($test[1] eq 'b'), "correct variables being returned");