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

(-)a/t/db_dependent/Serials.t (-2 / +46 lines)
Lines 17-29 use C4::Items; Link Here
17
use Koha::DateUtils;
17
use Koha::DateUtils;
18
use Koha::Acquisition::Booksellers;
18
use Koha::Acquisition::Booksellers;
19
use t::lib::Mocks;
19
use t::lib::Mocks;
20
use Test::More tests => 50;
20
use t::lib::TestBuilder;
21
use t::lib::TestBuilder;
21
use Test::More tests => 46;
22
22
23
BEGIN {
23
BEGIN {
24
    use_ok('C4::Serials');
24
    use_ok('C4::Serials');
25
}
25
}
26
26
27
my $builder = t::lib::TestBuilder->new;
27
my $dbh = C4::Context->dbh;
28
my $dbh = C4::Context->dbh;
28
29
29
# Start transaction
30
# Start transaction
Lines 348-353 subtest "Do not generate an expected if one already exists" => sub { Link Here
348
    is( @serialsByStatus, 1, "ModSerialStatus delete corectly serial expected and not create another if exists" );
349
    is( @serialsByStatus, 1, "ModSerialStatus delete corectly serial expected and not create another if exists" );
349
};
350
};
350
351
352
subtest "Test GetSerialItemsInformations " => sub {
353
    plan tests => 4;
354
    is (C4::Serials::GetSerialItemsInformations(),0,"test GetSerialItemsInformation with nothing parameters ");
355
    my $branchcode = $builder->build({ source => 'Branch' })->{ branchcode };
356
    my $itemtype   = $builder->build({ source => 'Itemtype' })->{ itemtype };
357
    my %item_infos = (
358
        homebranch    => $branchcode,
359
        holdingbranch => $branchcode,
360
        itype         => $itemtype
361
    );
362
    my $biblionumber1 = AddBiblio(MARC::Record->new, '');
363
    my $itemnumber1 = AddItem({ barcode => '0101', %item_infos }, $biblionumber1);
364
    my $itemnumber2 = AddItem({ barcode => '0102', %item_infos }, $biblionumber1);
365
    my $itemnumber3 = AddItem({ barcode => '0103', %item_infos }, $biblionumber1);
366
    my $itemnumber4 = AddItem({ barcode => '0104', %item_infos }, $biblionumber1);
367
    my @serialid = ($serials[0]->{serialid},$serials[1]->{serialid});
368
    is (C4::Serials::GetSerialItemsInformations(@serialid),0,"test GetSerialItemsInformation with array of serialid and none have items");
369
    subtest "Test with 2 serials and each have one item" => sub {
370
        plan tests => 5;
371
        AddItem2Serial($serialid[0],$itemnumber1);
372
        my @result = C4::Serials::GetSerialItemsInformations(@serialid);
373
        is (scalar @result, 1 , "GetSerialItemsInformation return right length of array using 1 serial with 1 item");
374
        is (@result[0]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial1");
375
        AddItem2Serial($serialid[1],$itemnumber3);
376
        @result = C4::Serials::GetSerialItemsInformations(@serialid);
377
        is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials and each have 1 item");
378
        is (@result[0]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial1");
379
        is (@result[1]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial2");
380
    };
381
    subtest "Test with 2 serials and each have 2 items" => sub {
382
        plan tests => 6;
383
        AddItem2Serial($serialid[0],$itemnumber2);
384
        my @result = C4::Serials::GetSerialItemsInformations(@serialid);
385
        is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials ");
386
        is (@result[0]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial1");
387
        is (@result[1]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial2");
388
        AddItem2Serial($serialid[1],$itemnumber4);
389
        @result = C4::Serials::GetSerialItemsInformations(@serialid);
390
        is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials and each have 2 items ");
391
        is (@result[0]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial1");
392
        is (@result[1]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial2");
393
    };
394
};
395
351
$dbh->rollback;
396
$dbh->rollback;
352
397
353
sub get_biblio {
398
sub get_biblio {
354
- 

Return to bug 17674