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>
(cherry picked from commit bb79d37b87)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
This commit is contained in:
Duncan Tyler 2011-12-09 08:52:34 +13:00 committed by Chris Nighswonger
parent 3aa19f2186
commit b418a16623
1 changed files with 3 additions and 1 deletions

View File

@ -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");