use Test::MockModule;
use Test::Warn;
+plan tests => 41;
+
use_ok('C4::Biblio');
my $db = Test::MockModule->new('Koha::Database');
is( $ret, 0, 'BiblioAutoLink returns zero if not passed rec');
-warning_is { $ret = GetRecordValue('100', undef, q{}) }
- { carped => 'GetRecordValue called with undefined record'},
- "GetRecordValue returns carped warning on undef record";
-
-ok( !defined $ret, 'GetRecordValue returns undef if not passed rec');
-
warning_is { @arr = LinkBibHeadingsToAuthorities(q{}, q{}) }
{ carped => 'LinkBibHeadingsToAuthorities called on undefined bib record'},
"LinkBibHeadingsToAuthorities returns carped warning on undef record";
is($arr[0], 0, 'LinkBibHeadingsToAuthorities correct error return');
-warning_is { $ret = GetCOinSBiblio() }
- { carped => 'GetCOinSBiblio called with undefined record'},
- "GetCOinSBiblio returns carped warning on undef record";
-
-ok( !defined $ret, 'GetCOinSBiblio returns undef if not passed rec');
-
warning_is { $ret = GetMarcPrice(undef, 'MARC21') }
{ carped => 'GetMarcPrice called on undefined record'},
"GetMarcPrice returns carped warning on undef record";
ok( !defined $ret, 'GetMarcSeries returns undef if not passed rec');
-warning_is { $ret = GetMarcHosts() }
- { carped => 'GetMarcHosts called on undefined record'},
- "GetMarcHosts returns carped warning on undef record";
-
-ok( !defined $ret, 'GetMarcHosts returns undef if not passed rec');
-
my $hash_ref;
warning_is { $hash_ref = TransformMarcToKoha( undef) }