From 373106e3aa57d3081a41eb0d07e270e9fff45cb2 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Tue, 1 Aug 2017 15:07:11 -0400 Subject: [PATCH] Bug 14385: Trigger GetMarcBiblio's EmbedItemsInMarcBiblio call. prove t/db_dependent/Items.t --- t/db_dependent/Items.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Items.t b/t/db_dependent/Items.t index 2167e71..2d80aeb 100755 --- a/t/db_dependent/Items.t +++ b/t/db_dependent/Items.t @@ -516,7 +516,7 @@ subtest 'Koha::Item(s) tests' => sub { }; subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub { - plan tests => 7; + plan tests => 8; $schema->storage->txn_begin(); @@ -575,6 +575,9 @@ subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub { my @items = $record->field($itemfield); is( scalar @items, $number_of_items, 'Should return all items' ); + my $marc_with_items = C4::Biblio::GetMarcBiblio( $biblionumber, 1 ); + is_deeply( $record, $marc_with_items, 'A direct call to GetMarcBiblio with items matches'); + C4::Biblio::EmbedItemsInMarcBiblio({ marc_record => $record, biblionumber => $biblionumber, @@ -604,7 +607,11 @@ subtest 'C4::Biblio::EmbedItemsInMarcBiblio' => sub { C4::Biblio::EmbedItemsInMarcBiblio({ marc_record => $record, biblionumber => $biblionumber, +<<<<<<< HEAD opac => 1 }); +======= + opac => 1 ); +>>>>>>> 864dd76... Bug 14385: Trigger GetMarcBiblio's EmbedItemsInMarcBiblio call. @items = $record->field($itemfield); is( scalar @items, -- 2.1.4