t/lib/KohaTest/Reserves.pm

   1 package KohaTest::Reserves;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Reserves;
  10 sub testing_class { 'C4::Reserves' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw(  AddReserve
  16                        GetReservesFromBiblionumber
  17                        GetReservesFromItemnumber
  18                        GetReservesFromBorrowernumber
  19                        GetReserveCount
  20                        GetOtherReserves
  21                        GetReserveFee
  22                        GetReservesToBranch
  23                        GetReservesForBranch
  24                        CheckReserves
  25                        CancelReserve
  26                        ModReserve
  27                        ModReserveFill
  28                        ModReserveStatus
  29                        ModReserveAffect
  30                        ModReserveCancelAll
  31                        ModReserveMinusPriority
  32                        GetReserveInfo
  33                        _FixPriority
  34                        _Findgroupreserve
  35                 );
  36
  37     can_ok( $self->testing_class, @methods );
  38 }
  39
  40 1;
  41