From bb7ac147212e5a1cd3729d3a0547250ac6833aae Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 15 Oct 2015 16:05:14 +0100 Subject: [PATCH] Bug 14778: Install fixtures for t/Biblio.t Note that it already passed before Signed-off-by: Martin Renvoize --- t/Biblio.t | 29 +++++++++++++++++++---------- 1 file changed, 19 insertions(+), 10 deletions(-) diff --git a/t/Biblio.t b/t/Biblio.t index 3217e77..8cf9c9d 100755 --- a/t/Biblio.t +++ b/t/Biblio.t @@ -20,21 +20,30 @@ use Modern::Perl; use Test::More tests => 46; 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; - } -); +use Test::DBIx::Class { + schema_class => 'Koha::Schema', + connect_info => ['dbi:SQLite:dbname=:memory:','',''], + connect_opts => { name_sep => '.', quote_char => '`', }, + fixture_class => '::Populate', +}, 'Biblio' ; + +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 $ret; -- 2.1.4