Attachment 85900 Details for Bug 20664 – Bug 20664: Unit tests for GetMarcItemFields

[patch] Bug 20664: Unit tests for GetMarcItemFields

Bug-20664-Unit-tests-for-GetMarcItemFields.patch (text/plain), 5.90 KB, created by Ere Maijala on 2019-03-01 14:17:42 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Ere Maijala

Created: 2019-03-01 14:17:42 UTC

Size: 5.90 KB

patch

obsolete

>From 8d468a0f7235211227876ba8e5ddac7e6431eaf3 Mon Sep 17 00:00:00 2001
>From: Nick Clemens <nick@bywatersolutions.com>
>Date: Wed, 4 Jul 2018 01:26:02 +0000
>Subject: [PATCH] Bug 20664: Unit tests for GetMarcItemFields
>
>To test:
>prove -v t/db_dependent/Items.t
>
>Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
>Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
>---
> t/db_dependent/Items.t | 97 ++++++++++++++++++++++++++++++++++++++++--
> 1 file changed, 94 insertions(+), 3 deletions(-)
>
>diff --git a/t/db_dependent/Items.t b/t/db_dependent/Items.t
>index 9261651cff..c11f8f999d 100755
>--- a/t/db_dependent/Items.t
>+++ b/t/db_dependent/Items.t
>@@ -34,7 +34,7 @@ use Koha::AuthorisedValues;
> use t::lib::Mocks;
> use t::lib::TestBuilder;
> 
>-use Test::More tests => 16;
>+use Test::More tests => 17;
> 
> use Test::Warn;
> 
>@@ -1023,14 +1023,105 @@ subtest 'tests for GetMarcItem' => sub {
>             cn_sort          => "",
>         }
>     });
>-    my ($itemtag, $item_num_subfield )=C4::Biblio::GetMarcFromKohaField("items.itemnumber");
>     my $get_itemnumber = $item1->itemnumber;
>     my $item1_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $item1->itemnumber );
>     my (undef, undef, $itemnumber2 ) = AddItemFromMarc( $item1_marc, $biblio->{biblionumber} );
>     my $item2_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $itemnumber2 );
>-    ($itemtag, $item_num_subfield )=C4::Biblio::GetMarcFromKohaField("items.itemnumber"); #get itemnumber tag
>+    my ($itemtag, $item_num_subfield )=C4::Biblio::GetMarcFromKohaField("items.itemnumber"); #get itemnumber tag
>     $item1_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #and remove it
>     $item2_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #because it won't match
>     is_deeply( $item1_marc, $item2_marc, "The Marc should match if the items are the same");
>     $schema->storage->txn_rollback;
> };
>+
>+subtest 'tests for GetMarcItemFields' => sub {
>+    plan tests => 5;
>+    $schema->storage->txn_begin;
>+
>+    #Setup the information we need
>+    my $builder  = t::lib::TestBuilder->new;
>+    my $library  = $builder->build({ source => 'Branch', });
>+    my $itemtype = $builder->build({ source => 'Itemtype', });
>+    my $biblio   = $builder->build({
>+        source => 'Biblio',
>+        value=>{
>+            frameworkcode => "",
>+        }
>+    });
>+    my $biblioitem = $builder->build({
>+        source => 'Biblioitem',
>+        value => { biblionumber => $biblio->{biblionumber} },
>+    });
>+    my @items;
>+    my $item1 = $builder->build_object({
>+        class => 'Koha::Items',
>+        value => {
>+            biblionumber     => $biblio->{biblionumber},
>+            biblioitemnumber => $biblioitem->{biblioitemnumber},
>+            itype            => $itemtype->{itemtype},
>+            homebranch       => $library->{branchcode},
>+            barcode          => undef,
>+            restricted       => 1,
>+            itemcallnumber   => "",
>+            cn_sort          => "",
>+            withdrawn        => 0,
>+        }
>+    });
>+    push @items, GetItem( $item1->itemnumber );
>+    my $item2 = $builder->build_object({
>+        class => 'Koha::Items',
>+        value => {
>+            biblionumber     => $biblio->{biblionumber},
>+            biblioitemnumber => $biblioitem->{biblioitemnumber},
>+            itype            => $itemtype->{itemtype},
>+            homebranch       => $library->{branchcode},
>+            barcode          => undef,
>+            restricted       => 1,
>+            itemcallnumber   => "",
>+            cn_sort          => "",
>+            withdrawn        => 0,
>+        }
>+    });
>+    push @items, GetItem( $item2->itemnumber );
>+    my $item3 = $builder->build_object({
>+        class => 'Koha::Items',
>+        value => {
>+            biblionumber     => $biblio->{biblionumber},
>+            biblioitemnumber => $biblioitem->{biblioitemnumber},
>+            itype            => $itemtype->{itemtype},
>+            homebranch       => $library->{branchcode},
>+            barcode          => undef,
>+            restricted       => 1,
>+            itemcallnumber   => "",
>+            cn_sort          => "",
>+            withdrawn        => 1,
>+        }
>+    });
>+    push @items, GetItem( $item3->itemnumber );
>+
>+    #Get the marc for our items individually for comparison later
>+    my $item1_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $item1->itemnumber );
>+    my $item2_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $item2->itemnumber );
>+    my $item3_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $item3->itemnumber );
>+    my ($itemtag, $item_num_subfield )=C4::Biblio::GetMarcFromKohaField("items.itemnumber"); #get itemnumber tag
>+    $item1_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #and remove it
>+    $item2_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #because it won't match
>+
>+    #Testing with hidden items
>+    my $opachiddenitems = "
>+        withdrawn: [1]";
>+    my $hidingrules = YAML::Load($opachiddenitems);
>+    my $marc_items = C4::Items::GetMarcItemFields( $biblio->{biblionumber}, [], $hidingrules );
>+    @$marc_items[0]->delete_subfield(code => $item_num_subfield);
>+    @$marc_items[1]->delete_subfield(code => $item_num_subfield);
>+    is(scalar @$marc_items, 2, "We should not get a hidden item");
>+    is_deeply( $item1_marc->field($itemtag), @$marc_items[0], "We should get the first item");
>+    is_deeply( $item2_marc->field($itemtag), @$marc_items[1], "We should also get the second item");
>+
>+    #Testing with specified items
>+    $marc_items = C4::Items::GetMarcItemFields( $biblio->{biblionumber}, [ $item3->itemnumber ], undef );
>+    is(scalar @$marc_items,1,"We should only get the specifically requested item");
>+    is_deeply( $item3_marc->field($itemtag), @$marc_items[0], "We should get the third item when explicitly requested");
>+
>+    $schema->storage->txn_rollback;
>+};
>\ No newline at end of file
>-- 
>2.17.1

Actions: View | Diff | Splinter Review

Attachments on bug 20664: 74873 | 75968 | 76045 | 76046 | 76669 | 78868 | 78869 | 78870 | 79225 | 79227 | 79228 | 79229 | 79276 | 79277 | 79278 | 79279 | 84516 | 84517 | 84518 | 84519 | 84520 | 85106 | 85107 | 85108 | 85109 | 85110 | 85776 | 85777 | 85778 | 85779 | 85780 | 85781 | 85898 | 85899 | 85900 | 85901 | 85902 | 85903 | 85904 | 85905 | 86002 | 86003 | 86004 | 86005 | 86006 | 86007 | 86008 | 86009