t/lib/KohaTest/Heading.pm

   1 package KohaTest::Heading;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Heading;
  10 sub testing_class { 'C4::Heading' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw(
  16                     new_from_bib_field
  17                     display_form
  18                     authorities
  19                     preferred_authorities
  20                     _query_limiters
  21                     _marc_format_handler
  22                 );
  23
  24     can_ok( $self->testing_class, @methods );
  25 }
  26
  27 1;