use Test::More tests => 15;

use Test::More tests => 16;

- 

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;

};