t/lib/KohaTest/Branch.pm

   1 package KohaTest::Branch;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Branch;
  10 sub testing_class { 'C4::Branch' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw( GetBranches
  16                       GetBranchName
  17                       ModBranch
  18                       GetBranchCategory
  19                       GetBranchCategories
  20                       GetCategoryTypes
  21                       GetBranch
  22                       GetBranchDetail
  23                       get_branchinfos_of
  24                       GetBranchesInCategory
  25                       GetBranchInfo
  26                       DelBranch
  27                       ModBranchCategoryInfo
  28                       DelBranchCategory
  29                       CheckBranchCategorycode
  30                 );
  31
  32     can_ok( $self->testing_class, @methods );
  33 }
  34
  35 1;
  36