Bug 19350: Add tests

(cherry picked from commit a2cc68e8b7)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
(cherry picked from commit 4ba051fd6e)
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
This commit is contained in:
Jonathan Druart 2017-10-03 12:15:30 -03:00 committed by Katrin Fischer
parent 729e3aa486
commit 77d232b41c
1 changed files with 16 additions and 1 deletions

View File

@ -26,7 +26,7 @@ use Koha::Library;
use t::lib::Mocks;
use t::lib::TestBuilder;
use Test::More tests => 11;
use Test::More tests => 12;
use Test::Warn;
@ -782,6 +782,21 @@ subtest '_mod_item_dates' => sub {
'yetanotherdatetime is ok' );
};
subtest 'get_hostitemnumbers_of' => sub {
plan tests => 1;
my $bib = MARC::Record->new();
$bib->append_fields(
MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'),
MARC::Field->new('245', ' ', ' ', a => 'Silence in the library'),
MARC::Field->new('773', ' ', ' ', b => 'b without 0 or 9'),
);
my ($biblionumber, $bibitemnum) = AddBiblio($bib, '');
my @itemnumbers = C4::Items::get_hostitemnumbers_of( $biblionumber );
is( @itemnumbers, 0, );
};
# Helper method to set up a Biblio.
sub get_biblio {
my ( $frameworkcode ) = @_;