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

(-)a/t/Patron.t (-2 / +12 lines)
Lines 17-32 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 11;
20
use Test::More;
21
use Test::Warn;
21
use Test::Warn;
22
use t::lib::Mocks;
22
use t::lib::Mocks;
23
23
24
use Module::Load::Conditional qw/check_install/;
25
24
BEGIN {
26
BEGIN {
25
    use Test::DBIx::Class;
27
    if ( check_install( module => 'Test::DBIx::Class' ) ) {
28
        plan tests => 11;
29
    } else {
30
        plan skip_all => "Need Test::DBIx::Class"
31
    }
26
    use_ok('Koha::Object');
32
    use_ok('Koha::Object');
27
    use_ok('Koha::Patron');
33
    use_ok('Koha::Patron');
28
}
34
}
29
35
36
use Test::DBIx::Class;
37
my $db = Test::MockModule->new('Koha::Database');
38
$db->mock( _new_schema => sub { return Schema(); } );
39
30
my $object = Koha::Patron->new( { surname => 'Test Patron' } );
40
my $object = Koha::Patron->new( { surname => 'Test Patron' } );
31
is( $object->surname(), 'Test Patron', "Accessor returns correct value" );
41
is( $object->surname(), 'Test Patron', "Accessor returns correct value" );
32
$object->surname('Test Patron Surname');
42
$object->surname('Test Patron Surname');
(-)a/t/Search.t (-1 / +11 lines)
Lines 17-25 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::More;
21
use t::lib::Mocks;
21
use t::lib::Mocks;
22
22
23
use Module::Load::Conditional qw/check_install/;
24
25
BEGIN {
26
    if ( check_install( module => 'Test::DBIx::Class' ) ) {
27
        plan tests => 3;
28
    } else {
29
        plan skip_all => "Need Test::DBIx::Class"
30
    }
31
}
32
23
# Mock the DB connexion and C4::Context
33
# Mock the DB connexion and C4::Context
24
use Test::DBIx::Class;
34
use Test::DBIx::Class;
25
35
(-)a/t/SuggestionEngine_AuthorityFile.t (-1 / +13 lines)
Lines 28-35 use Test::More; Link Here
28
use Test::MockModule;
28
use Test::MockModule;
29
use t::lib::Mocks;
29
use t::lib::Mocks;
30
30
31
# Mock the DB connexion and C4::Context
31
use Module::Load::Conditional qw/check_install/;
32
33
BEGIN {
34
    if ( check_install( module => 'Test::DBIx::Class' ) ) {
35
        plan tests => 3;
36
    } else {
37
        plan skip_all => "Need Test::DBIx::Class"
38
    }
39
}
40
41
# Mock the DB connexion
32
use Test::DBIx::Class;
42
use Test::DBIx::Class;
43
my $db = Test::MockModule->new('Koha::Database');
44
$db->mock( _new_schema => sub { return Schema(); } );
33
45
34
use_ok('Koha::SuggestionEngine');
46
use_ok('Koha::SuggestionEngine');
35
47
(-)a/t/XSLT.t (-1 / +2 lines)
Lines 36-41 BEGIN { Link Here
36
};
36
};
37
37
38
use Test::DBIx::Class;
38
use Test::DBIx::Class;
39
my $db = Test::MockModule->new('Koha::Database');
40
$db->mock( _new_schema => sub { return Schema(); } );
39
41
40
my $dir = File::Temp->newdir();
42
my $dir = File::Temp->newdir();
41
my @themes = ('prog', 'test');
43
my @themes = ('prog', 'test');
42
- 

Return to bug 18851