gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 5327 added unit tests for C4/Search_PazPar2.pm 

Signed-off-by: Chris Hall <chrish@catalyst.net.nz>
(cherry picked from commit 66fecdd798)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
(cherry picked from commit 91aab0fddf)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
This commit is contained in:
Kate Henderson 2012-01-19 11:24:00 +13:00 committed by Chris Nighswonger
parent cc9771816f
commit ab2d045da7
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
t/Search_PazPar2.t
View File

@ -6,9 +6,17 @@
use strict;
use warnings;
use Test::More tests => 1;
use Test::More tests => 8;
BEGIN {
use_ok('C4::Search::PazPar2');
}
my $obj = C4::Search::PazPar2->new();
ok ($obj, "testing new works");
is ($obj->init(), "1", "testing init returns '1' when given no arguments");
is ($obj->search(), "1", "testing search returns '1' when given no arguments");
is ($obj->stat(), undef, "testing stat returns undef when given no arguments");
is ($obj->show(), undef, "testing show returns undef when given no arguments");
is ($obj->record(), undef, "testing record returns undef when given no arguments");
is ($obj->termlist(), undef, "testing termlist returns undef when given no arguments");