Bug 14778: Install fixtures for t/Biblio.t
Note that it already passed before 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
35f33facb3
commit
dffaf369f4
1 changed files with 19 additions and 10 deletions
29
t/Biblio.t
29
t/Biblio.t
|
@ -20,21 +20,30 @@ use Modern::Perl;
|
||||||
use Test::More tests => 46;
|
use Test::More tests => 46;
|
||||||
use Test::MockModule;
|
use Test::MockModule;
|
||||||
use Test::Warn;
|
use Test::Warn;
|
||||||
use DBD::Mock;
|
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
use_ok('C4::Biblio');
|
use_ok('C4::Biblio');
|
||||||
}
|
}
|
||||||
|
|
||||||
my $context = new Test::MockModule('C4::Context');
|
use Test::DBIx::Class {
|
||||||
$context->mock(
|
schema_class => 'Koha::Schema',
|
||||||
'_new_dbh',
|
connect_info => ['dbi:SQLite:dbname=:memory:','',''],
|
||||||
sub {
|
connect_opts => { name_sep => '.', quote_char => '`', },
|
||||||
my $dbh = DBI->connect( 'DBI:Mock:', '', '' )
|
fixture_class => '::Populate',
|
||||||
|| die "Cannot create handle: $DBI::errstr\n";
|
}, 'Biblio' ;
|
||||||
return $dbh;
|
|
||||||
}
|
sub fixtures {
|
||||||
);
|
my ( $data ) = @_;
|
||||||
|
fixtures_ok [
|
||||||
|
Biblio => [
|
||||||
|
[ qw/ biblionumber datecreated timestamp / ],
|
||||||
|
@$data,
|
||||||
|
],
|
||||||
|
], 'add fixtures';
|
||||||
|
}
|
||||||
|
|
||||||
|
my $db = Test::MockModule->new('Koha::Database');
|
||||||
|
$db->mock( _new_schema => sub { return Schema(); } );
|
||||||
|
|
||||||
my @arr;
|
my @arr;
|
||||||
my $ret;
|
my $ret;
|
||||||
|
|
Loading…
Reference in a new issue