3 # This Koha test module is a stub!
4 # Add more tests here!!!
12 use Test::More tests => 33;
15 use_ok('C4::Serials');
18 my $subscriptionid = 1;
19 my $subscriptioninformation = GetSubscription( $subscriptionid );
20 $debug && warn Dump($subscriptioninformation);
21 my @subscriptions = GetSubscriptions( $$subscriptioninformation{bibliotitle} );
22 isa_ok( \@subscriptions, 'ARRAY' );
23 $debug && warn scalar(@subscriptions);
24 @subscriptions = GetSubscriptions( undef, $$subscriptioninformation{issn} );
25 isa_ok( \@subscriptions, 'ARRAY' );
26 $debug && warn scalar(@subscriptions);
27 @subscriptions = GetSubscriptions( undef,undef ,$$subscriptioninformation{bibnum} );
28 isa_ok( \@subscriptions, 'ARRAY' );
29 $debug && warn scalar(@subscriptions);
30 if ($subscriptioninformation->{periodicity} % 16==0){
31 $subscriptioninformation->{periodicity}=7;
32 ModSubscription(@$subscriptioninformation{qw(librarian, branchcode, aqbooksellerid, cost, aqbudgetid, startdate, periodicity, firstacquidate,
33 dow, irregularity, numberpattern, numberlength, weeklength, monthlength, add1, every1,
34 whenmorethan1, setto1, lastvalue1, innerloop1, add2, every2, whenmorethan2, setto2,
35 lastvalue2, innerloop2, add3, every3, whenmorethan3, setto3, lastvalue3, innerloop3,
36 numberingmethod, status, biblionumber, callnumber, notes, letter, hemisphere, manualhistory,
37 internalnotes, serialsadditems, staffdisplaycount, opacdisplaycount, graceperiod, location, enddate, subscriptionid
40 my $expirationdate = GetExpirationDate(1) ;
41 ok( $expirationdate, "not NULL" );
42 $debug && warn "$expirationdate";
44 is(C4::Serials::GetLateIssues(),"0", 'test getting late issues');
46 ok(C4::Serials::GetSubscriptionHistoryFromSubscriptionId(), 'test getting history from sub-scription');
48 ok(C4::Serials::GetSerialStatusFromSerialId(), 'test getting Serial Status From Serial Id');
50 ok(C4::Serials::GetSerialInformation(), 'test getting Serial Information');
52 ok(C4::Serials::AddItem2Serial(), 'test adding item to serial');
54 ok(C4::Serials::UpdateClaimdateIssues(), 'test updating claim date');
56 ok(C4::Serials::GetFullSubscription(), 'test getting full subscription');
58 ok(C4::Serials::PrepareSerialsData(), 'test preparing serial data');
60 ok(C4::Serials::GetSubscriptionsFromBiblionumber(), 'test getting subscriptions form biblio number');
62 is(C4::Serials::GetSerials(),"0", 'test getting serials when you enter nothing');
63 is(C4::Serials::GetSerials2(),"0", 'test getting serials when you enter nothing');
65 ok(C4::Serials::GetLatestSerials(), 'test getting lastest serials');
67 is(C4::Serials::GetDistributedTo(),"0", 'test getting distributed when nothing is entered');
69 is(C4::Serials::GetNextSeq(),"0", 'test getting next seq when you enter nothing');
71 is(C4::Serials::GetSeq(),undef, 'test getting seq when you enter nothing');
73 is(C4::Serials::CountSubscriptionFromBiblionumber(),"0", 'test counting subscription when nothing is entered');
75 is(C4::Serials::ModSubscriptionHistory(),"0", 'test modding subscription history');
77 is(C4::Serials::ModSerialStatus(),undef, 'test modding serials');
79 is(C4::Serials::NewIssue(),"0", 'test getting 0 when nothing is entered');
81 is(C4::Serials::ItemizeSerials(),undef, 'test getting nothing when nothing is entered');
83 ok(C4::Serials::HasSubscriptionStrictlyExpired(), 'test if the subscriptions has expired');
84 is(C4::Serials::HasSubscriptionExpired(),"0", 'test if the subscriptions has expired');
86 is(C4::Serials::GetLateOrMissingIssues(),"0", 'test getting last or missing issues');
88 is(C4::Serials::removeMissingIssue(),undef, 'test removing a missing issue');
90 is(C4::Serials::updateClaim(),undef, 'test updating claim');
92 is(C4::Serials::getsupplierbyserialid(),undef, 'test getting supplier idea');
94 is(C4::Serials::check_routing(),"0", 'test checking route');
96 is(C4::Serials::addroutingmember(),undef, 'test adding route member');