Jonathan Druart
5b69e6df98
This has been generated. Signed-off-by: David Nind <david@davidnind.com> Signed-off-by: Nick Clemens <nick@bywatersolutions.com> Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
17 lines
404 B
Perl
Executable file
17 lines
404 B
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# This Koha test module is a stub!
|
|
# Add more tests here!!!
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::NoWarnings;
|
|
use Test::More tests => 3;
|
|
|
|
BEGIN {
|
|
use_ok( 'C4::AuthoritiesMarc::UNIMARC', qw( default_auth_type_location ) );
|
|
}
|
|
|
|
my @test = C4::AuthoritiesMarc::UNIMARC::default_auth_type_location();
|
|
ok( ( $test[0] == 152 ) && ( $test[1] eq 'b' ), "correct variables being returned" );
|