t/lib/KohaTest/Serials.pm

   1 package KohaTest::Serials;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Serials;
  10 sub testing_class { 'C4::Serials' };
  11
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw( GetSuppliersWithLateIssues
  16                       GetLateIssues
  17                       GetSubscriptionHistoryFromSubscriptionId
  18                       GetSerialStatusFromSerialId
  19                       GetSerialInformation
  20                       AddItem2Serial
  21                       UpdateClaimdateIssues
  22                       GetSubscription
  23                       GetFullSubscription
  24                       PrepareSerialsData
  25                       GetSubscriptionsFromBiblionumber
  26                       GetFullSubscriptionsFromBiblionumber
  27                       GetSubscriptions
  28                       GetSerials
  29                       GetSerials2
  30                       GetLatestSerials
  31                       GetDistributedTo
  32                       GetNextSeq
  33                       GetSeq
  34                       GetExpirationDate
  35                       CountSubscriptionFromBiblionumber
  36                       ModSubscriptionHistory
  37                       ModSerialStatus
  38                       ModSubscription
  39                       NewSubscription
  40                       ReNewSubscription
  41                       NewIssue
  42                       ItemizeSerials
  43                       HasSubscriptionExpired
  44                       SetDistributedto
  45                       DelSubscription
  46                       DelIssue
  47                       GetLateOrMissingIssues
  48                       removeMissingIssue
  49                       updateClaim
  50                       getsupplierbyserialid
  51                       check_routing
  52                       addroutingmember
  53                       reorder_members
  54                       delroutingmember
  55                       getroutinglist
  56                       countissuesfrom
  57                       abouttoexpire
  58                       old_newsubscription
  59                       old_modsubscription
  60                       old_getserials
  61                       in_array
  62                       GetNextDate
  63                       itemdata
  64                 );
  65
  66     can_ok( $self->testing_class, @methods );
  67 }
  68
  69 1;
  70