From 98d5e6e7c048cdec062d7927268928a38a4cee42 Mon Sep 17 00:00:00 2001
From: Bouzid Fergani <bouzid.fergani@inlibro.com>
Date: Fri, 16 Dec 2016 10:44:46 -0500
Subject: [PATCH] Bug 17674 - Add unit tests
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

https://bugs.koha-community.org/show_bug.cgi?id=17674

Signed-off-by: Sonia BOUIS <sonia.bouis@univ-lyon3.fr>
Signed-off-by: Séverine QUEUNE <severine.queune@bulac.fr>
---
 t/db_dependent/Serials.t | 47 ++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 46 insertions(+), 1 deletion(-)

diff --git a/t/db_dependent/Serials.t b/t/db_dependent/Serials.t
index 4c0f56a..57bec17 100755
--- a/t/db_dependent/Serials.t
+++ b/t/db_dependent/Serials.t
@@ -17,13 +17,14 @@ use C4::Items;
 use Koha::DateUtils;
 use Koha::Acquisition::Booksellers;
 use t::lib::Mocks;
+use Test::More tests => 50;
 use t::lib::TestBuilder;
-use Test::More tests => 46;
 
 BEGIN {
     use_ok('C4::Serials');
 }
 
+my $builder = t::lib::TestBuilder->new;
 my $dbh = C4::Context->dbh;
 
 # Start transaction
@@ -348,6 +349,50 @@ subtest "Do not generate an expected if one already exists" => sub {
     is( @serialsByStatus, 1, "ModSerialStatus delete corectly serial expected and not create another if exists" );
 };
 
+subtest "Test GetSerialItemsInformations " => sub {
+    plan tests => 4;
+    is (C4::Serials::GetSerialItemsInformations(),0,"test GetSerialItemsInformation with nothing parameters ");
+    my $branchcode = $builder->build({ source => 'Branch' })->{ branchcode };
+    my $itemtype   = $builder->build({ source => 'Itemtype' })->{ itemtype };
+    my %item_infos = (
+        homebranch    => $branchcode,
+        holdingbranch => $branchcode,
+        itype         => $itemtype
+    );
+    my $biblionumber1 = AddBiblio(MARC::Record->new, '');
+    my $itemnumber1 = AddItem({ barcode => '0101', %item_infos }, $biblionumber1);
+    my $itemnumber2 = AddItem({ barcode => '0102', %item_infos }, $biblionumber1);
+    my $itemnumber3 = AddItem({ barcode => '0103', %item_infos }, $biblionumber1);
+    my $itemnumber4 = AddItem({ barcode => '0104', %item_infos }, $biblionumber1);
+    my @serialid = ($serials[0]->{serialid},$serials[1]->{serialid});
+    is (C4::Serials::GetSerialItemsInformations(@serialid),0,"test GetSerialItemsInformation with array of serialid and none have items");
+    subtest "Test with 2 serials and each have one item" => sub {
+        plan tests => 5;
+        AddItem2Serial($serialid[0],$itemnumber1);
+        my @result = C4::Serials::GetSerialItemsInformations(@serialid);
+        is (scalar @result, 1 , "GetSerialItemsInformation return right length of array using 1 serial with 1 item");
+        is (@result[0]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial1");
+        AddItem2Serial($serialid[1],$itemnumber3);
+        @result = C4::Serials::GetSerialItemsInformations(@serialid);
+        is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials and each have 1 item");
+        is (@result[0]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial1");
+        is (@result[1]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial2");
+    };
+    subtest "Test with 2 serials and each have 2 items" => sub {
+        plan tests => 6;
+        AddItem2Serial($serialid[0],$itemnumber2);
+        my @result = C4::Serials::GetSerialItemsInformations(@serialid);
+        is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials ");
+        is (@result[0]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial1");
+        is (@result[1]->{countitems}, 1 , "GetSerialItemsInformation return right number items of serial2");
+        AddItem2Serial($serialid[1],$itemnumber4);
+        @result = C4::Serials::GetSerialItemsInformations(@serialid);
+        is (scalar @result, 2 , "GetSerialItemsInformation return right length of array using 2 serials and each have 2 items ");
+        is (@result[0]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial1");
+        is (@result[1]->{countitems}, 2 , "GetSerialItemsInformation return right number items of serial2");
+    };
+};
+
 $dbh->rollback;
 
 sub get_biblio {
-- 
2.1.4