Attachment 84517 Details for Bug 20664 – Bug 20664: Add unit tests for GetMarcItem

[patch] Bug 20664: Add unit tests for GetMarcItem

Bug-20664-Add-unit-tests-for-GetMarcItem.patch (text/plain), 2.75 KB, created by Ere Maijala on 2019-01-30 13:16:01 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Ere Maijala

Created: 2019-01-30 13:16:01 UTC

Size: 2.75 KB

patch

obsolete

>From 3e82683ac6952613244960e1c66582c272c2de60 Mon Sep 17 00:00:00 2001
>From: Nick Clemens <nick@bywatersolutions.com>
>Date: Tue, 3 Jul 2018 17:05:21 +0000
>Subject: [PATCH] Bug 20664: Add unit tests for GetMarcItem
>
>To test:
>prove -v t/db_dependent/Items.t
>
>Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
>---
> t/db_dependent/Items.t | 45 +++++++++++++++++++++++++++++++++++++++++-
> 1 file changed, 44 insertions(+), 1 deletion(-)
>
>diff --git a/t/db_dependent/Items.t b/t/db_dependent/Items.t
>index abb36dc32e..bde720039d 100755
>--- a/t/db_dependent/Items.t
>+++ b/t/db_dependent/Items.t
>@@ -33,7 +33,7 @@ use Koha::Caches;
> use t::lib::Mocks;
> use t::lib::TestBuilder;
> 
>-use Test::More tests => 15;
>+use Test::More tests => 16;
> 
> use Test::Warn;
> 
>@@ -953,3 +953,46 @@ subtest 'Split subfields in Item2Marc (Bug 21774)' => sub {
> 
>     $schema->storage->txn_rollback;
> };
>+
>+subtest 'tests for GetMarcItem' => sub {
>+    plan tests => 1;
>+    $schema->storage->txn_begin;
>+
>+    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 $item1 = $builder->build_object({
>+        class => 'Koha::Items',
>+        value => {
>+            biblionumber     => $biblio->{biblionumber},
>+            biblioitemnumber => $biblioitem->{biblioitemnumber},
>+            itype            => $itemtype->{itype},
>+            homebranch       => $library->{branchcode},
>+            barcode          => undef,
>+            restricted       => 1,
>+            itemcallnumber   => "",
>+            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
>+    $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;
>+};
>+
>-- 
>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