repo.or.cz
/
koha.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Bug 26497: "Hide all columns" throws Javascript error on aqplan.pl
[koha.git]
/
t
/
Koha
/
Z3950responder.t
blob
7f2219783b3ae8dd9c7b0a3ad534b089487c260c
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'
);