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
   8 use C4::Serials qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate );
   9 use C4::Serials::Frequency;
  10 use C4::Serials::Numberpattern;
  11 use C4::Biblio qw( AddBiblio GetMarcFromKohaField );
  12 use C4::Budgets qw( AddBudgetPeriod AddBudget );
  13 use C4::Items qw( AddItemFromMarc );
  14 use Koha::Database;
  15 use Koha::DateUtils qw( dt_from_string output_pref );
  16 use Koha::Acquisition::Booksellers;
  17 use t::lib::Mocks;
  18 use t::lib::TestBuilder;
  19 use Test::More tests => 52;
  20
  21 BEGIN {
  22     use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate ));
  23 }
  24
  25 my $schema = Koha::Database->new->schema;
  26 $schema->storage->txn_begin;
  27 my $dbh = C4::Context->dbh;
  28
  29 my $builder = t::lib::TestBuilder->new();
  30
  31 # This could/should be used for all untested methods
  32 my @methods = ('updateClaim');
  33 can_ok('C4::Serials', @methods);
  34
  35 $dbh->do(q|UPDATE marc_subfield_structure SET value_builder="callnumber.pl" where kohafield="items.itemcallnumber" and frameworkcode=''|);
  36
  37 my $bookseller = Koha::Acquisition::Bookseller->new(
  38     {
  39         name => "my vendor",
  40         address1 => "bookseller's address",
  41         phone => "0123456",
  42         active => 1
  43     }
  44 );
  45
  46 my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
  47
  48 my $bpid = AddBudgetPeriod({
  49     budget_period_startdate   => '2015-01-01',
  50     budget_period_enddate     => '2015-12-31',
  51     budget_period_description => "budget desc"
  52 });
  53
  54 my $budget_id = AddBudget({
  55     budget_code        => "ABCD",
  56     budget_amount      => "123.132",
  57     budget_name        => "Périodiques",
  58     budget_notes       => "This is a note",
  59     budget_period_id   => $bpid
  60 });
  61
  62 my $frequency_id = AddSubscriptionFrequency({ description => "Test frequency 1" });
  63 my $pattern_id = AddSubscriptionNumberpattern({
  64     label => 'Test numberpattern 1',
  65     description => 'Description for numberpattern 1',
  66     numberingmethod => '{X}',
  67     label1 => q{},
  68     add1 => 1,
  69     every1 => 1,
  70     every1 => 1,
  71     numbering1 => 1,
  72     whenmorethan1 => 1,
  73 });
  74
  75 my $notes = "a\nnote\non\nseveral\nlines";
  76 my $internalnotes = 'intnotes';
  77 my $ccode = 'FIC';
  78 my $subscriptionid = NewSubscription(
  79     undef,      "",     undef, undef, $budget_id, $biblionumber,
  80     '2013-01-01', $frequency_id, undef, undef,  undef,
  81     undef,      undef,  undef, undef, undef, undef,
  82     1,          $notes, ,undef, '2013-01-01', undef, $pattern_id,
  83     undef,       undef,  0,    $internalnotes,  0,
  84     undef, undef, 0,          undef,         '2013-12-31', 0,
  85     undef, undef, undef, $ccode
  86
  87 );
  88
  89 my $subscriptioninformation = GetSubscription( $subscriptionid );
  90
  91 is( $subscriptioninformation->{notes}, $notes, 'NewSubscription should set notes' );
  92 is( $subscriptioninformation->{internalnotes}, $internalnotes, 'NewSubscription should set internalnotes' );
  93 is( $subscriptioninformation->{ccode}, $ccode, 'NewSubscription should set ccode' );
  94
  95 my $subscription_history = C4::Serials::GetSubscriptionHistoryFromSubscriptionId($subscriptionid);
  96 is( $subscription_history->{opacnote}, undef, 'NewSubscription should not set subscriptionhistory opacnotes' );
  97 is( $subscription_history->{librariannote}, undef, 'NewSubscription should not set subscriptionhistory librariannotes' );
  98
  99 my @subscriptions = SearchSubscriptions({string => $subscriptioninformation->{bibliotitle}, orderby => 'title' });
 100 isa_ok( \@subscriptions, 'ARRAY' );
 101
 102 @subscriptions = SearchSubscriptions({ issn => $subscriptioninformation->{issn}, orderby => 'title' });
 103 isa_ok( \@subscriptions, 'ARRAY' );
 104
 105 @subscriptions = SearchSubscriptions({ ean => $subscriptioninformation->{ean}, orderby => 'title' });
 106 isa_ok( \@subscriptions, 'ARRAY' );
 107
 108 @subscriptions = SearchSubscriptions({ biblionumber => $subscriptioninformation->{bibnum}, orderby => 'title' });
 109 isa_ok( \@subscriptions, 'ARRAY' );
 110
 111 my $frequency = GetSubscriptionFrequency($subscriptioninformation->{periodicity});
 112 my $old_frequency;
 113 if (not $frequency->{unit}) {
 114     $old_frequency = $frequency->{id};
 115     $frequency->{unit} = "month";
 116     $frequency->{unitsperissue} = 1;
 117     $frequency->{issuesperunit} = 1;
 118     $frequency->{description} = "Frequency created by t/db_dependant/Serials.t";
 119     $subscriptioninformation->{periodicity} = AddSubscriptionFrequency($frequency);
 120     $subscriptioninformation->{serialsadditems} = 1;
 121     $subscriptioninformation->{ccode} = 'NFIC';
 122
 123     ModSubscription( @$subscriptioninformation{qw(
 124         librarian branchcode aqbooksellerid cost aqbudgetid startdate
 125         periodicity firstacquidate irregularity numberpattern locale
 126         numberlength weeklength monthlength lastvalue1 innerloop1 lastvalue2
 127         innerloop2 lastvalue3 innerloop3 status biblionumber callnumber notes
 128         letter manualhistory internalnotes serialsadditems staffdisplaycount
 129         opacdisplaycount graceperiod location enddate subscriptionid
 130         skip_serialseq itemtype previousitemtype mana_id ccode
 131     )} );
 132 }
 133 my $expirationdate = GetExpirationDate($subscriptionid) ;
 134 ok( $expirationdate, "expiration date is not NULL" );
 135
 136 # Check ModSubscription has updated the ccode
 137 my $subscriptioninformation2 = GetSubscription($subscriptionid);
 138 is( $subscriptioninformation2->{ccode}, 'NFIC', 'ModSubscription should update ccode' );
 139
 140 ok(C4::Serials::GetSubscriptionHistoryFromSubscriptionId($subscriptionid), 'test getting history from sub-scription');
 141
 142 my ($serials_count, @serials) = GetSerials($subscriptionid);
 143 ok($serials_count > 0, 'Subscription has at least one serial');
 144 my $serial = $serials[0];
 145
 146 isa_ok(C4::Serials::GetSerialInformation($serial->{serialid}), 'HASH', 'test getting Serial Information');
 147
 148 subtest 'Values should not be erased on editing' => sub {
 149
 150     plan tests => 1;
 151
 152     my $biblio = $builder->build_sample_biblio();
 153     my $biblionumber = $biblio->biblionumber;
 154     my ( $icn_tag, $icn_sf ) = GetMarcFromKohaField( 'items.itemcallnumber' );
 155     my ( $it_tag, $it_sf )   = GetMarcFromKohaField( 'items.itype' );
 156
 157     my $itemtype = $builder->build( { source => 'Itemtype' } )->{itemtype};
 158     my $itemcallnumber = 'XXXmy itemcallnumberXXX';
 159
 160     my $item_record    = MARC::Record->new;
 161
 162     $item_record->append_fields(
 163         MARC::Field->new( '080', '', '', "a" => "default" ),
 164         MARC::Field->new(
 165             $icn_tag, '', '',
 166             $icn_sf => $itemcallnumber,
 167             $it_sf  => $itemtype
 168         )
 169     );
 170     my ( undef, undef, $itemnumber ) = C4::Items::AddItemFromMarc( $item_record, $biblionumber );
 171     my $serialid = C4::Serials::NewIssue( "serialseq", $subscriptionid, $biblionumber,
 172                                           1, undef, undef, "publisheddatetext", "notes", "routingnotes" );
 173     C4::Serials::AddItem2Serial( $serialid, $itemnumber );
 174     my $serial_info = C4::Serials::GetSerialInformation($serialid);
 175     my ($itemcallnumber_info) = grep { $_->{kohafield} eq 'items.itemcallnumber' }
 176                                      @{ $serial_info->{items}[0]->{iteminformation} };
 177     like( $itemcallnumber_info->{marc_value}, qr|value="$itemcallnumber"| );
 178 };
 179
 180 # Delete created frequency
 181 if ($old_frequency) {
 182     my $freq_to_delete = $subscriptioninformation->{periodicity};
 183     $subscriptioninformation->{periodicity} = $old_frequency;
 184
 185     ModSubscription( @$subscriptioninformation{qw(
 186         librarian branchcode aqbooksellerid cost aqbudgetid startdate
 187         periodicity firstacquidate irregularity numberpattern locale
 188         numberlength weeklength monthlength lastvalue1 innerloop1 lastvalue2
 189         innerloop2 lastvalue3 innerloop3 status biblionumber callnumber notes
 190         letter manualhistory internalnotes serialsadditems staffdisplaycount
 191         opacdisplaycount graceperiod location enddate subscriptionid
 192         skip_serialseq
 193     )} );
 194
 195     DelSubscriptionFrequency($freq_to_delete);
 196 }
 197
 198 # Test calling subs without parameters
 199 is(C4::Serials::AddItem2Serial(), undef, 'test adding item to serial');
 200 is(C4::Serials::GetFullSubscription(), undef, 'test getting full subscription');
 201 is(C4::Serials::PrepareSerialsData(), undef, 'test preparing serial data');
 202
 203 subtest 'GetSubscriptionsFromBiblionumber' => sub {
 204     plan tests => 4;
 205
 206     is( C4::Serials::GetSubscriptionsFromBiblionumber(),
 207         undef, 'test getting subscriptions form biblio number' );
 208
 209     my $subscriptions = C4::Serials::GetSubscriptionsFromBiblionumber($biblionumber);
 210     ModSubscriptionHistory( $subscriptions->[0]->{subscriptionid},
 211         undef, undef, $notes, $notes, $notes );
 212
 213     $subscriptions = C4::Serials::GetSubscriptionsFromBiblionumber($biblionumber);
 214     is( $subscriptions->[0]->{opacnote}, $notes,
 215         'GetSubscriptionsFromBiblionumber should have returned the opacnote as it is in DB, ie. without br tags'
 216     );
 217     is( $subscriptions->[0]->{recievedlist}, $notes,
 218         'GetSubscriptionsFromBiblionumber should have returned recievedlist as it is in DB, ie. without br tags'
 219     );
 220     is( $subscriptions->[0]->{missinglist}, $notes,
 221         'GetSubscriptionsFromBiblionumber should have returned missinglist as it is in DB, ie. without br tags'
 222     );
 223 };
 224
 225 is(C4::Serials::GetSerials(), undef, 'test getting serials when you enter nothing');
 226 is(C4::Serials::GetSerials2(), undef, 'test getting serials when you enter nothing');
 227
 228 is(C4::Serials::GetLatestSerials(), undef, 'test getting lastest serials');
 229
 230 is(C4::Serials::GetNextSeq(), undef, 'test getting next seq when you enter nothing');
 231
 232 is(C4::Serials::GetSeq(), undef, 'test getting seq when you enter nothing');
 233
 234 is(C4::Serials::CountSubscriptionFromBiblionumber(), undef, 'test counting subscription when nothing is entered');
 235
 236 is(C4::Serials::ModSubscriptionHistory(), undef, 'test modding subscription history');
 237
 238 is(C4::Serials::ModSerialStatus(),undef, 'test modding serials');
 239
 240 is(C4::Serials::findSerialsByStatus(), 0, 'test finding serial by status with no parameters');
 241
 242 is(C4::Serials::NewIssue(), undef, 'test getting 0 when nothing is entered');
 243
 244 is(C4::Serials::HasSubscriptionStrictlyExpired(), undef, 'test if the subscriptions has expired');
 245 is(C4::Serials::HasSubscriptionExpired(), undef, 'test if the subscriptions has expired');
 246
 247 is(C4::Serials::GetLateOrMissingIssues(), undef, 'test getting last or missing issues');
 248
 249 subtest 'test_updateClaim' => sub {
 250     plan tests => 11;
 251
 252     my $today = output_pref({ dt => dt_from_string, dateonly => 1 });
 253     # Given ... nothing much
 254     # When ... Then ...
 255     my $result_0 = C4::Serials::updateClaim(undef);
 256     is($result_0, undef, 'Got the expected undef from update claim with nothin');
 257
 258     # Given ... 3 serial. 2 of them updated.
 259     my $claimdate_1   = dt_from_string('2001-01-13'); # arbitrary date some time in the past.
 260     my $claim_count_1 = 5;
 261     my $biblio = $builder->build_sample_biblio;
 262     my $serial1 = $builder->build_object(
 263         {
 264             class => 'Koha::Serials',
 265             value => {
 266                 serialseq      => 'serialseq',
 267                 subscriptionid => $subscriptionid,
 268                 status         => 3,
 269                 biblionumber   => $biblio->biblionumber,
 270                 claimdate      => $claimdate_1,
 271                 claims_count   => $claim_count_1,
 272             }
 273         }
 274     );
 275     my $serial2 = $builder->build_object(
 276         {
 277             class => 'Koha::Serials',
 278             value => {
 279                 serialseq      => 'serialseq',
 280                 subscriptionid => $subscriptionid,
 281                 status         => 3,
 282                 biblionumber   => $biblio->biblionumber,
 283                 claimdate      => $claimdate_1,
 284                 claims_count   => $claim_count_1,
 285             }
 286         }
 287     );
 288     my $serial3 = $builder->build_object(
 289         {
 290             class => 'Koha::Serials',
 291             value => {
 292                 serialseq      => 'serialseq',
 293                 subscriptionid => $subscriptionid,
 294                 status         => 3,
 295                 biblionumber   => $biblio->biblionumber,
 296                 claimdate      => $claimdate_1,
 297                 claims_count   => $claim_count_1,
 298             }
 299         }
 300     );
 301
 302     # When ...
 303     my $result_1 = C4::Serials::updateClaim([$serial1->serialid, $serial2->serialid]);
 304
 305     # Then ...
 306     is($result_1, 2, 'Got the expected 2 from update claim with 2 serial ids');
 307
 308     my @late_or_missing_issues_1_0 = C4::Serials::GetLateOrMissingIssues(undef, $serial1->serialid);
 309     is($late_or_missing_issues_1_0[0]->{claimdate}, $today, 'Got the expected first different claim date from update claim');
 310     is($late_or_missing_issues_1_0[0]->{claims_count}, $claim_count_1+1, 'Got the expected first claim count from update claim');
 311     is($late_or_missing_issues_1_0[0]->{status}, 7, 'Got the expected first claim status from update claim');
 312
 313     my @late_or_missing_issues_1_1 = C4::Serials::GetLateOrMissingIssues(undef, $serial2->serialid);
 314     is($late_or_missing_issues_1_1[0]->{claimdate}, $today, 'Got the expected second different claim date from update claim');
 315     is($late_or_missing_issues_1_1[0]->{claims_count}, $claim_count_1+1, 'Got the expected second claim count from update claim');
 316     is($late_or_missing_issues_1_1[0]->{status}, 7, 'Got the expected second claim status from update claim');
 317
 318     my @late_or_missing_issues_1_2 = C4::Serials::GetLateOrMissingIssues(undef, $serial3->serialid);
 319     is($late_or_missing_issues_1_2[0]->{claimdate}, output_pref({ dt => $claimdate_1, dateonly => 1}), 'Got the expected unchanged claim date from update claim');
 320     is($late_or_missing_issues_1_2[0]->{claims_count}, $claim_count_1, 'Got the expected unchanged claim count from update claim');
 321     is($late_or_missing_issues_1_2[0]->{status}, 3, 'Got the expected unchanged claim status from update claim');
 322 };
 323
 324 is(C4::Serials::check_routing(), undef, 'test checking route');
 325 is(C4::Serials::check_routing($subscriptionid), 0, 'There should not have any routing list for the subscription');
 326 # TODO really test this check_routing subroutine
 327
 328 is(C4::Serials::addroutingmember(),undef, 'test adding route member');
 329
 330
 331 # Unit tests for statuses management (Bug 11689)
 332 $subscriptionid = NewSubscription(
 333     undef,      "",     undef, undef, $budget_id, $biblionumber,
 334     '2013-01-01', $frequency_id, undef, undef,  undef,
 335     undef,      undef,  undef, undef, undef, undef,
 336     1,          $notes,undef, '2013-01-01', undef, $pattern_id,
 337     undef,       undef,  0,    $internalnotes,  0,
 338     undef, undef, 0,          undef,         '2013-12-31', 0
 339 );
 340 my $total_issues;
 341 ( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid );
 342 is( $total_issues, 1, "NewSubscription created a first serial" );
 343 is( @serials, 1, "GetSerials returns the serial" );
 344 my $subscription = C4::Serials::GetSubscription($subscriptionid);
 345 my $pattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subscription->{numberpattern});
 346 ( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid );
 347 my $publisheddate = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
 348 ( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid );
 349 $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subscription->{periodicity});
 350 my $nextpublisheddate = C4::Serials::GetNextDate($subscription, $publisheddate, $frequency, 1);
 351 my @statuses = qw( 2 2 3 3 3 3 3 4 4 41 42 43 44 5 );
 352 # Add 14 serials
 353 my $counter = 0;
 354 for my $status ( @statuses ) {
 355     my $serialseq = "No.".$counter;
 356     my ( $expected_serial ) = GetSerials2( $subscriptionid, [1] );
 357     C4::Serials::ModSerialStatus( $expected_serial->{serialid}, $serialseq, $publisheddate, $publisheddate, $publisheddate, $statuses[$counter], 'an useless note' );
 358     $counter++;
 359 }
 360 # 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
 361 my @serialsByStatus = C4::Serials::findSerialsByStatus(2,$subscriptionid);
 362 is(@serialsByStatus,2,"findSerialsByStatus returns all serials with chosen status");
 363 ( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid );
 364 is( $total_issues, @statuses + 1, "GetSerials returns total_issues" );
 365 my @arrived_missing = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? $_ : () } @serials;
 366 my @others = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? () : $_ } @serials;
 367 is( @arrived_missing, 5, "GetSerials returns 5 arrived/missing by default" );
 368 is( @others, 6, "GetSerials returns all serials not arrived and not missing" );
 369
 370 ( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid, 10 );
 371 is( $total_issues, @statuses + 1, "GetSerials returns total_issues" );
 372 @arrived_missing = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? $_ : () } @serials;
 373 @others = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? () : $_ } @serials;
 374 is( @arrived_missing, 9, "GetSerials returns all arrived/missing if count given" );
 375 is( @others, 6, "GetSerials returns all serials not arrived and not missing if count given" );
 376
 377 $subscription = C4::Serials::GetSubscription($subscriptionid); # Retrieve the updated subscription
 378
 379 my @serialseqs;
 380 for my $am ( @arrived_missing ) {
 381     if ( grep {/^$am->{status}$/} qw( 4 41 42 43 44 ) ) {
 382         push @serialseqs, $am->{serialseq}
 383     } elsif ( grep {/^$am->{status}$/} qw( 5 ) ) {
 384         push @serialseqs, 'not issued ' . $am->{serialseq};
 385     }
 386 }
 387 is( $subscription->{missinglist}, join('; ', @serialseqs), "subscription missinglist is updated after ModSerialStatus" );
 388
 389 subtest "Do not generate an expected if one already exists" => sub {
 390     plan tests => 2;
 391     my ($expected_serial) = GetSerials2( $subscriptionid, [1] );
 392
 393     #Find serialid for serial with status Expected
 394     my $serialexpected = ( C4::Serials::findSerialsByStatus( 1, $subscriptionid ) )[0];
 395
 396     #delete serial with status Expected
 397     C4::Serials::ModSerialStatus( $serialexpected->{serialid}, $serialexpected->{serialseq}, $publisheddate, $publisheddate, $publisheddate, '1', 'an useless note' );
 398     @serialsByStatus = C4::Serials::findSerialsByStatus( 1, $subscriptionid );
 399     is( @serialsByStatus, 1, "ModSerialStatus delete corectly serial expected and create another if not exist" );
 400
 401     # add 1 serial with status=Expected 1
 402     C4::Serials::ModSerialStatus( $expected_serial->{serialid}, 'NO.20', $publisheddate, $publisheddate, $publisheddate, '1', 'an useless note' );
 403
 404     #Now we have two serials it have status expected
 405     #put status delete for last serial
 406     C4::Serials::ModSerialStatus( $serialexpected->{serialid}, $serialexpected->{serialseq}, $publisheddate, $publisheddate, $publisheddate, '1', 'an useless note' );
 407
 408     #try if create or not another serial with status is expected
 409     @serialsByStatus = C4::Serials::findSerialsByStatus( 1, $subscriptionid );
 410     is( @serialsByStatus, 1, "ModSerialStatus delete corectly serial expected and not create another if exists" );
 411 };
 412
 413 subtest "PreserveSerialNotes preference" => sub {
 414     plan tests => 2;
 415     my ($expected_serial) = GetSerials2( $subscriptionid, [1] );
 416
 417     t::lib::Mocks::mock_preference( 'PreserveSerialNotes', 1 );
 418
 419     C4::Serials::ModSerialStatus( $expected_serial->{serialid}, 'NO.20', $publisheddate, $publisheddate, $publisheddate, '1', 'an useless note' );
 420     @serialsByStatus = C4::Serials::findSerialsByStatus( 1, $subscriptionid );
 421     is( $serialsByStatus[0]->{note},$expected_serial->{note}, "note passed through if supposed to");
 422
 423     t::lib::Mocks::mock_preference( 'PreserveSerialNotes', 0 );
 424     $expected_serial = $serialsByStatus[0];
 425     C4::Serials::ModSerialStatus( $expected_serial->{serialid}, 'NO.20', $publisheddate, $publisheddate, $publisheddate, '1', 'an useless note' );
 426     is( $serialsByStatus[0]->{note},$expected_serial->{note}, "note not passed through if not supposed to");
 427
 428 };
 429
 430 subtest "NewSubscription|ModSubscription" => sub {
 431     plan tests => 4;
 432     my $subscriptionid = NewSubscription(
 433         "",      "",     "", "", $budget_id, $biblionumber,
 434         '2013-01-01', $frequency_id, "", "",  "",
 435         "",      "",  "", "", "", "",
 436         1,          $notes,"", '2013-01-01', "", $pattern_id,
 437         "",       "",  0,    $internalnotes,  0,
 438         "", "", 0,          "",         '2013-12-31', 0
 439     );
 440     ok($subscriptionid, "Sending empty string instead of undef to reflect use of the interface");
 441
 442     my $subscription = Koha::Subscriptions->find($subscriptionid);
 443     my $serials = Koha::Serials->search({ subscriptionid => $subscriptionid });
 444     is( $serials->count, 1, "NewSubscription created a first serial" );
 445
 446     my $biblio_2 = $builder->build_sample_biblio;
 447     my $subscription_info = $subscription->unblessed;
 448     $subscription_info->{biblionumber} = $biblio_2->biblionumber;
 449     ModSubscription( @$subscription_info{qw(
 450         librarian branchcode aqbooksellerid cost aqbudgetid startdate
 451         periodicity firstacquidate irregularity numberpattern locale
 452         numberlength weeklength monthlength lastvalue1 innerloop1 lastvalue2
 453         innerloop2 lastvalue3 innerloop3 status biblionumber callnumber notes
 454         letter manualhistory internalnotes serialsadditems staffdisplaycount
 455         opacdisplaycount graceperiod location enddate subscriptionid
 456         skip_serialseq
 457     )} );
 458
 459     $serials = Koha::Serials->search({ subscriptionid => $subscriptionid });
 460     is( $serials->count, 1, "Still only one serial" );
 461     is( $serials->next->biblionumber, $biblio_2->biblionumber, 'ModSubscription should have updated serial.biblionumber');
 462 };
 463
 464 subtest "_numeration" => sub {
 465
 466     plan tests => 6;
 467
 468     my $s = C4::Serials::_numeration(0, 'monthname', 'cat');
 469     is( $s, "gener" );
 470     $s = C4::Serials::_numeration(0, 'monthname', 'es');
 471     is( $s, "enero" );
 472     $s = C4::Serials::_numeration(0, 'monthname', 'fr');
 473     is( $s, "janvier" );
 474
 475     $s = C4::Serials::_numeration(0, 'monthabrv', 'cat');
 476     is( $s, "de gen." );
 477     $s = C4::Serials::_numeration(0, 'monthabrv', 'es');
 478     like( $s, qr{^ene\.?} );
 479     $s = C4::Serials::_numeration(0, 'monthabrv', 'fr');
 480     is( $s, "janv." );
 481 };