[Patches] [PATCH] Added unit test for AuthoritiesMarc/UNIMARC.pm

koha-patchbot at kohaaloha.com koha-patchbot at kohaaloha.com
Sat Dec 10 01:05:43 NZDT 2011


From: Duncan Tyler <duncan at duncan-SoT.wgtn.cat-it.co.nz>
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




More information about the Patches mailing list