Attachment 33645 Details for Bug 13274 – Bug 13274: Mock new_dbh in t::lib::Mocks

[patch] Bug 13274: Mock new_dbh in t::lib::Mocks

Bug-13274-Mock-newdbh-in-tlibMocks.patch (text/plain), 1.69 KB, created by Jonathan Druart on 2014-11-18 09:46:29 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2014-11-18 09:46:29 UTC

Size: 1.69 KB

patch

obsolete

>From 08eb93b5fbde1bd6a528e4b6de22afd7cc64dcf2 Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@biblibre.com>
>Date: Tue, 18 Nov 2014 10:45:02 +0100
>Subject: [PATCH] Bug 13274: Mock new_dbh in t::lib::Mocks
>
>This patch suggests to create a routine to mock C4::Context::_new_dbh.
>---
> t/00-load.t    | 12 +++---------
> t/lib/Mocks.pm | 12 ++++++++++++
> 2 files changed, 15 insertions(+), 9 deletions(-)
>
>diff --git a/t/00-load.t b/t/00-load.t
>index 88830b3..428ef39 100644
>--- a/t/00-load.t
>+++ b/t/00-load.t
>@@ -20,8 +20,8 @@ use Modern::Perl;
> use Test::More;
> use File::Spec;
> use File::Find;
>-use Test::MockModule;
>-use DBD::Mock;
>+
>+use t::lib::Mocks;
> 
> =head1 DESCRIPTION
> 
>@@ -29,13 +29,7 @@ use DBD::Mock;
> 
> =cut
> 
>-# Mock the DB connexion and C4::Context
>-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;
>-});
>+my $context_module = t::lib::Mocks::mock_dbh;
> 
> # Loop through the C4:: modules
> my $lib = File::Spec->rel2abs('C4');
>diff --git a/t/lib/Mocks.pm b/t/lib/Mocks.pm
>index 3f834d2..55ce9d5 100644
>--- a/t/lib/Mocks.pm
>+++ b/t/lib/Mocks.pm
>@@ -2,6 +2,8 @@ package t::lib::Mocks;
> 
> use Modern::Perl;
> use C4::Context;
>+
>+use DBD::Mock;
> use Test::MockModule;
> 
> my %configs;
>@@ -36,4 +38,14 @@ 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";
>+        return $dbh;
>+    } );
>+    return $context;
>+}
>+
> 1;
>-- 
>2.1.0

Actions: View | Diff | Splinter Review

Attachments on bug 13274: 33632 | 33636 | 33638 | 33645 | 33649