Bug 19350: Add tests

This commit is contained in:
Jonathan Druart 2017-10-03 12:15:30 -03:00
parent 5c873a408f
commit a2cc68e8b7

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 ) = @_;