t/Koha/Z3950responder.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use Test::More tests => 2;
   5
   6 BEGIN {
   7     use_ok('Koha::Z3950Responder');
   8 }
   9
  10 my $zR = Koha::Z3950Responder->new({});
  11
  12 my $args = { PEER_NAME => 'PEER' };
  13 $zR->init_handler($args);
  14 is ( $args->{IMP_NAME}, 'Koha', 'Server returns basic info' );