Bug 14778: Mocks Koha::Database->_new_schema instead of C4::Context->_new_dbh

C4::Context::_new_dbh does not exist anymore.
Koha::Database::_new_schema should be mocked instead.

Will fix:
- t/00-load.t
- t/Breeding.t
- t/ImportBatch.t
- t/Message.t
- t/Overdues.t
- t/Prices.t
- t/RotatingCollections.t
- t/Search.t
- t/SuggestionEngine_AuthorityFile.t
- t/XSLT.t

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Jonathan Druart 2015-10-20 12:03:54 +01:00 committed by Tomas Cohen Arazi
parent 0adbf36ab1
commit 9f0e2c59b8

View file

@ -3,7 +3,7 @@ package t::lib::Mocks;
use Modern::Perl;
use C4::Context;
use DBD::Mock;
use Koha::Schema;
use Test::MockModule;
my %configs;
@ -39,10 +39,9 @@ sub mock_preference {
}
sub mock_dbh {
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";
our $context = new Test::MockModule('Koha::Database');
$context->mock( '_new_schema', sub {
my $dbh = Koha::Schema->connect( 'DBI:Mock:', '', '' );
return $dbh;
} );
return $context;