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

Return to bug 17674