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

(-)a/t/AuthoritiesMarc_MARC21.t (-1 / +1 lines)
Lines 16-22 use MARC::Record; Link Here
16
use C4::AuthoritiesMarc qw( FindDuplicateAuthority );
16
use C4::AuthoritiesMarc qw( FindDuplicateAuthority );
17
17
18
BEGIN {
18
BEGIN {
19
    use_ok( 'C4::AuthoritiesMarc::MARC21', qw( default_auth_type_location fix_marc21_auth_type_location ) );
19
    use_ok('C4::AuthoritiesMarc::MARC21');
20
}
20
}
21
21
22
my @result = C4::AuthoritiesMarc::MARC21::default_auth_type_location();
22
my @result = C4::AuthoritiesMarc::MARC21::default_auth_type_location();
(-)a/t/AuthoritiesMarc_UNIMARC.t (-1 / +1 lines)
Lines 10-16 use Test::NoWarnings; Link Here
10
use Test::More tests => 3;
10
use Test::More tests => 3;
11
11
12
BEGIN {
12
BEGIN {
13
    use_ok( 'C4::AuthoritiesMarc::UNIMARC', qw( default_auth_type_location ) );
13
    use_ok('C4::AuthoritiesMarc::UNIMARC');
14
}
14
}
15
15
16
my @test = C4::AuthoritiesMarc::UNIMARC::default_auth_type_location();
16
my @test = C4::AuthoritiesMarc::UNIMARC::default_auth_type_location();
(-)a/t/ClassSortRoutine_Dewey.t (-1 / +1 lines)
Lines 10-16 use Test::NoWarnings; Link Here
10
use Test::More tests => 11;
10
use Test::More tests => 11;
11
11
12
BEGIN {
12
BEGIN {
13
    use_ok( 'C4::ClassSortRoutine::Dewey', qw( get_class_sort_key ) );
13
    use_ok('C4::ClassSortRoutine::Dewey');
14
}
14
}
15
15
16
my $cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key( undef, undef );
16
my $cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key( undef, undef );
(-)a/t/ClassSortRoutine_Generic.t (-1 / +1 lines)
Lines 10-16 use Test::NoWarnings; Link Here
10
use Test::More tests => 4;
10
use Test::More tests => 4;
11
11
12
BEGIN {
12
BEGIN {
13
    use_ok( 'C4::ClassSortRoutine::Generic', qw( get_class_sort_key ) );
13
    use_ok('C4::ClassSortRoutine::Generic');
14
}
14
}
15
15
16
my $cn_class = "My class ";
16
my $cn_class = "My class ";
(-)a/t/ClassSortRoutine_LCC.t (-1 / +1 lines)
Lines 10-16 use Test::NoWarnings; Link Here
10
use Test::More tests => 11;
10
use Test::More tests => 11;
11
11
12
BEGIN {
12
BEGIN {
13
    use_ok( 'C4::ClassSortRoutine::LCC', qw( get_class_sort_key ) );
13
    use_ok('C4::ClassSortRoutine::LCC');
14
}
14
}
15
15
16
#Obvious cases
16
#Obvious cases
(-)a/t/Creators.t (-1 / +1 lines)
Lines 19-25 use Test::More tests => 42; Link Here
19
19
20
BEGIN {
20
BEGIN {
21
    use_ok('C4::Creators');
21
    use_ok('C4::Creators');
22
    use_ok( 'C4::Creators::PDF', qw( Init Add Bookmark Compress Font FontSize Page StrWidth Text End ) );
22
    use_ok('C4::Creators::PDF');
23
}
23
}
24
24
25
my $pdf_creator = C4::Creators::PDF->new( InitVars => 0 );
25
my $pdf_creator = C4::Creators::PDF->new( InitVars => 0 );
(-)a/t/Labels.t (-1 / +1 lines)
Lines 24-30 use Test::More tests => 12; Link Here
24
use Test::NoWarnings;
24
use Test::NoWarnings;
25
25
26
BEGIN {
26
BEGIN {
27
    use_ok( 'C4::Labels::Label', qw( _get_text_fields _check_params _guide_box ) );
27
    use_ok('C4::Labels::Label');
28
}
28
}
29
29
30
my $format_string   = "title, callnumber";
30
my $format_string   = "title, callnumber";
(-)a/t/Labels_split_Regex.t (-1 / +1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use Test::NoWarnings;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::More tests => 6;
22
use C4::ClassSplitRoutine::RegEx qw( split_callnumber );
22
use C4::ClassSplitRoutine::RegEx;
23
23
24
my $callnumbers = {
24
my $callnumbers = {
25
    '830 Han'          => [qw{830 Han}],
25
    '830 Han'          => [qw{830 Han}],
(-)a/t/Labels_split_ddcn.t (-1 / +1 lines)
Lines 41-47 BEGIN { Link Here
41
        $test_num += 4;
41
        $test_num += 4;
42
    }
42
    }
43
    plan tests => $test_num + 1;
43
    plan tests => $test_num + 1;
44
    use_ok( 'C4::ClassSplitRoutine::Dewey', qw( split_callnumber ) );
44
    use_ok('C4::ClassSplitRoutine::Dewey');
45
    use vars qw($ddcns);
45
    use vars qw($ddcns);
46
}
46
}
47
47
(-)a/t/SMS.t (-1 / +1 lines)
Lines 23-29 use Test::NoWarnings; Link Here
23
use Test::More tests => 9;
23
use Test::More tests => 9;
24
24
25
BEGIN {
25
BEGIN {
26
    use_ok( 'C4::SMS', qw( driver send_sms ) );
26
    use_ok('C4::SMS');
27
}
27
}
28
28
29
my $driver = 'my mock driver';
29
my $driver = 'my mock driver';
(-)a/t/Search/History.t (-2 / +2 lines)
Lines 8-15 use URI::Escape; Link Here
8
use JSON qw( decode_json );
8
use JSON qw( decode_json );
9
9
10
use_ok('Koha::DateUtils');
10
use_ok('Koha::DateUtils');
11
use_ok( 'C4::Search::History', qw( get get_from_session set_to_session delete ) );
11
use_ok('C4::Search::History');
12
use_ok( 'C4::Auth',            qw/get_session/ );
12
use_ok( 'C4::Auth', qw/get_session/ );
13
13
14
# Test session
14
# Test session
15
my $expected_recent_searches = [
15
my $expected_recent_searches = [
(-)a/t/db_dependent/Barcodes.t (-1 / +1 lines)
Lines 30-36 $| = 1; Link Here
30
BEGIN {
30
BEGIN {
31
    use FindBin;
31
    use FindBin;
32
    use lib $FindBin::Bin;
32
    use lib $FindBin::Bin;
33
    use_ok( 'C4::Barcodes', qw( value initial max db_max next_value next previous serial autoBarcode is_max ) );
33
    use_ok('C4::Barcodes');
34
}
34
}
35
35
36
my $builder = t::lib::TestBuilder->new;
36
my $builder = t::lib::TestBuilder->new;
(-)a/t/db_dependent/Barcodes_ValueBuilder.t (-5 / +2 lines)
Lines 17-31 Link Here
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::NoWarnings;
19
use Test::NoWarnings;
20
use Test::More tests => 10;
20
use Test::More tests => 9;
21
use Test::MockModule;
21
use Test::MockModule;
22
use t::lib::TestBuilder;
22
use t::lib::TestBuilder;
23
23
24
use Koha::Database;
24
use Koha::Database;
25
25
use C4::Barcodes::ValueBuilder;
26
BEGIN {
27
    use_ok( 'C4::Barcodes::ValueBuilder', qw( get_barcode ) );
28
}
29
26
30
my $schema = Koha::Database->new->schema;
27
my $schema = Koha::Database->new->schema;
31
$schema->storage->txn_begin;
28
$schema->storage->txn_begin;
(-)a/t/db_dependent/Biblio.t (-1 / +1 lines)
Lines 24-30 use Test::Warn; Link Here
24
use List::MoreUtils qw( uniq );
24
use List::MoreUtils qw( uniq );
25
use MARC::Record;
25
use MARC::Record;
26
26
27
use t::lib::Mocks qw( mock_preference );
27
use t::lib::Mocks;
28
use t::lib::TestBuilder;
28
use t::lib::TestBuilder;
29
29
30
use Koha::ActionLogs;
30
use Koha::ActionLogs;
(-)a/t/db_dependent/Biblio/Isbd.t (-1 / +1 lines)
Lines 21-27 use Test::NoWarnings; Link Here
21
use Test::More tests => 4;
21
use Test::More tests => 4;
22
use Test::MockModule;
22
use Test::MockModule;
23
use MARC::Record;
23
use MARC::Record;
24
use t::lib::Mocks qw( mock_preference );
24
use t::lib::Mocks;
25
25
26
use Koha::Database;
26
use Koha::Database;
27
27
(-)a/t/db_dependent/Breeding.t (-1 / +1 lines)
Lines 28-34 use Test::NoWarnings; Link Here
28
use Test::More tests => 6;
28
use Test::More tests => 6;
29
use Test::Warn;
29
use Test::Warn;
30
30
31
use t::lib::Mocks qw( mock_preference );
31
use t::lib::Mocks;
32
use t::lib::TestBuilder;
32
use t::lib::TestBuilder;
33
33
34
use C4::Context;
34
use C4::Context;
(-)a/t/db_dependent/Circulation/dateexpiry.t (-1 / +1 lines)
Lines 26-32 use Koha::DateUtils qw( dt_from_string output_pref ); Link Here
26
use Koha::Database;
26
use Koha::Database;
27
27
28
use t::lib::TestBuilder;
28
use t::lib::TestBuilder;
29
use t::lib::Mocks qw( mock_preference );
29
use t::lib::Mocks;
30
30
31
my $schema = Koha::Database->new->schema;
31
my $schema = Koha::Database->new->schema;
32
$schema->storage->txn_begin;
32
$schema->storage->txn_begin;
(-)a/t/db_dependent/Heading.t (-1 / +1 lines)
Lines 32-38 use utf8; Link Here
32
use C4::AuthoritiesMarc qw/ AddAuthority /;
32
use C4::AuthoritiesMarc qw/ AddAuthority /;
33
33
34
BEGIN {
34
BEGIN {
35
    use_ok( 'C4::Heading', qw( field valid_heading_subfield ) );
35
    use_ok('C4::Heading');
36
}
36
}
37
37
38
subtest "MARC21 tests" => sub {
38
subtest "MARC21 tests" => sub {
(-)a/t/db_dependent/Heading_MARC21.t (-1 / +1 lines)
Lines 11-17 use Test::More tests => 11; Link Here
11
use C4::Context;
11
use C4::Context;
12
12
13
BEGIN {
13
BEGIN {
14
    use_ok( 'C4::Heading', qw( field new_from_field display_form search_form ) );
14
    use_ok( 'C4::Heading', qw( new_from_field ) );
15
}
15
}
16
16
17
SKIP: {
17
SKIP: {
(-)a/t/db_dependent/Holds.t (-2 / +1 lines)
Lines 24-37 use Koha::Biblios; Link Here
24
use Koha::CirculationRules;
24
use Koha::CirculationRules;
25
use Koha::Database;
25
use Koha::Database;
26
use Koha::DateUtils qw( dt_from_string output_pref );
26
use Koha::DateUtils qw( dt_from_string output_pref );
27
use Koha::Holds     qw( search );
27
use Koha::Holds;
28
use Koha::Checkout;
28
use Koha::Checkout;
29
use Koha::Item::Transfer::Limits;
29
use Koha::Item::Transfer::Limits;
30
use Koha::Items;
30
use Koha::Items;
31
use Koha::Libraries;
31
use Koha::Libraries;
32
use Koha::Library::Groups;
32
use Koha::Library::Groups;
33
use Koha::Patrons;
33
use Koha::Patrons;
34
use Koha::Hold qw( get_items_that_can_fill );
35
use Koha::Item::Transfers;
34
use Koha::Item::Transfers;
36
35
37
BEGIN {
36
BEGIN {
(-)a/t/db_dependent/Holidays.t (-4 / +1 lines)
Lines 31-40 use Koha::DateUtils qw( dt_from_string ); Link Here
31
31
32
BEGIN {
32
BEGIN {
33
    use_ok('Koha::Calendar');
33
    use_ok('Koha::Calendar');
34
    use_ok(
34
    use_ok('C4::Calendar');
35
        'C4::Calendar',
36
        qw( insert_exception_holiday insert_week_day_holiday insert_day_month_holiday insert_single_holiday copy_to_branch get_exception_holidays isHoliday )
37
    );
38
}
35
}
39
36
40
my $schema  = Koha::Database->new->schema;
37
my $schema  = Koha::Database->new->schema;
(-)a/t/db_dependent/ILSDI_Services.t (-4 / +1 lines)
Lines 37-46 use Koha::DateUtils qw( dt_from_string ); Link Here
37
use Koha::MarcSubfieldStructures;
37
use Koha::MarcSubfieldStructures;
38
38
39
BEGIN {
39
BEGIN {
40
    use_ok(
40
    use_ok('C4::ILSDI::Services');
41
        'C4::ILSDI::Services',
42
        qw( AuthenticatePatron GetPatronInfo LookupPatron HoldTitle HoldItem GetRecords RenewLoan GetAvailability )
43
    );
44
}
41
}
45
42
46
my $schema  = Koha::Database->schema;
43
my $schema  = Koha::Database->schema;
(-)a/t/db_dependent/Koha/Plugins/Account_hooks.t (-1 / +1 lines)
Lines 23-29 use Test::Warn; Link Here
23
23
24
use File::Basename;
24
use File::Basename;
25
25
26
use Koha::Account qw( add_credit );
26
use Koha::Account;
27
27
28
use t::lib::Mocks;
28
use t::lib::Mocks;
29
use t::lib::TestBuilder;
29
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Template/Plugin/JSConsents.t (-1 / +1 lines)
Lines 10-16 use Test::More tests => 4; Link Here
10
use t::lib::Mocks;
10
use t::lib::Mocks;
11
11
12
BEGIN {
12
BEGIN {
13
    use_ok( 'Koha::Template::Plugin::JSConsents', "Can use Koha::Template::Plugin::JSConsents" );
13
    use_ok('Koha::Template::Plugin::JSConsents');
14
}
14
}
15
15
16
ok( my $consents = Koha::Template::Plugin::JSConsents->new(), 'Able to instantiate template plugin' );
16
ok( my $consents = Koha::Template::Plugin::JSConsents->new(), 'Able to instantiate template plugin' );
(-)a/t/db_dependent/Koha/Template/Plugin/KohaPlugins.t (-1 / +1 lines)
Lines 48-54 $mock_plugin->mock( Link Here
48
    }
48
    }
49
);
49
);
50
50
51
use_ok( 'Koha::Template::Plugin::KohaPlugins', 'Can use Koha::Template::Plugin::KohaPlugins' );
51
use_ok('Koha::Template::Plugin::KohaPlugins');
52
52
53
ok( my $plugin = Koha::Template::Plugin::KohaPlugins->new(), 'Able to instantiate template plugin' );
53
ok( my $plugin = Koha::Template::Plugin::KohaPlugins->new(), 'Able to instantiate template plugin' );
54
54
(-)a/t/db_dependent/Koha/Template/Plugin/TablesSettings.t (-1 / +4 lines)
Lines 7-16 use C4::Context; Link Here
7
use Test::MockModule;
7
use Test::MockModule;
8
use Test::NoWarnings;
8
use Test::NoWarnings;
9
use Test::More tests => 4;
9
use Test::More tests => 4;
10
10
use t::lib::Mocks;
11
use t::lib::Mocks;
11
12
13
use Koha::Template::Plugin::TablesSettings;
14
12
BEGIN {
15
BEGIN {
13
    use_ok( 'Koha::Template::Plugin::TablesSettings', "Can use Koha::Template::Plugin::TablesSettings" );
16
    use_ok('Koha::Template::Plugin::TablesSettings');
14
}
17
}
15
18
16
ok( my $settings = Koha::Template::Plugin::TablesSettings->new(), 'Able to instantiate template plugin' );
19
ok( my $settings = Koha::Template::Plugin::TablesSettings->new(), 'Able to instantiate template plugin' );
(-)a/t/db_dependent/Koha/Z3950Responder/GenericSession.t (-1 / +1 lines)
Lines 6-12 use utf8; Link Here
6
use Test::NoWarnings;
6
use Test::NoWarnings;
7
use Test::More tests => 4;
7
use Test::More tests => 4;
8
use Test::WWW::Mechanize;
8
use Test::WWW::Mechanize;
9
use t::lib::Mocks qw(mock_preference);
9
use t::lib::Mocks;
10
10
11
use File::Basename;
11
use File::Basename;
12
use File::Copy;
12
use File::Copy;
(-)a/t/db_dependent/Koha/Z3950Responder/ZebraSession.t (-1 / +1 lines)
Lines 5-11 use Modern::Perl; Link Here
5
use Test::NoWarnings;
5
use Test::NoWarnings;
6
use Test::More tests => 4;
6
use Test::More tests => 4;
7
use Test::MockObject;
7
use Test::MockObject;
8
use t::lib::Mocks qw(mock_preference);
8
use t::lib::Mocks;
9
9
10
use ZOOM;
10
use ZOOM;
11
11
(-)a/t/db_dependent/Labels/t_Batch.t (-5 / +2 lines)
Lines 21-27 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Test::NoWarnings;
23
use Test::NoWarnings;
24
use Test::More tests => 26;
24
use Test::More tests => 25;
25
use MARC::Record;
25
use MARC::Record;
26
use MARC::Field;
26
use MARC::Field;
27
27
Lines 30-42 use t::lib::TestBuilder; Link Here
30
use C4::Context;
30
use C4::Context;
31
use C4::Items  qw( AddItemBatchFromMarc );
31
use C4::Items  qw( AddItemBatchFromMarc );
32
use C4::Biblio qw( GetMarcFromKohaField AddBiblio );
32
use C4::Biblio qw( GetMarcFromKohaField AddBiblio );
33
use C4::Labels::Batch;
33
use Koha::Database;
34
use Koha::Database;
34
use Koha::Libraries;
35
use Koha::Libraries;
35
36
36
BEGIN {
37
    use_ok( 'C4::Labels::Batch', qw( save retrieve delete ) );
38
}
39
40
my $schema = Koha::Database->new->schema;
37
my $schema = Koha::Database->new->schema;
41
$schema->storage->txn_begin;
38
$schema->storage->txn_begin;
42
my $dbh = C4::Context->dbh;
39
my $dbh = C4::Context->dbh;
(-)a/t/db_dependent/Linker_Default.t (-2 / +2 lines)
Lines 22-31 use Test::More tests => 3; Link Here
22
use MARC::Record;
22
use MARC::Record;
23
use MARC::Field;
23
use MARC::Field;
24
use MARC::File::XML;
24
use MARC::File::XML;
25
use C4::Heading qw( authorities field new_from_field auth_type search_form );
25
use C4::Heading;
26
use C4::Linker::Default;
26
use C4::Linker::Default;
27
use Test::MockModule;
27
use Test::MockModule;
28
use t::lib::Mocks qw( mock_preference );
28
use t::lib::Mocks;
29
use t::lib::TestBuilder;
29
use t::lib::TestBuilder;
30
30
31
BEGIN {
31
BEGIN {
(-)a/t/db_dependent/Linker_FirstMatch.t (-2 / +2 lines)
Lines 25-34 use Test::More tests => 4; Link Here
25
use MARC::Record;
25
use MARC::Record;
26
use MARC::Field;
26
use MARC::Field;
27
use MARC::File::XML;
27
use MARC::File::XML;
28
use C4::Heading qw( authorities field new_from_field );
28
use C4::Heading;
29
use C4::Linker::FirstMatch;
29
use C4::Linker::FirstMatch;
30
use Test::MockModule;
30
use Test::MockModule;
31
use t::lib::Mocks qw( mock_preference );
31
use t::lib::Mocks;
32
use t::lib::TestBuilder;
32
use t::lib::TestBuilder;
33
33
34
BEGIN {
34
BEGIN {
(-)a/t/db_dependent/Log.t (-1 / +1 lines)
Lines 25-31 use C4::Auth qw( checkpw ); Link Here
25
use Koha::Database;
25
use Koha::Database;
26
use Koha::ActionLogs;
26
use Koha::ActionLogs;
27
27
28
use t::lib::Mocks qw/mock_preference/;    # to mock CronjobLog
28
use t::lib::Mocks;
29
use t::lib::TestBuilder;
29
use t::lib::TestBuilder;
30
30
31
use JSON qw( decode_json );
31
use JSON qw( decode_json );
(-)a/t/db_dependent/Matcher.t (-1 / +1 lines)
Lines 25-31 use t::lib::TestBuilder; Link Here
25
use t::lib::Mocks;
25
use t::lib::Mocks;
26
26
27
use Koha::Database;
27
use Koha::Database;
28
use C4::Matcher qw( GetMatcherList GetMatcherId );
28
use C4::Matcher;
29
29
30
my $schema  = Koha::Database->new->schema;
30
my $schema  = Koha::Database->new->schema;
31
my $builder = t::lib::TestBuilder->new;
31
my $builder = t::lib::TestBuilder->new;
(-)a/t/db_dependent/SIP/SIPServer.t (-1 / +1 lines)
Lines 38-44 BEGIN { Link Here
38
    $mockPrefork->mock( 'run', sub { } );
38
    $mockPrefork->mock( 'run', sub { } );
39
}
39
}
40
40
41
use C4::SIP::SIPServer qw( get_timeout );
41
use C4::SIP::SIPServer;
42
42
43
# Start testing !
43
# Start testing !
44
# TODO We should include more tests here.
44
# TODO We should include more tests here.
(-)a/t/db_dependent/Search/History.t (-1 / +2 lines)
Lines 18-23 use URI::Escape; Link Here
18
use List::Util qw( shuffle );
18
use List::Util qw( shuffle );
19
19
20
use C4::Context;
20
use C4::Context;
21
use C4::Search::History;
21
use Koha::DateUtils qw( dt_from_string output_pref );
22
use Koha::DateUtils qw( dt_from_string output_pref );
22
23
23
my $schema = Koha::Database->new->schema;
24
my $schema = Koha::Database->new->schema;
Lines 29-35 my $dbh = C4::Context->dbh; Link Here
29
t::lib::Mocks::mock_preference( 'SessionStorage', 'tmp' );
30
t::lib::Mocks::mock_preference( 'SessionStorage', 'tmp' );
30
31
31
use_ok('Koha::DateUtils');
32
use_ok('Koha::DateUtils');
32
use_ok( 'C4::Search::History', qw( add get delete get_from_session ) );
33
use_ok('C4::Search::History');
33
34
34
my $userid             = 123;
35
my $userid             = 123;
35
my $previous_sessionid = "PREVIOUS_SESSIONID";
36
my $previous_sessionid = "PREVIOUS_SESSIONID";
(-)a/t/db_dependent/SocialData.t (-2 / +3 lines)
Lines 24-30 use Test::More tests => 3; Link Here
24
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
25
25
26
use Koha::Database;
26
use Koha::Database;
27
use C4::SocialData qw( get_data get_report );
27
use C4::SocialData;
28
28
29
my $schema  = Koha::Database->new->schema;
29
my $schema  = Koha::Database->new->schema;
30
my $builder = t::lib::TestBuilder->new;
30
my $builder = t::lib::TestBuilder->new;
Lines 59-65 subtest 'get_report' => sub { Link Here
59
    is( $report->{'without'}->[0]->{'isbn'},     '9780596526740', 'testing get_report' );
59
    is( $report->{'without'}->[0]->{'isbn'},     '9780596526740', 'testing get_report' );
60
60
61
    # test if we can get with key instead
61
    # test if we can get with key instead
62
    $schema->resultset('SocialData')->search( { isbn => '0-596-52674-1' } )
62
    $schema->resultset('SocialData')
63
        ->search( { isbn => '0-596-52674-1' } )
63
        ->next->update( { isbn => '9780596526740' } );
64
        ->next->update( { isbn => '9780596526740' } );
64
    $report = C4::SocialData::get_report();
65
    $report = C4::SocialData::get_report();
65
    is( $report->{with}->[0]->{isbn}, '9780596526740', 'this isbn has social data' );
66
    is( $report->{with}->[0]->{isbn}, '9780596526740', 'this isbn has social data' );
(-)a/t/db_dependent/UsageStats.t (-2 / +2 lines)
Lines 19-25 use Modern::Perl; Link Here
19
use Test::NoWarnings;
19
use Test::NoWarnings;
20
use Test::More tests => 4;
20
use Test::More tests => 4;
21
21
22
use t::lib::Mocks qw(mock_preference);
22
use t::lib::Mocks;
23
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
24
24
25
use POSIX qw(strftime);
25
use POSIX qw(strftime);
Lines 34-40 use Koha::Old::Holds; Link Here
34
use Koha::Patrons;
34
use Koha::Patrons;
35
35
36
BEGIN {
36
BEGIN {
37
    use_ok( 'C4::UsageStats', qw( BuildReport ReportToCommunity _count ) );
37
    use_ok('C4::UsageStats');
38
}
38
}
39
39
40
can_ok(
40
can_ok(
(-)a/t/db_dependent/rollingloans.t (-2 / +1 lines)
Lines 9-15 use Koha::DateUtils qw( dt_from_string ); Link Here
9
use Koha::Libraries;
9
use Koha::Libraries;
10
use Koha::Patrons;
10
use Koha::Patrons;
11
use t::lib::TestBuilder;
11
use t::lib::TestBuilder;
12
use t::lib::Mocks qw(mock_preference);
12
use t::lib::Mocks;
13
13
14
use Test::NoWarnings;
14
use Test::NoWarnings;
15
use Test::More tests => 9;
15
use Test::More tests => 9;
16
- 

Return to bug 40680