t/lib/KohaTest/Overdues.pm

   1 package KohaTest::Overdues;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Overdues;
  10 sub testing_class { 'C4::Overdues' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw( Getoverdues
  16                        checkoverdues
  17                        CalcFine
  18                        GetSpecialHolidays
  19                        GetRepeatableHolidays
  20                        GetWdayFromItemnumber
  21                        GetIssuesIteminfo
  22                        UpdateFine
  23                        BorType
  24                        ReplacementCost
  25                        GetFine
  26                        GetIssuingRules
  27                        ReplacementCost2
  28                        GetNextIdNotify
  29                        NumberNotifyId
  30                        AmountNotify
  31                        UpdateAccountLines
  32                        GetItems
  33                        GetOverdueDelays
  34                        CheckAccountLineLevelInfo
  35                        GetOverduerules
  36                        CheckBorrowerDebarred
  37                        UpdateBorrowerDebarred
  38                        CheckExistantNotifyid
  39                        CheckAccountLineItemInfo
  40                        CheckItemNotify
  41                        GetOverduesForBranch
  42                        AddNotifyLine
  43                        RemoveNotifyLine
  44                 );
  45
  46     can_ok( $self->testing_class, @methods );
  47 }
  48
  49 1;
  50