From 7aea177cbe74755237e03198d1e6adb252d539a9 Mon Sep 17 00:00:00 2001 From: Kate Henderson Date: Thu, 19 Jan 2012 11:24:00 +1300 Subject: [PATCH] [SINGED-OFF]Bug 5327 added unit tests for C4/Search_PazPar2.pm Signed-off-by: Chris Hall --- t/Search_PazPar2.t | 10 +++++++++- 1 files changed, 9 insertions(+), 1 deletions(-) diff --git a/t/Search_PazPar2.t b/t/Search_PazPar2.t index 8d51720..5af0ac4 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"); -- 1.7.4.1