projects
/
koha.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Bug 28813: Update unit tests
[koha.git]
/
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' );