View | Details | Raw Unified | Return to bug 13274
Collapse All | Expand All

(-)a/t/00-load.t (-9 / +3 lines)
Lines 20-27 use Modern::Perl; Link Here
20
use Test::More;
20
use Test::More;
21
use File::Spec;
21
use File::Spec;
22
use File::Find;
22
use File::Find;
23
use Test::MockModule;
23
24
use DBD::Mock;
24
use t::lib::Mocks;
25
25
26
=head1 DESCRIPTION
26
=head1 DESCRIPTION
27
27
Lines 29-41 use DBD::Mock; Link Here
29
29
30
=cut
30
=cut
31
31
32
# Mock the DB connexion and C4::Context
32
my $context_module = t::lib::Mocks::mock_dbh;
33
my $context = new Test::MockModule('C4::Context');
34
$context->mock( '_new_dbh', sub {
35
        my $dbh = DBI->connect( 'DBI:Mock:', '', '' )
36
          || die "Cannot create handle: $DBI::errstr\n";
37
        return $dbh;
38
});
39
33
40
# Loop through the C4:: modules
34
# Loop through the C4:: modules
41
my $lib = File::Spec->rel2abs('C4');
35
my $lib = File::Spec->rel2abs('C4');
(-)a/t/lib/Mocks.pm (-1 / +12 lines)
Lines 2-7 package t::lib::Mocks; Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use C4::Context;
4
use C4::Context;
5
6
use DBD::Mock;
5
use Test::MockModule;
7
use Test::MockModule;
6
8
7
my %configs;
9
my %configs;
Lines 36-39 sub mock_preference { Link Here
36
    });
38
    });
37
}
39
}
38
40
41
sub mock_dbh {
42
    my $context = new Test::MockModule('C4::Context');
43
    $context->mock( '_new_dbh', sub {
44
        my $dbh = DBI->connect( 'DBI:Mock:', '', '' )
45
          || die "Cannot create handle: $DBI::errstr\n";
46
        return $dbh;
47
    } );
48
    return $context;
49
}
50
39
1;
51
1;
40
- 

Return to bug 13274