Attachment 58263 Details for Bug 17674 – Bug - Add unit tests

[patch] Bug - Add unit tests

Bug---Add-unit-tests.patch (text/plain), 4.08 KB, created by Bouzid Fergani on 2016-12-16 15:58:58 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Bouzid Fergani

Created: 2016-12-16 15:58:58 UTC

Size: 4.08 KB

patch

obsolete

>From 8c45393d24e12848acdee72e3c30e4e983aa3a28 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 - Add unit tests
>
>https://bugs.koha-community.org/show_bug.cgi?id=17674
>---
> t/db_dependent/Serials.t | 49 +++++++++++++++++++++++++++++++++++++++++++++++-
> 1 file changed, 48 insertions(+), 1 deletion(-)
>
>diff --git a/t/db_dependent/Serials.t b/t/db_dependent/Serials.t
>index e09a076..8cf09fd 100755
>--- a/t/db_dependent/Serials.t
>+++ b/t/db_dependent/Serials.t
>@@ -16,12 +16,15 @@ use C4::Biblio;
> use C4::Budgets;
> use Koha::DateUtils;
> use t::lib::Mocks;
>-use Test::More tests => 48;
>+use t::lib::TestBuilder;
>+use C4::Items;
>+use Test::More tests => 49;
> 
> BEGIN {
>     use_ok('C4::Serials');
> }
> 
>+my $builder = t::lib::TestBuilder->new;
> my $dbh = C4::Context->dbh;
> 
> # Start transaction
>@@ -316,4 +319,48 @@ 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;
>-- 
>1.9.1

Actions: View | Diff | Splinter Review

Attachments on bug 17674: 57731 | 58262 | 58263 | 58264 | 60925 | 61314 | 61315 | 61316 | 66565 | 69007 | 69010 | 69011 | 69013 | 69976 | 69977 | 69978 | 69979 | 71865 | 71866 | 71867 | 71868 | 71869 | 72985 | 73032 | 73035 | 73036 | 73037 | 73038 | 73039 | 73040 | 74318 | 74359 | 74472 | 75643 | 75644 | 75645 | 75646 | 75647 | 75648 | 75649 | 77745 | 77746 | 77747 | 77748 | 77749 | 77750 | 77751 | 77861 | 77862 | 77863 | 77864 | 77865 | 77866 | 77867 | 77868 | 79415 | 79420 | 79421 | 79422 | 79423 | 79424 | 79425 | 79426 | 79427 | 79428 | 79453 | 79454 | 79455 | 79456 | 79457 | 79458 | 79459 | 79460 | 80859 | 80944 | 80955 | 82237 | 86689 | 95474 | 99434 | 99944 | 99945 | 100906 | 100907