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 Modern::Perl;
   7 use YAML;
   8
   9 use CGI qw ( -utf8 );
  10 use C4::Serials;
  11 use C4::Serials::Frequency;
  12 use C4::Serials::Numberpattern;
  13 use C4::Debug;
  14 use C4::Bookseller;
  15 use C4::Biblio;
  16 use C4::Budgets;
  17 use Koha::DateUtils;
  18 use Test::More tests => 43;
  19
  20 BEGIN {
  21     use_ok('C4::Serials');
  22 }
  23
  24 my $dbh = C4::Context->dbh;
  25
  26 # Start transaction
  27 $dbh->{AutoCommit} = 0;
  28 $dbh->{RaiseError} = 1;
  29
  30 my $booksellerid = C4::Bookseller::AddBookseller(
  31     {
  32         name => "my vendor",
  33         address1 => "bookseller's address",
  34         phone => "0123456",
  35         active => 1
  36     }
  37 );
  38
  39 my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
  40
  41 my $budgetid;
  42 my $bpid = AddBudgetPeriod({
  43     budget_period_startdate   => '01-01-2015',
  44     budget_period_enddate     => '31-12-2015',
  45     budget_period_description => "budget desc"
  46 });
  47
  48 my $budget_id = AddBudget({
  49     budget_code        => "ABCD",
  50     budget_amount      => "123.132",
  51     budget_name        => "Périodiques",
  52     budget_notes       => "This is a note",
  53     budget_period_id   => $bpid
  54 });
  55
  56 my $frequency_id = AddSubscriptionFrequency({ description => "Test frequency 1" });
  57 my $pattern_id = AddSubscriptionNumberpattern({
  58     label => 'Test numberpattern 1',
  59     numberingmethod => '{X}',
  60     label1 => q{},
  61     add1 => 1,
  62     every1 => 1,
  63     every1 => 1,
  64     numbering1 => 1,
  65     whenmorethan1 => 1,
  66 });
  67
  68 my $subscriptionid = NewSubscription(
  69     undef,      "",     undef, undef, $budget_id, $biblionumber,
  70     '2013-01-01', $frequency_id, undef, undef,  undef,
  71     undef,      undef,  undef, undef, undef, undef,
  72     1,          "notes",undef, '2013-01-01', undef, $pattern_id,
  73     undef,       undef,  0,    "intnotes",  0,
  74     undef, undef, 0,          undef,         '2013-12-31', 0
  75 );
  76
  77 my $subscriptioninformation = GetSubscription( $subscriptionid );
  78
  79 my @subscriptions = GetSubscriptions( $$subscriptioninformation{bibliotitle} );
  80 isa_ok( \@subscriptions, 'ARRAY' );
  81
  82 @subscriptions = GetSubscriptions( undef, $$subscriptioninformation{issn} );
  83 isa_ok( \@subscriptions, 'ARRAY' );
  84
  85 @subscriptions = GetSubscriptions( undef, undef, $$subscriptioninformation{ean} );
  86 isa_ok( \@subscriptions, 'ARRAY' );
  87
  88 @subscriptions = GetSubscriptions( undef, undef, undef, $$subscriptioninformation{bibnum} );
  89 isa_ok( \@subscriptions, 'ARRAY' );
  90
  91 my $frequency = GetSubscriptionFrequency($subscriptioninformation->{periodicity});
  92 my $old_frequency;
  93 if (not $frequency->{unit}) {
  94     $old_frequency = $frequency->{id};
  95     $frequency->{unit} = "month";
  96     $frequency->{unitsperissue} = 1;
  97     $frequency->{issuesperunit} = 1;
  98     $frequency->{description} = "Frequency created by t/db_dependant/Serials.t";
  99     $subscriptioninformation->{periodicity} = AddSubscriptionFrequency($frequency);
 100
 101     ModSubscription( @$subscriptioninformation{qw(
 102         librarian branchcode aqbooksellerid cost aqbudgetid startdate
 103         periodicity firstacquidate irregularity numberpattern locale
 104         numberlength weeklength monthlength lastvalue1 innerloop1 lastvalue2
 105         innerloop2 lastvalue3 innerloop3 status biblionumber callnumber notes
 106         letter manualhistory internalnotes serialsadditems staffdisplaycount
 107         opacdisplaycount graceperiod location enddate subscriptionid
 108         skip_serialseq
 109     )} );
 110 }
 111 my $expirationdate = GetExpirationDate($subscriptionid) ;
 112 ok( $expirationdate, "expiration date is not NULL" );
 113
 114 ok(C4::Serials::GetSubscriptionHistoryFromSubscriptionId($subscriptionid), 'test getting history from sub-scription');
 115
 116 my ($serials_count, @serials) = GetSerials($subscriptionid);
 117 ok($serials_count > 0, 'Subscription has at least one serial');
 118 my $serial = $serials[0];
 119
 120 ok(C4::Serials::GetSerialStatusFromSerialId($serial->{serialid}), 'test getting Serial Status From Serial Id');
 121
 122 isa_ok(C4::Serials::GetSerialInformation($serial->{serialid}), 'HASH', 'test getting Serial Information');
 123
 124 # Delete created frequency
 125 if ($old_frequency) {
 126     my $freq_to_delete = $subscriptioninformation->{periodicity};
 127     $subscriptioninformation->{periodicity} = $old_frequency;
 128
 129     ModSubscription( @$subscriptioninformation{qw(
 130         librarian branchcode aqbooksellerid cost aqbudgetid startdate
 131         periodicity firstacquidate irregularity numberpattern locale
 132         numberlength weeklength monthlength lastvalue1 innerloop1 lastvalue2
 133         innerloop2 lastvalue3 innerloop3 status biblionumber callnumber notes
 134         letter manualhistory internalnotes serialsadditems staffdisplaycount
 135         opacdisplaycount graceperiod location enddate subscriptionid
 136         skip_serialseq
 137     )} );
 138
 139     DelSubscriptionFrequency($freq_to_delete);
 140 }
 141
 142
 143 # Test calling subs without parameters
 144 is(C4::Serials::AddItem2Serial(), undef, 'test adding item to serial');
 145 is(C4::Serials::UpdateClaimdateIssues(), undef, 'test updating claim date');
 146 is(C4::Serials::GetFullSubscription(), undef, 'test getting full subscription');
 147 is(C4::Serials::PrepareSerialsData(), undef, 'test preparing serial data');
 148 is(C4::Serials::GetSubscriptionsFromBiblionumber(), undef, 'test getting subscriptions form biblio number');
 149
 150 is(C4::Serials::GetSerials(), undef, 'test getting serials when you enter nothing');
 151 is(C4::Serials::GetSerials2(), undef, 'test getting serials when you enter nothing');
 152
 153 is(C4::Serials::GetLatestSerials(), undef, 'test getting lastest serials');
 154
 155 is(C4::Serials::GetDistributedTo(), undef, 'test getting distributed when nothing is entered');
 156
 157 is(C4::Serials::GetNextSeq(), undef, 'test getting next seq when you enter nothing');
 158
 159 is(C4::Serials::GetSeq(), undef, 'test getting seq when you enter nothing');
 160
 161 is(C4::Serials::CountSubscriptionFromBiblionumber(), undef, 'test counting subscription when nothing is entered');
 162
 163 is(C4::Serials::ModSubscriptionHistory(), undef, 'test modding subscription history');
 164
 165 is(C4::Serials::ModSerialStatus(),undef, 'test modding serials');
 166
 167 is(C4::Serials::NewIssue(), undef, 'test getting 0 when nothing is entered');
 168
 169 is(C4::Serials::ItemizeSerials(),undef, 'test getting nothing when nothing is entered');
 170
 171 is(C4::Serials::HasSubscriptionStrictlyExpired(), undef, 'test if the subscriptions has expired');
 172 is(C4::Serials::HasSubscriptionExpired(), undef, 'test if the subscriptions has expired');
 173
 174 is(C4::Serials::GetLateOrMissingIssues(), undef, 'test getting last or missing issues');
 175
 176 is(C4::Serials::removeMissingIssue(), undef, 'test removing a missing issue');
 177
 178 is(C4::Serials::updateClaim(),undef, 'test updating claim');
 179
 180 is(C4::Serials::getsupplierbyserialid(),undef, 'test getting supplier idea');
 181
 182 is(C4::Serials::check_routing(), undef, 'test checking route');
 183
 184 is(C4::Serials::addroutingmember(),undef, 'test adding route member');
 185
 186
 187 # Unit tests for statuses management (Bug 11689)
 188 $subscriptionid = NewSubscription(
 189     undef,      "",     undef, undef, $budget_id, $biblionumber,
 190     '2013-01-01', $frequency_id, undef, undef,  undef,
 191     undef,      undef,  undef, undef, undef, undef,
 192     1,          "notes",undef, '2013-01-01', undef, $pattern_id,
 193     undef,       undef,  0,    "intnotes",  0,
 194     undef, undef, 0,          undef,         '2013-12-31', 0
 195 );
 196 my $total_issues;
 197 ( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid );
 198 is( $total_issues, 1, "NewSubscription created a first serial" );
 199 is( @serials, 1, "GetSerials returns the serial" );
 200 my $subscription = C4::Serials::GetSubscription($subscriptionid);
 201 my $pattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subscription->{numberpattern});
 202 ( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid );
 203 my $publisheddate = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
 204 ( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid );
 205 my $nextpublisheddate = C4::Serials::GetNextDate($subscription, $publisheddate, 1);
 206 my @statuses = qw( 2 2 3 3 3 3 3 4 4 41 42 43 44 5 );
 207 # Add 14 serials
 208 my $counter = 0;
 209 for my $status ( @statuses ) {
 210     my $serialseq = "No.".$counter;
 211     my ( $expected_serial ) = GetSerials2( $subscriptionid, 1 );
 212     C4::Serials::ModSerialStatus( $expected_serial->{serialid}, $serialseq, $publisheddate, $publisheddate, $statuses[$counter], 'an useless note' );
 213     $counter++;
 214 }
 215 # Here we have 15 serials with statuses : 2*2 + 5*3 + 2*4 + 1*41 + 1*42 + 1*43 + 1*44 + 1*5 + 1*1
 216 ( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid );
 217 is( $total_issues, @statuses + 1, "GetSerials returns total_issues" );
 218 my @arrived_missing = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? $_ : () } @serials;
 219 my @others = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? () : $_ } @serials;
 220 is( @arrived_missing, 5, "GetSerials returns 5 arrived/missing by default" );
 221 is( @others, 6, "GetSerials returns all serials not arrived and not missing" );
 222
 223 ( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid, 10 );
 224 is( $total_issues, @statuses + 1, "GetSerials returns total_issues" );
 225 @arrived_missing = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? $_ : () } @serials;
 226 @others = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? () : $_ } @serials;
 227 is( @arrived_missing, 9, "GetSerials returns all arrived/missing if count given" );
 228 is( @others, 6, "GetSerials returns all serials not arrived and not missing if count given" );
 229
 230 $subscription = C4::Serials::GetSubscription($subscriptionid); # Retrieve the updated subscription
 231
 232 my @serialseqs;
 233 for my $am ( @arrived_missing ) {
 234     if ( grep {/^$am->{status}$/} qw( 4 41 42 43 44 ) ) {
 235         push @serialseqs, $am->{serialseq}
 236     } elsif ( grep {/^$am->{status}$/} qw( 5 ) ) {
 237         push @serialseqs, 'not issued ' . $am->{serialseq};
 238     }
 239 }
 240 is( $subscription->{missinglist}, join('; ', @serialseqs), "subscription missinglist is updated after ModSerialStatus" );
 241
 242 $dbh->rollback;