t/lib/KohaTest/Koha.pm

   1 package KohaTest::Koha;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Koha;
  10 sub testing_class { 'C4::Koha' }
  11
  12 sub methods : Test( 1 ) {
  13     my $self    = shift;
  14     my @methods = qw( slashifyDate
  15       DisplayISBN
  16       subfield_is_koha_internal_p
  17       GetItemTypes
  18       get_itemtypeinfos_of
  19       GetCcodes
  20       getauthtypes
  21       getauthtype
  22       getframeworks
  23       getframeworkinfo
  24       getitemtypeinfo
  25       getitemtypeimagedir
  26       getitemtypeimagesrc
  27       getitemtypeimagelocation
  28       _getImagesFromDirectory
  29       _getSubdirectoryNames
  30       getImageSets
  31       GetPrinters
  32       GetPrinter
  33       getnbpages
  34       getallthemes
  35       getFacets
  36       get_infos_of
  37       get_notforloan_label_of
  38       displayServers
  39       GetAuthValCode
  40       GetAuthorisedValues
  41       GetAuthorisedValueCategories
  42       GetKohaAuthorisedValues
  43       display_marc_indicators
  44     );
  45
  46     can_ok( $self->testing_class, @methods );
  47 }
  48
  49 1;