t/lib/KohaTest/AuthoritiesMarc.pm

   1 package KohaTest::AuthoritiesMarc;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::AuthoritiesMarc;
  10 sub testing_class { 'C4::AuthoritiesMarc' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw( GetAuthMARCFromKohaField
  16                       SearchAuthorities
  17                       CountUsage
  18                       CountUsageChildren
  19                       GetAuthTypeCode
  20                       GetTagsLabels
  21                       AddAuthority
  22                       DelAuthority
  23                       ModAuthority
  24                       GetAuthorityXML
  25                       GetAuthority
  26                       GetAuthType
  27                       AUTHhtml2marc
  28                       FindDuplicateAuthority
  29                       BuildSummary
  30                       BuildUnimarcHierarchies
  31                       BuildUnimarcHierarchy
  32                       GetHeaderAuthority
  33                       AddAuthorityTrees
  34                       merge
  35                       get_auth_type_location
  36                 );
  37
  38     can_ok( $self->testing_class, @methods );
  39 }
  40
  41 1;