From bb79d37b8754114ec670b5806150b61340b99e7c 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 http://bugs.koha-community.org/show_bug.cgi?id=5327 Signed-off-by: Katrin Fischer Test passes. Signed-off-by: Paul Poulain --- t/AuthoritiesMarc_UNIMARC.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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"); -- 2.39.5