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:
parent
0adbf36ab1
commit
9f0e2c59b8
1 changed files with 4 additions and 5 deletions
|
@ -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;
|
||||
|
|
Loading…
Reference in a new issue