Bug 5327 added unit tests for C4/Search_PazPar2.pm

Signed-off-by: Chris Hall <chrish@catalyst.net.nz>

diff --git a/t/Search_PazPar2.t b/t/Search_PazPar2.t
index 8d51720..5af0ac4 100755 (executable)
--- 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");