Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity
Koha/t/db_dependent/Serials/GetNextSeq.t
morgane alonso cffb47ac5d Bug 17047: subscriptions management with Mana-KB 
- add a class SharedContent.pm to communicate with Mana-KB server
- add a link in serials-menu.inc to serials_search.pl to open
a mana-subscription research form
- modify the research form in serials-search.tt to show the right fields
for Mana-KB
- create datatable in mana-subscription-search-result.inc to show
results from a research on Mana-KB
- modify serials-search.pl to manage research on Mana-KB

- add a mana_id to subscription table
- add a share button on serials-toolbar.inc and a modal to ask
the language of the share and to alert if the subscription is
already link to a Mana-KB subscription model
- add function in C4/Serials to get all the info for a subscription
sharing
- modify subscription-detail.pl to manage sharing to Mana-KB

- modify subscription-add.tt and subscription.pl to manage a
import from Mana-KB during a subscription creation
- add 2 script in svc for ajax calling from subscription-add.tt
to communicate with Mana-KB server during a asubscription creation
- add a function in Subscription.pm to have all the info for a Mana-KB research
from a biblionumber
- modify functions used by subscription-add.pl in C4/Serials to manage a
frequency which came from Mana-KB server and not already created on the
koha database, and modify the tests of the said functions

Signed-off-by: Brendan A Gallagher <brendan@bywatersolutions.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

Rebased-by: Alex Arnaud <alex.arnaud@biblibre.com> (2018-07-04)
Signed-off-by: Michal Denar <black23@gmail.com>

Signed-off-by: Michal Denar <black23@gmail.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
2019-01-23 14:39:26 +00:00

276 lines
10 KiB
Perl
Raw Blame History

#!/usr/bin/perl
use C4::Context;
use Test::More tests => 32;
use Modern::Perl;
use Koha::Database;
my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;
my $dbh = C4::Context->dbh;
use C4::Serials::Frequency;
use C4::Serials;
my $frequency = {
description => "One issue per day",
unit => 'day',
issuesperunit => 1,
unitsperissue => 1,
};
my $id = AddSubscriptionFrequency($frequency);
# TEST CASE 1 - 1 variable, from 1 to 4
my $pattern = {
add1 => 1, add2 => 0, add3 => 0,
every1 => 1, every2 => 0, every3 => 0,
whenmorethan1 => 4, whenmorethan2 => 0, whenmorethan3 => 0,
setto1 => 1, setto2 => 0, setto3 => 0,
numberingmethod => 'X: {X}',
numbering1 => '',
numbering2 => '',
numbering3 => '',
};
my $subscription = {
periodicity => $id,
firstacquidate => '1970-01-01',
lastvalue1 => 1, lastvalue2 => 1, lastvalue3 => 1,
innerloop1 => 0, innerloop2 => 0, innerloop3 => 0,
skip_serialseq => 1,
irregularity => '3;5',
countissuesperunit => 1,
locale => 'en',
};
my $publisheddate = $subscription->{firstacquidate};
my $seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: 2');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: 4');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: 2');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: 3');
# TEST CASE 2 - 1 variable, use 'dayname' numbering, from 1 to 7
$subscription = {
periodicity => $id,
firstacquidate => '1970-01-01',
lastvalue1 => 1, lastvalue2 => 1, lastvalue3 => 1,
innerloop1 => 0, innerloop2 => 0, innerloop3 => 0,
skip_serialseq => 1,
irregularity => '3;4;6',
countissuesperunit => 1,
locale => 'C',
};
$pattern = {
add1 => 1, add2 => 0, add3 => 0,
every1 => 1, every2 => 0, every3 => 0,
whenmorethan1 => 7, whenmorethan2 => 0, whenmorethan3 => 0,
setto1 => 1, setto2 => 0, setto3 => 0,
numberingmethod => 'X: {X}',
numbering1 => 'dayname',
numbering2 => '',
numbering3 => '',
};
$publisheddate = $subscription->{firstacquidate};
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: Tuesday');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: Friday');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: Sunday');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: Monday');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: Tuesday');
# TEST CASE 3 - 1 variable, use 'monthname' numbering, from 0 to 11 by step of 2
$subscription = {
periodicity => $id,
firstacquidate => '1970-01-01',
lastvalue1 => 0, lastvalue2 => 1, lastvalue3 => 1,
innerloop1 => 0, innerloop2 => 0, innerloop3 => 0,
skip_serialseq => 1,
irregularity => '3;4;6',
countissuesperunit => 1,
locale => 'C',
};
$pattern = {
add1 => 2, add2 => 0, add3 => 0,
every1 => 1, every2 => 0, every3 => 0,
whenmorethan1 => 11, whenmorethan2 => 0, whenmorethan3 => 0,
setto1 => 0, setto2 => 0, setto3 => 0,
numberingmethod => 'X: {X}',
numbering1 => 'monthname',
numbering2 => '',
numbering3 => '',
};
$publisheddate = $subscription->{firstacquidate};
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: March');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: September');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: January');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: March');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: May');
# TEST CASE 4 - 1 variable, use 'season' numbering, from 0 to 3
$subscription = {
periodicity => $id,
firstacquidate => '1970-01-01',
lastvalue1 => 0, lastvalue2 => 1, lastvalue3 => 1,
innerloop1 => 0, innerloop2 => 0, innerloop3 => 0,
skip_serialseq => 1,
irregularity => '3;4;6',
countissuesperunit => 1,
locale => 'C',
};
$pattern = {
add1 => 1, add2 => 0, add3 => 0,
every1 => 1, every2 => 0, every3 => 0,
whenmorethan1 => 3, whenmorethan2 => 0, whenmorethan3 => 0,
setto1 => 0, setto2 => 0, setto3 => 0,
numberingmethod => 'X: {X}',
numbering1 => 'season',
numbering2 => '',
numbering3 => '',
};
$publisheddate = $subscription->{firstacquidate};
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: Summer');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: Spring');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: Fall');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: Winter');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'X: Spring');
# TEST CASE 5 - 2 variables, from 1 to 12, and from 1 to 4
$subscription = {
periodicity => $id,
firstacquidate => '1970-01-01',
lastvalue1 => 1, lastvalue2 => 1, lastvalue3 => 1,
innerloop1 => 0, innerloop2 => 0, innerloop3 => 0,
skip_serialseq => 1,
irregularity => '3;4;6',
countissuesperunit => 1,
locale => 'C',
};
$pattern = {
add1 => 1, add2 => 1, add3 => 0,
every1 => 1, every2 => 4, every3 => 0,
whenmorethan1 => 4, whenmorethan2 => 12, whenmorethan3 => 0,
setto1 => 1, setto2 => 1, setto3 => 0,
numberingmethod => 'Y: {Y}, X: {X}',
numbering1 => '',
numbering2 => '',
numbering3 => '',
};
$publisheddate = $subscription->{firstacquidate};
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Y: 1, X: 2');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Y: 2, X: 1');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Y: 2, X: 3');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Y: 2, X: 4');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Y: 3, X: 1');
# TEST CASE 6 - 3 variables, from 1 to 12, from 1 to 8, and from 1 to 4
$subscription = {
periodicity => $id,
firstacquidate => '1970-01-01',
lastvalue1 => 1, lastvalue2 => 1, lastvalue3 => 1,
innerloop1 => 0, innerloop2 => 0, innerloop3 => 0,
skip_serialseq => 1,
irregularity => '3;4;6;110',
countissuesperunit => 1,
locale => 'C',
};
$pattern = {
add1 => 1, add2 => 1, add3 => 1,
every1 => 1, every2 => 4, every3 => 32,
whenmorethan1 => 4, whenmorethan2 => 8, whenmorethan3 => 12,
setto1 => 1, setto2 => 1, setto3 => 1,
numberingmethod => 'Z: {Z}, Y: {Y}, X: {X}',
numbering1 => '',
numbering2 => '',
numbering3 => '',
};
$publisheddate = $subscription->{firstacquidate};
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Z: 1, Y: 1, X: 2');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Z: 1, Y: 2, X: 1');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Z: 1, Y: 2, X: 3');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Z: 1, Y: 2, X: 4');
for (1..100) {
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
}
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Z: 4, Y: 4, X: 1');
# 110th is here
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Z: 4, Y: 4, X: 3');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Z: 4, Y: 4, X: 4');
$publisheddate = GetNextDate($subscription, $publisheddate, $frequency);
$seq = _next_seq($subscription, $pattern, $frequency, $publisheddate);
is($seq, 'Z: 4, Y: 5, X: 1');
sub _next_seq {
my ($subscription, $pattern, $frequency, $publisheddate) = @_;
my $seq;
($seq, $subscription->{lastvalue1}, $subscription->{lastvalue2},
$subscription->{lastvalue3}, $subscription->{innerloop1},
$subscription->{innerloop2}, $subscription->{innerloop3}) =
GetNextSeq($subscription, $pattern, $frequency, $publisheddate);
return $seq;
}
View git blame Copy permalink