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

(-)a/t/Biblio.t (-1 / +12 lines)
Lines 18-29 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 44;
20
use Test::More tests => 44;
21
use Test::MockModule;
21
use Test::Warn;
22
use Test::Warn;
23
use DBD::Mock;
22
24
23
BEGIN {
25
BEGIN {
24
        use_ok('C4::Biblio');
26
        use_ok('C4::Biblio');
25
}
27
}
26
28
29
my $context = new Test::MockModule('C4::Context');
30
$context->mock(
31
    '_new_dbh',
32
    sub {
33
        my $dbh = DBI->connect( 'DBI:Mock:', '', '' )
34
          || die "Cannot create handle: $DBI::errstr\n";
35
        return $dbh;
36
    }
37
);
38
27
my @arr;
39
my @arr;
28
my $ret;
40
my $ret;
29
41
30
- 

Return to bug 13230