X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2FSearch_PazPar2.t;h=5af0ac47633ca551c50073e10c5c088fb4406cdc;hb=63f8cb0225c9fcab75ce38209733c0f68c2a9035;hp=8d51720aaccb962d9d6f60513eeb45756db1933b;hpb=e979344ea9db2ea91e9aa905bdcea527ac9fe2f2;p=koha.git

diff --git a/t/Search_PazPar2.t b/t/Search_PazPar2.t
index 8d51720aac..5af0ac4763 100755
--- a/t/Search_PazPar2.t
+++ b/t/Search_PazPar2.t
@@ -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");