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

(-)a/t/Members/cardnumber.t (-3 / +13 lines)
Lines 1-7 Link Here
1
#!/usr/bin/env perl
1
#!/usr/bin/env perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 25;
4
use Module::Load::Conditional qw/check_install/;
5
use Test::More;
6
use Test::MockModule;
5
7
6
use t::lib::Mocks;
8
use t::lib::Mocks;
7
9
Lines 9-17 use Koha::Schema; Link Here
9
use_ok('C4::Members');
11
use_ok('C4::Members');
10
12
11
BEGIN {
13
BEGIN {
12
    use Test::DBIx::Class;
14
    if ( check_install( module => 'Test::DBIx::Class' ) ) {
15
        plan tests => 25;
16
    } else {
17
        plan skip_all => "Need Test::DBIx::Class"
18
    }
13
}
19
}
14
20
21
use Test::DBIx::Class;
22
23
my $db = Test::MockModule->new('Koha::Database');
24
$db->mock( _new_schema => sub { return Schema(); } );
25
15
my $dbh = C4::Context->dbh;
26
my $dbh = C4::Context->dbh;
16
my $rs = [];
27
my $rs = [];
17
28
18
- 

Return to bug 18851