From: Duncan Tyler <duncan@duncan-SoT.wgtn.cat-it.co.nz>
Date: Thu, 8 Dec 2011 19:52:34 +0000 (+1300)
Subject: Added unit test for AuthoritiesMarc/UNIMARC.pm
X-Git-Tag: v3.08.00~498^2~31
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;ds=sidebyside;h=bb79d37b8754114ec670b5806150b61340b99e7c;p=koha_ffzg

Added unit test for AuthoritiesMarc/UNIMARC.pm

http://bugs.koha-community.org/show_bug.cgi?id=5327
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Test passes.

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
---

diff --git a/t/AuthoritiesMarc_UNIMARC.t b/t/AuthoritiesMarc_UNIMARC.t
index 0a55cd63f1..4d26f3948b 100755
--- 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');
 }
 
+my @test = C4::AuthoritiesMarc::UNIMARC::default_auth_type_location();
+ok(($test[0] == 152) && ($test[1] eq 'b'), "correct variables being returned");