View | Details | Raw Unified | Return to bug 18697
Collapse All | Expand All

(-)a/t/db_dependent/Serials/GetFictiveIssueNumber.t (-2 / +39 lines)
Lines 3-9 Link Here
3
# This test deals with GetFictiveIssueNumber (from C4::Serials)
3
# This test deals with GetFictiveIssueNumber (from C4::Serials)
4
4
5
use Modern::Perl;
5
use Modern::Perl;
6
use Test::More tests => 3;
6
use Test::More tests => 4;
7
7
8
use Koha::Database;
8
use Koha::Database;
9
use C4::Serials;
9
use C4::Serials;
Lines 141-147 subtest 'Tests for monthly frequencies' => sub { Link Here
141
141
142
};
142
};
143
143
144
# TODO: subtest 'Tests for weekly frequencies' => sub {
144
subtest 'Tests for weekly frequencies' => sub {
145
    plan tests => 4;
146
147
    # First add a few frequencies
148
    my $freq_1i_7w = AddSubscriptionFrequency({
149
        description => "1 issue per 7 weeks",
150
        unit => 'week',
151
        issuesperunit => 1,
152
        unitsperissue => 7,
153
    });
154
    my $freq_3i_1w = AddSubscriptionFrequency({
155
        description => "3 issues per week",
156
        unit => 'week',
157
        issuesperunit => 3,
158
        unitsperissue => 1,
159
    });
160
161
    # TEST CASE - 1 issue per 7 weeks
162
    my $subscription = {
163
        periodicity => $freq_1i_7w,
164
        firstacquidate => '1972-02-10',
165
        countissuesperunit => 1,
166
    };
167
    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-03-29'), 1, 'Mar 29 still 1' );
168
    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-03-30'), 2, 'Mar 30 goes to 2' );
169
170
    # TEST CASE - 3 issue per 1 week
171
    $subscription = {
172
        periodicity => $freq_3i_1w,
173
        firstacquidate => '1972-02-03',
174
        countissuesperunit => 1,
175
    };
176
    $subscription->{countissuesperunit} = 3;
177
    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-02-09'), 3, 'Feb 9 still 3' );
178
    $subscription->{countissuesperunit} = 1;
179
    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-02-10'), 4, 'Feb 10 goes to 4' );
180
};
181
145
# TODO: subtest 'Tests for dayly frequencies' => sub {
182
# TODO: subtest 'Tests for dayly frequencies' => sub {
146
183
147
$schema->storage->txn_rollback;
184
$schema->storage->txn_rollback;
(-)a/t/db_dependent/Serials/GetNextDate.t (-8 / +5 lines)
Lines 212-224 $subscription = { Link Here
212
};
212
};
213
$publisheddate = $subscription->{firstacquidate};
213
$publisheddate = $subscription->{firstacquidate};
214
$publisheddate = GetNextDate($subscription, $publisheddate);
214
$publisheddate = GetNextDate($subscription, $publisheddate);
215
is($publisheddate, '1970-01-03');
215
is($publisheddate, '1970-01-04');
216
# when more than 1 issue per week, date is automatically set to the same day of
217
# week as firstacquidate
218
$publisheddate = GetNextDate($subscription, $publisheddate);
216
$publisheddate = GetNextDate($subscription, $publisheddate);
219
is($publisheddate, '1970-01-08');
217
is($publisheddate, '1970-01-08');
220
$publisheddate = GetNextDate($subscription, $publisheddate);
218
$publisheddate = GetNextDate($subscription, $publisheddate);
221
is($publisheddate, '1970-01-10');
219
is($publisheddate, '1970-01-11');
222
$publisheddate = GetNextDate($subscription, $publisheddate);
220
$publisheddate = GetNextDate($subscription, $publisheddate);
223
is($publisheddate, '1970-01-15');
221
is($publisheddate, '1970-01-15');
224
222
Lines 231-243 $subscription = { Link Here
231
};
229
};
232
$publisheddate = $subscription->{firstacquidate};
230
$publisheddate = $subscription->{firstacquidate};
233
$publisheddate = GetNextDate($subscription, $publisheddate);
231
$publisheddate = GetNextDate($subscription, $publisheddate);
234
is($publisheddate, '1970-01-03');
232
is($publisheddate, '1970-01-04');
235
$publisheddate = GetNextDate($subscription, $publisheddate);
233
$publisheddate = GetNextDate($subscription, $publisheddate);
236
is($publisheddate, '1970-01-10');
234
is($publisheddate, '1970-01-11');
237
$publisheddate = GetNextDate($subscription, $publisheddate);
235
$publisheddate = GetNextDate($subscription, $publisheddate);
238
is($publisheddate, '1970-01-22');
236
is($publisheddate, '1970-01-22');
239
$publisheddate = GetNextDate($subscription, $publisheddate);
237
$publisheddate = GetNextDate($subscription, $publisheddate);
240
is($publisheddate, '1970-01-24');
238
is($publisheddate, '1970-01-25');
241
$publisheddate = GetNextDate($subscription, $publisheddate);
239
$publisheddate = GetNextDate($subscription, $publisheddate);
242
is($publisheddate, '1970-01-29');
240
is($publisheddate, '1970-01-29');
243
241
244
- 

Return to bug 18697