t/Search_PazPar2.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests => 8;
  10
  11 BEGIN {
  12         use_ok('C4::Search::PazPar2');
  13 }
  14
  15 my $obj = C4::Search::PazPar2->new();
  16 ok ($obj, "testing new works");
  17 is ($obj->init(), "1", "testing init returns '1' when given no arguments");
  18 is ($obj->search(), "1", "testing search returns '1' when given no arguments");
  19 is ($obj->stat(), undef, "testing stat returns undef when given no arguments");
  20 is ($obj->show(), undef, "testing show returns undef when given no arguments");
  21 is ($obj->record(), undef, "testing record returns undef when given no arguments");
  22 is ($obj->termlist(), undef, "testing termlist returns undef when given no arguments");