Bug 19350: Add tests
(cherry picked from commita2cc68e8b7) Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com> (cherry picked from commit4ba051fd6e) Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
This commit is contained in:
parent
729e3aa486
commit
77d232b41c
|
|
@ -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 ) = @_;
|
||||
|
|
|
|||
Loading…
Reference in New Issue