use Modern::Perl;
-use Test::More tests => 46;
+use Test::More;
use Test::MockModule;
use Test::Warn;
-use DBD::Mock;
-
-BEGIN {
- use_ok('C4::Biblio');
-}
-
-my $context = new Test::MockModule('C4::Context');
-$context->mock(
- '_new_dbh',
- sub {
- my $dbh = DBI->connect( 'DBI:Mock:', '', '' )
- || die "Cannot create handle: $DBI::errstr\n";
- return $dbh;
- }
-);
+
+plan tests => 47;
+
+use_ok('C4::Biblio');
+
+my $db = Test::MockModule->new('Koha::Database');
+$db->mock( _new_schema => sub { return Schema(); } );
my @arr;
my $ret;
my $hash_ref;
-warning_is { $hash_ref = TransformMarcToKoha(undef, undef) }
+warning_is { $hash_ref = TransformMarcToKoha( undef) }
{ carped => 'TransformMarcToKoha called with undefined record'},
"TransformMarcToKoha returns carped warning on undef record";
ok( !defined $ret, 'RemoveAllNsb returns undef if not passed rec');
warning_is { $ret = GetMarcBiblio() }
+ { carped => 'GetMarcBiblio called without parameters'},
+ "GetMarcBiblio returns carped warning on no parameters";
+
+warning_is { $ret = GetMarcBiblio({ biblionumber => undef }) }
{ carped => 'GetMarcBiblio called with undefined biblionumber'},
"GetMarcBiblio returns carped warning on undef biblionumber";
ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist');
-1;