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                       GetNextSeq
  32                       GetSeq
  33                       GetExpirationDate
  34                       CountSubscriptionFromBiblionumber
  35                       ModSubscriptionHistory
  36                       ModSerialStatus
  37                       ModSubscription
  38                       NewSubscription
  39                       ReNewSubscription
  40                       NewIssue
  41                       ItemizeSerials
  42                       HasSubscriptionExpired
  43                       DelSubscription
  44                       DelIssue
  45                       GetLateOrMissingIssues
  46                       removeMissingIssue
  47                       updateClaim
  48                       getsupplierbyserialid
  49                       check_routing
  50                       addroutingmember
  51                       reorder_members
  52                       delroutingmember
  53                       getroutinglist
  54                       countissuesfrom
  55                       abouttoexpire
  56                       in_array
  57                       GetNextDate
  58                       itemdata
  59                 );
  60
  61     can_ok( $self->testing_class, @methods );
  62 }
  63
  64 1;
  65