t/db_dependent/Serials.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use strict;
   7 use warnings;
   8 use YAML;
   9
  10 use C4::Serials;
  11 use C4::Debug;
  12 use Test::More tests => 5;
  13
  14 BEGIN {
  15     use_ok('C4::Serials');
  16 }
  17
  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
  38 )});
  39 }
  40 my $expirationdate = GetExpirationDate(1) ;
  41 ok( $expirationdate, "not NULL" );
  42 $debug && warn "$expirationdate";