65 lines
2 KiB
Perl
65 lines
2 KiB
Perl
package KohaTest::Serials;
|
|
use base qw( KohaTest );
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
use C4::Serials;
|
|
sub testing_class { 'C4::Serials' };
|
|
|
|
|
|
sub methods : Test( 1 ) {
|
|
my $self = shift;
|
|
my @methods = qw( GetSuppliersWithLateIssues
|
|
GetLateIssues
|
|
GetSubscriptionHistoryFromSubscriptionId
|
|
GetSerialStatusFromSerialId
|
|
GetSerialInformation
|
|
AddItem2Serial
|
|
UpdateClaimdateIssues
|
|
GetSubscription
|
|
GetFullSubscription
|
|
PrepareSerialsData
|
|
GetSubscriptionsFromBiblionumber
|
|
GetFullSubscriptionsFromBiblionumber
|
|
GetSubscriptions
|
|
GetSerials
|
|
GetSerials2
|
|
GetLatestSerials
|
|
GetNextSeq
|
|
GetSeq
|
|
GetExpirationDate
|
|
CountSubscriptionFromBiblionumber
|
|
ModSubscriptionHistory
|
|
ModSerialStatus
|
|
ModSubscription
|
|
NewSubscription
|
|
ReNewSubscription
|
|
NewIssue
|
|
ItemizeSerials
|
|
HasSubscriptionExpired
|
|
DelSubscription
|
|
DelIssue
|
|
GetLateOrMissingIssues
|
|
removeMissingIssue
|
|
updateClaim
|
|
getsupplierbyserialid
|
|
check_routing
|
|
addroutingmember
|
|
reorder_members
|
|
delroutingmember
|
|
getroutinglist
|
|
countissuesfrom
|
|
abouttoexpire
|
|
in_array
|
|
GetNextDate
|
|
itemdata
|
|
);
|
|
|
|
can_ok( $self->testing_class, @methods );
|
|
}
|
|
|
|
1;
|
|
|