From ab9bdebe6bd223954b419f89f128a00c520fb802 Mon Sep 17 00:00:00 2001 From: Duncan Tyler Date: Fri, 9 Dec 2011 08:52:34 +1300 Subject: [PATCH] Added unit test for AuthoritiesMarc/UNIMARC.pm --- t/AuthoritiesMarc_UNIMARC.t | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/t/AuthoritiesMarc_UNIMARC.t b/t/AuthoritiesMarc_UNIMARC.t index 0a55cd6..4d26f39 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"); -- 1.7.5.4