3 # This Koha test module is a stub!
4 # Add more tests here!!!
12 use Test::More tests => 5;
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";