Koha/t/Koha/Z3950responder.t

#!/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' );