bb79d37b87
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>
16 lines
346 B
Perl
Executable file
16 lines
346 B
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# This Koha test module is a stub!
|
|
# Add more tests here!!!
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
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");
|