|
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 => 46; |
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::ItemizeSerials(),undef, 'test getting nothing when nothing is entered'); |
179 |
is(C4::Serials::ItemizeSerials(),undef, 'test getting nothing when nothing is entered'); |
|
Lines 220-225
for my $status ( @statuses ) {
Link Here
|
| 220 |
$counter++; |
221 |
$counter++; |
| 221 |
} |
222 |
} |
| 222 |
# 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 |
223 |
# 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 |
|
|
224 |
my @serialsByStatus = C4::Serials::findSerialByStatus(2,$subscriptionid); |
| 225 |
is(@serialsByStatus,2,"findSerialByStatus returns all serials with chosen status"); |
| 223 |
( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid ); |
226 |
( $total_issues, @serials ) = C4::Serials::GetSerials( $subscriptionid ); |
| 224 |
is( $total_issues, @statuses + 1, "GetSerials returns total_issues" ); |
227 |
is( $total_issues, @statuses + 1, "GetSerials returns total_issues" ); |
| 225 |
my @arrived_missing = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? $_ : () } @serials; |
228 |
my @arrived_missing = map { my $status = $_->{status}; ( grep { /^$status$/ } qw( 2 4 41 42 43 44 5 ) ) ? $_ : () } @serials; |
| 226 |
- |
|
|