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

(-)a/t/db_dependent/Serials.t (-10 / +10 lines)
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
- 

Return to bug 17674