t/db_dependent/lib/KohaTest/Z3950.pm

   1 package KohaTest::Z3950;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Z3950;
  10 sub testing_class { 'C4::Z3950' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw( getz3950servers
  16                       z3950servername
  17                       addz3950queue
  18                       checkz3950searchdone
  19                 );
  20
  21     can_ok( $self->testing_class, @methods );
  22 }
  23
  24 1;
  25