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

(-)a/t/db_dependent/Serials/GetFictiveIssueNumber.t (-2 / +37 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 133-139 subtest 'Tests for monthly frequencies' => sub { Link Here
133
133
134
};
134
};
135
135
136
# TODO: subtest 'Tests for weekly frequencies' => sub {
136
subtest 'Tests for weekly frequencies' => sub {
137
    plan tests => 4;
138
139
    # First add a few frequencies
140
    my $freq_1i_7w = AddSubscriptionFrequency({
141
        description => "1 issue per 7 weeks",
142
        unit => 'week',
143
        issuesperunit => 1,
144
        unitsperissue => 7,
145
    });
146
    my $freq_3i_1w = AddSubscriptionFrequency({
147
        description => "3 issues per week",
148
        unit => 'week',
149
        issuesperunit => 3,
150
        unitsperissue => 1,
151
    });
152
153
    # TEST CASE - 1 issue per 7 weeks
154
    my $subscription = {
155
        periodicity => $freq_1i_7w,
156
        firstacquidate => '1972-02-10',
157
        countissuesperunit => 1,
158
    };
159
    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-03-29'), 1, 'Mar 29 still 1' );
160
    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-03-30'), 2, 'Mar 30 goes to 2' );
161
162
    # TEST CASE - 3 issue per 1 week
163
    $subscription = {
164
        periodicity => $freq_3i_1w,
165
        firstacquidate => '1972-02-03',
166
        countissuesperunit => 1,
167
    };
168
    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-02-09'), 3, 'Feb 9 still 3' );
169
    is( C4::Serials::GetFictiveIssueNumber($subscription, '1972-02-10'), 4, 'Feb 10 goes to 4' );
170
};
171
137
# TODO: subtest 'Tests for dayly frequencies' => sub {
172
# TODO: subtest 'Tests for dayly frequencies' => sub {
138
173
139
$schema->storage->txn_rollback;
174
$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