15 lines
276 B
Perl
Executable File
15 lines
276 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
use Test::More tests => 2;
|
|
|
|
BEGIN {
|
|
use_ok('Koha::Z3950Responder');
|
|
}
|
|
|
|
my $zR = Koha::Z3950Responder->new({});
|
|
|
|
my $args = { PEER_NAME => 'PEER' };
|
|
$zR->init_handler($args);
|
|
is ( $args->{IMP_NAME}, 'Koha', 'Server returns basic info' );
|