Lines 18-24
use Koha::DateUtils;
Link Here
|
18 |
use Koha::Acquisition::Booksellers; |
18 |
use Koha::Acquisition::Booksellers; |
19 |
use Koha::Serials; |
19 |
use Koha::Serials; |
20 |
use t::lib::Mocks; |
20 |
use t::lib::Mocks; |
21 |
use Test::More tests => 50; |
21 |
use Test::More tests => 49; |
22 |
use t::lib::TestBuilder; |
22 |
use t::lib::TestBuilder; |
23 |
|
23 |
|
24 |
BEGIN { |
24 |
BEGIN { |
Lines 354-382
subtest "Do not generate an expected if one already exists" => sub {
Link Here
|
354 |
|
354 |
|
355 |
subtest "Test GetSerialItemsInformations " => sub { |
355 |
subtest "Test GetSerialItemsInformations " => sub { |
356 |
plan tests => 4; |
356 |
plan tests => 4; |
357 |
is (C4::Serials::GetSerialItemsInformations(),0,"test GetSerialItemsInformation with nothing parameters "); |
357 |
is (Koha::Serials::GetSerialItemsInformations(),0,"test GetSerialItemsInformation with nothing parameters "); |
358 |
my $branchcode = $builder->build({ source => 'Branch' })->{ branchcode }; |
358 |
my $branchcode = $builder->build({ source => 'Branch' })->{ branchcode }; |
359 |
my $itemtype = $builder->build({ source => 'Itemtype' })->{ itemtype }; |
359 |
my $itemtype = $builder->build({ source => 'Itemtype' })->{ itemtype }; |
|
|
360 |
my ($biblionumber1, $bibitemnumber) = AddBiblio(MARC::Record->new, ''); |
360 |
my %item_infos = ( |
361 |
my %item_infos = ( |
361 |
homebranch => $branchcode, |
362 |
homebranch => $branchcode, |
362 |
holdingbranch => $branchcode, |
363 |
holdingbranch => $branchcode, |
363 |
itype => $itemtype |
364 |
itype => $itemtype, |
|
|
365 |
biblioitemnumber => $bibitemnumber, |
364 |
); |
366 |
); |
365 |
my $biblionumber1 = AddBiblio(MARC::Record->new, ''); |
|
|
366 |
my $itemnumber1 = AddItem({ barcode => '0101', %item_infos }, $biblionumber1); |
367 |
my $itemnumber1 = AddItem({ barcode => '0101', %item_infos }, $biblionumber1); |
367 |
my $itemnumber2 = AddItem({ barcode => '0102', %item_infos }, $biblionumber1); |
368 |
my $itemnumber2 = AddItem({ barcode => '0102', %item_infos }, $biblionumber1); |
368 |
my $itemnumber3 = AddItem({ barcode => '0103', %item_infos }, $biblionumber1); |
369 |
my $itemnumber3 = AddItem({ barcode => '0103', %item_infos }, $biblionumber1); |
369 |
my $itemnumber4 = AddItem({ barcode => '0104', %item_infos }, $biblionumber1); |
370 |
my $itemnumber4 = AddItem({ barcode => '0104', %item_infos }, $biblionumber1); |
370 |
my @serialid = ($serials[0]->{serialid},$serials[1]->{serialid}); |
371 |
my @serialid = ($serials[0]->{serialid},$serials[1]->{serialid}); |
371 |
is (C4::Serials::GetSerialItemsInformations(@serialid),0,"test GetSerialItemsInformation with array of serialid and none have items"); |
372 |
is (Koha::Serials::GetSerialItemsInformations(@serialid),0,"test GetSerialItemsInformation with array of serialid and none have items"); |
372 |
subtest "Test with 2 serials and each have one item" => sub { |
373 |
subtest "Test with 2 serials and each have one item" => sub { |
373 |
plan tests => 5; |
374 |
plan tests => 5; |
374 |
AddItem2Serial($serialid[0],$itemnumber1); |
375 |
AddItem2Serial($serialid[0],$itemnumber1); |
375 |
my @result = C4::Serials::GetSerialItemsInformations(@serialid); |
376 |
my @result = Koha::Serials::GetSerialItemsInformations(@serialid); |
376 |
is (scalar @result, 1 , "GetSerialItemsInformation return right length of array using 1 serial with 1 item"); |
377 |
is (scalar @result, 1 , "GetSerialItemsInformation return right length of array using 1 serial with 1 item"); |
377 |
is ($result[0]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial1"); |
378 |
is ($result[0]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial1"); |
378 |
AddItem2Serial($serialid[1],$itemnumber3); |
379 |
AddItem2Serial($serialid[1],$itemnumber3); |
379 |
@result = C4::Serials::GetSerialItemsInformations(@serialid); |
380 |
@result = Koha::Serials::GetSerialItemsInformations(@serialid); |
380 |
is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials and each have 1 item"); |
381 |
is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials and each have 1 item"); |
381 |
is ($result[0]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial1"); |
382 |
is ($result[0]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial1"); |
382 |
is ($result[1]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial2"); |
383 |
is ($result[1]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial2"); |
Lines 384-395
subtest "Test GetSerialItemsInformations " => sub {
Link Here
|
384 |
subtest "Test with 2 serials and each have 2 items" => sub { |
385 |
subtest "Test with 2 serials and each have 2 items" => sub { |
385 |
plan tests => 6; |
386 |
plan tests => 6; |
386 |
AddItem2Serial($serialid[0],$itemnumber2); |
387 |
AddItem2Serial($serialid[0],$itemnumber2); |
387 |
my @result = C4::Serials::GetSerialItemsInformations(@serialid); |
388 |
my @result = Koha::Serials::GetSerialItemsInformations(@serialid); |
388 |
is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials "); |
389 |
is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials "); |
389 |
is ($result[0]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial1"); |
390 |
is ($result[0]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial1"); |
390 |
is ($result[1]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial2"); |
391 |
is ($result[1]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial2"); |
391 |
AddItem2Serial($serialid[1],$itemnumber4); |
392 |
AddItem2Serial($serialid[1],$itemnumber4); |
392 |
@result = C4::Serials::GetSerialItemsInformations(@serialid); |
393 |
@result = Koha::Serials::GetSerialItemsInformations(@serialid); |
393 |
is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials and each have 2 items "); |
394 |
is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials and each have 2 items "); |
394 |
is ($result[0]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial1"); |
395 |
is ($result[0]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial1"); |
395 |
is ($result[1]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial2"); |
396 |
is ($result[1]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial2"); |
396 |
- |
|
|