Lines 15-21
use C4::Bookseller;
Link Here
|
15 |
use C4::Biblio; |
15 |
use C4::Biblio; |
16 |
use C4::Budgets; |
16 |
use C4::Budgets; |
17 |
use Koha::DateUtils; |
17 |
use Koha::DateUtils; |
18 |
use Test::More tests => 45; |
18 |
use Test::More tests => 48; |
19 |
|
19 |
|
20 |
BEGIN { |
20 |
BEGIN { |
21 |
use_ok('C4::Serials'); |
21 |
use_ok('C4::Serials'); |
Lines 173-178
is(C4::Serials::ModSubscriptionHistory(), undef, 'test modding subscription hist
Link Here
|
173 |
|
173 |
|
174 |
is(C4::Serials::ModSerialStatus(),undef, 'test modding serials'); |
174 |
is(C4::Serials::ModSerialStatus(),undef, 'test modding serials'); |
175 |
|
175 |
|
|
|
176 |
is(C4::Serials::findSerialByStatus(), 0, 'test finding serial by status with no parameters'); |
176 |
is(C4::Serials::NewIssue(), undef, 'test getting 0 when nothing is entered'); |
177 |
is(C4::Serials::NewIssue(), undef, 'test getting 0 when nothing is entered'); |
177 |
|
178 |
|
178 |
is(C4::Serials::HasSubscriptionStrictlyExpired(), undef, 'test if the subscriptions has expired'); |
179 |
is(C4::Serials::HasSubscriptionStrictlyExpired(), undef, 'test if the subscriptions has expired'); |
Lines 218-223
for my $status ( @statuses ) {
Link Here
|
218 |
$counter++; |
219 |
$counter++; |
219 |
} |
220 |
} |
220 |
# 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 |
221 |
# 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 |
|
|
222 |
my @serialsByStatus = C4::Serials::findSerialByStatus(2,$subscriptionid); |
223 |
is(@serialsByStatus,2,"findSerialByStatus returns all serials with chosen status"); |
221 |
( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid ); |
224 |
( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid ); |
222 |
is( $total_issues, @statuses + 1, "GetSerials returns total_issues" ); |
225 |
is( $total_issues, @statuses + 1, "GetSerials returns total_issues" ); |
223 |
my @arrived_missing = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? $_ : () } @serials; |
226 |
my @arrived_missing = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? $_ : () } @serials; |
224 |
- |
|
|