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

(-)a/t/00-check-atomic-updates.t (+1 lines)
Lines 16-21 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::NoWarnings;
19
use Test::More;
20
use Test::More;
20
use File::Find;
21
use File::Find;
21
22
(-)a/t/00-deprecated.t (-1 / +2 lines)
Lines 5-11 Link Here
5
#
5
#
6
use warnings;
6
use warnings;
7
use strict;
7
use strict;
8
use Test::More tests => 1;
8
use Test::NoWarnings;
9
use Test::More tests => 2;
9
use File::Find;
10
use File::Find;
10
use Cwd;
11
use Cwd;
11
12
(-)a/t/00-load.t (+1 lines)
Lines 19-24 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::NoWarnings;
22
use Test::More;
23
use Test::More;
23
use File::Spec;
24
use File::Spec;
24
use File::Find;
25
use File::Find;
(-)a/t/00-merge-conflict-markers.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use File::Spec;
22
use File::Spec;
22
use File::Find;
23
use File::Find;
23
use IO::File;
24
use IO::File;
(-)a/t/00-testcritic.t (+1 lines)
Lines 3-8 Link Here
3
# This script can be used to run perlcritic on perl files in koha
3
# This script can be used to run perlcritic on perl files in koha
4
4
5
use Modern::Perl;
5
use Modern::Perl;
6
use Test::NoWarnings;
6
use Test::More;
7
use Test::More;
7
use English qw(-no_match_vars);
8
use English qw(-no_match_vars);
8
9
(-)a/t/00-valid-xml.t (+1 lines)
Lines 18-23 Link Here
18
use strict;
18
use strict;
19
use warnings;
19
use warnings;
20
20
21
use Test::NoWarnings;
21
use Test::More;
22
use Test::More;
22
use File::Spec;
23
use File::Spec;
23
use File::Find;
24
use File::Find;
(-)a/t/Acquisition/CanUserManageBasket.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 43;
4
use Test::NoWarnings;
5
use Test::More tests => 44;
5
6
6
use C4::Acquisition qw( GetBasket GetBasketUsers CanUserManageBasket );
7
use C4::Acquisition qw( GetBasket GetBasketUsers CanUserManageBasket );
7
8
(-)a/t/Auth.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 12;
19
use Test::NoWarnings;
20
use Test::More tests => 13;
20
use Test::Warn;
21
use Test::Warn;
21
22
22
use C4::Auth qw( in_iprange );
23
use C4::Auth qw( in_iprange );
(-)a/t/AuthoritiesMarc_MARC21.t (-1 / +2 lines)
Lines 8-14 use warnings; Link Here
8
8
9
use Test::MockModule;
9
use Test::MockModule;
10
use Test::MockObject;
10
use Test::MockObject;
11
use Test::More tests => 5;
11
use Test::NoWarnings;
12
use Test::More tests => 6;
12
use t::lib::Mocks;
13
use t::lib::Mocks;
13
use MARC::Record;
14
use MARC::Record;
14
15
(-)a/t/AuthoritiesMarc_UNIMARC.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 2;
9
use Test::NoWarnings;
10
use Test::More tests => 3;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::AuthoritiesMarc::UNIMARC', qw( default_auth_type_location ));
13
        use_ok('C4::AuthoritiesMarc::UNIMARC', qw( default_auth_type_location ));
(-)a/t/Barcodes_EAN13.t (-1 / +2 lines)
Lines 5-11 Link Here
5
use strict;
5
use strict;
6
use warnings;
6
use warnings;
7
7
8
use Test::More tests => 1;
8
use Test::NoWarnings;
9
use Test::More tests => 2;
9
10
10
BEGIN {
11
BEGIN {
11
        use_ok('C4::Barcodes::EAN13');
12
        use_ok('C4::Barcodes::EAN13');
(-)a/t/Barcodes_annual.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Barcodes::annual');
13
        use_ok('C4::Barcodes::annual');
(-)a/t/Barcodes_hbyymmincr.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Barcodes::hbyymmincr');
13
        use_ok('C4::Barcodes::hbyymmincr');
(-)a/t/Barcodes_incremental.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Barcodes::incremental');
13
        use_ok('C4::Barcodes::incremental');
(-)a/t/Biblio.t (+1 lines)
Lines 17-22 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::NoWarnings;
20
use Test::More;
21
use Test::More;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Warn;
23
use Test::Warn;
(-)a/t/Biblio/TransformHtmlToXml.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use t::lib::Mocks;
22
use t::lib::Mocks;
22
23
23
use XML::Simple;
24
use XML::Simple;
(-)a/t/Biblio2.t (+1 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::NoWarnings;
4
use Test::More;
5
use Test::More;
5
use Test::MockModule;
6
use Test::MockModule;
6
7
(-)a/t/Budgets.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Budgets');
13
        use_ok('C4::Budgets');
(-)a/t/Budgets/CanUserModifyBudget.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 134;
4
use Test::NoWarnings;
5
use Test::More tests => 135;
5
6
6
use C4::Budgets qw( GetBudget GetBudgetUsers CanUserModifyBudget );
7
use C4::Budgets qw( GetBudget GetBudgetUsers CanUserModifyBudget );
7
use t::lib::Mocks;
8
use t::lib::Mocks;
(-)a/t/Budgets/CanUserUseBudget.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 70;
4
use Test::NoWarnings;
5
use Test::More tests => 71;
5
6
6
use C4::Budgets qw( GetBudget GetBudgetUsers CanUserUseBudget );
7
use C4::Budgets qw( GetBudget GetBudgetUsers CanUserUseBudget );
7
use t::lib::Mocks;
8
use t::lib::Mocks;
(-)a/t/Charset.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 16;
20
use Test::NoWarnings;
21
use Test::More tests => 17;
21
use Encode qw( is_utf8 );
22
use Encode qw( is_utf8 );
22
23
23
use MARC::Record;
24
use MARC::Record;
(-)a/t/Circulation/AgeRestrictionMarkers.t (-1 / +2 lines)
Lines 22-28 use Modern::Perl; Link Here
22
22
23
use DateTime;
23
use DateTime;
24
use Koha::DateUtils qw( dt_from_string );
24
use Koha::DateUtils qw( dt_from_string );
25
use Test::More tests => 6;
25
use Test::NoWarnings;
26
use Test::More tests => 7;
26
use Test::Warn;
27
use Test::Warn;
27
28
28
use t::lib::Mocks;
29
use t::lib::Mocks;
(-)a/t/Circulation_barcodedecode.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 29;
20
use Test::NoWarnings;
21
use Test::More tests => 30;
21
use Test::Warn;
22
use Test::Warn;
22
23
23
use C4::Context;
24
use C4::Context;
(-)a/t/ClassSortRoutine.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::ClassSortRoutine');
13
        use_ok('C4::ClassSortRoutine');
(-)a/t/ClassSortRoutine_Dewey.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 10;
9
use Test::NoWarnings;
10
use Test::More tests => 11;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::ClassSortRoutine::Dewey', qw( get_class_sort_key ));
13
        use_ok('C4::ClassSortRoutine::Dewey', qw( get_class_sort_key ));
(-)a/t/ClassSortRoutine_Generic.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 3;
9
use Test::NoWarnings;
10
use Test::More tests => 4;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::ClassSortRoutine::Generic', qw( get_class_sort_key ));
13
        use_ok('C4::ClassSortRoutine::Generic', qw( get_class_sort_key ));
(-)a/t/ClassSortRoutine_LCC.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 10;
9
use Test::NoWarnings;
10
use Test::More tests => 11;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::ClassSortRoutine::LCC', qw( get_class_sort_key ));
13
        use_ok('C4::ClassSortRoutine::LCC', qw( get_class_sort_key ));
(-)a/t/ClassSource.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::ClassSource');
13
        use_ok('C4::ClassSource');
(-)a/t/Context.t (-1 / +2 lines)
Lines 18-24 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use DBI;
20
use DBI;
21
use Test::More tests => 35;
21
use Test::NoWarnings;
22
use Test::More tests => 36;
22
use Test::MockModule;
23
use Test::MockModule;
23
use Test::Warn;
24
use Test::Warn;
24
use YAML::XS;
25
use YAML::XS;
(-)a/t/Contract.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Contract');
13
        use_ok('C4::Contract');
(-)a/t/CookieManager.t (-1 / +2 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI;
21
use CGI;
22
use Data::Dumper qw(Dumper);
22
use Data::Dumper qw(Dumper);
23
use Test::More tests => 3;
23
use Test::NoWarnings;
24
use Test::More tests => 4;
24
25
25
use t::lib::Mocks;
26
use t::lib::Mocks;
26
27
(-)a/t/Creators.t (-1 / +2 lines)
Lines 14-20 use strict; Link Here
14
use warnings;
14
use warnings;
15
15
16
use File::Temp qw/ tempfile  /;
16
use File::Temp qw/ tempfile  /;
17
use Test::More tests => 41;
17
use Test::NoWarnings;
18
use Test::More tests => 42;
18
19
19
BEGIN {
20
BEGIN {
20
        use_ok('C4::Creators');
21
        use_ok('C4::Creators');
(-)a/t/DateUtils.t (-1 / +2 lines)
Lines 4-10 use DateTime::TimeZone; Link Here
4
4
5
use C4::Context;
5
use C4::Context;
6
6
7
use Test::More tests => 83;
7
use Test::NoWarnings;
8
use Test::More tests => 84;
8
9
9
use Test::MockModule;
10
use Test::MockModule;
10
use Test::Warn;
11
use Test::Warn;
(-)a/t/EdiInvoice.t (-1 / +2 lines)
Lines 3-9 use strict; Link Here
3
use warnings;
3
use warnings;
4
use FindBin qw( $Bin );
4
use FindBin qw( $Bin );
5
5
6
use Test::More tests => 26;
6
use Test::NoWarnings;
7
use Test::More tests => 27;
7
use Koha::EDI;
8
use Koha::EDI;
8
9
9
BEGIN { use_ok('Koha::Edifact') }
10
BEGIN { use_ok('Koha::Edifact') }
(-)a/t/Ediorder.t (-1 / +2 lines)
Lines 3-9 use strict; Link Here
3
use warnings;
3
use warnings;
4
use FindBin qw( $Bin );
4
use FindBin qw( $Bin );
5
5
6
use Test::More tests => 13;
6
use Test::NoWarnings;
7
use Test::More tests => 14;
7
use t::lib::Mocks;
8
use t::lib::Mocks;
8
9
9
BEGIN { use_ok('Koha::Edifact::Order') }
10
BEGIN { use_ok('Koha::Edifact::Order') }
(-)a/t/Ediordrsp.t (-1 / +2 lines)
Lines 3-9 use strict; Link Here
3
use warnings;
3
use warnings;
4
use FindBin qw( $Bin );
4
use FindBin qw( $Bin );
5
5
6
use Test::More tests => 16;
6
use Test::NoWarnings;
7
use Test::More tests => 17;
7
8
8
BEGIN { use_ok('Koha::Edifact') }
9
BEGIN { use_ok('Koha::Edifact') }
9
10
(-)a/t/External/BakerTaylor.t (-1 / +2 lines)
Lines 4-10 Link Here
4
4
5
use Modern::Perl;
5
use Modern::Perl;
6
6
7
use Test::More tests => 9;
7
use Test::NoWarnings;
8
use Test::More tests => 10;
8
use t::lib::Mocks;
9
use t::lib::Mocks;
9
10
10
BEGIN {
11
BEGIN {
(-)a/t/External/Syndetics.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::External::Syndetics');
13
        use_ok('C4::External::Syndetics');
(-)a/t/Form_MessagingPreferences.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Form::MessagingPreferences');
13
        use_ok('C4::Form::MessagingPreferences');
(-)a/t/HtmlTags.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 4;
9
use Test::NoWarnings;
10
use Test::More tests => 5;
10
11
11
BEGIN { use_ok('Koha::Template::Plugin::HtmlTags'); }
12
BEGIN { use_ok('Koha::Template::Plugin::HtmlTags'); }
12
13
(-)a/t/Installer_PerlModules.t (-1 / +2 lines)
Lines 5-11 Link Here
5
5
6
use Modern::Perl;
6
use Modern::Perl;
7
7
8
use Test::More tests => 3;
8
use Test::NoWarnings;
9
use Test::More tests => 4;
9
use Test::Warn;
10
use Test::Warn;
10
11
11
BEGIN {
12
BEGIN {
(-)a/t/ItemCirculationAlertPreference.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::ItemCirculationAlertPreference');
13
        use_ok('C4::ItemCirculationAlertPreference');
(-)a/t/Koha/Auth/Permissions.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::NoWarnings;
21
use Test::More tests => 4;
21
22
22
use_ok('Koha::Auth::Permissions');
23
use_ok('Koha::Auth::Permissions');
23
24
(-)a/t/Koha/Authority/ControlledIndicators.t (-1 / +2 lines)
Lines 4-10 use Modern::Perl; Link Here
4
use Data::Dumper qw/Dumper/;
4
use Data::Dumper qw/Dumper/;
5
use MARC::Record;
5
use MARC::Record;
6
use MARC::Field;
6
use MARC::Field;
7
use Test::More tests => 2;
7
use Test::NoWarnings;
8
use Test::More tests => 3;
8
9
9
use t::lib::Mocks;
10
use t::lib::Mocks;
10
use Koha::Authority::ControlledIndicators;
11
use Koha::Authority::ControlledIndicators;
(-)a/t/Koha/Config.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use FindBin qw($Bin $Script);
22
use FindBin qw($Bin $Script);
22
23
23
use_ok('Koha::Config');
24
use_ok('Koha::Config');
(-)a/t/Koha/Database/Columns.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 1;
19
use Test::NoWarnings;
20
use Test::More tests => 2;
20
use Test::MockModule;
21
use Test::MockModule;
21
use FindBin qw($Bin);
22
use FindBin qw($Bin);
22
use Encode;
23
use Encode;
(-)a/t/Koha/DateTime/Format/RFC3339.t (+1 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::NoWarnings;
4
use Test::More;
5
use Test::More;
5
use Test::Exception;
6
use Test::Exception;
6
7
(-)a/t/Koha/DateTime/Format/SQL.t (+1 lines)
Lines 4-9 use Modern::Perl; Link Here
4
use DateTime::TimeZone;
4
use DateTime::TimeZone;
5
use Test::Exception;
5
use Test::Exception;
6
use Test::MockModule;
6
use Test::MockModule;
7
use Test::NoWarnings;
7
use Test::More;
8
use Test::More;
8
9
9
BEGIN { use_ok('Koha::DateTime::Format::SQL'); }
10
BEGIN { use_ok('Koha::DateTime::Format::SQL'); }
(-)a/t/Koha/Email.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
22
22
use Test::MockModule;
23
use Test::MockModule;
23
use Test::Exception;
24
use Test::Exception;
(-)a/t/Koha/Exceptions.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 12;
20
use Test::NoWarnings;
21
use Test::More tests => 13;
21
use Test::MockObject;
22
use Test::MockObject;
22
use Test::Exception;
23
use Test::Exception;
23
24
(-)a/t/Koha/I18N.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 35;
4
use Test::NoWarnings;
5
use Test::More tests => 36;
5
use Test::MockModule;
6
use Test::MockModule;
6
use FindBin qw($Bin);
7
use FindBin qw($Bin);
7
use Encode;
8
use Encode;
(-)a/t/Koha/Installer/Output.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 8;
20
use Test::NoWarnings;
21
use Test::More tests => 9;
21
22
22
use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
23
use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
23
24
(-)a/t/Koha/ItemType.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 8;
22
use Test::NoWarnings;
23
use Test::More tests => 9;
23
24
24
BEGIN {
25
BEGIN {
25
    use_ok('Koha::ItemType');
26
    use_ok('Koha::ItemType');
(-)a/t/Koha/Middleware/RealIP.t (-1 / +2 lines)
Lines 20-26 Link Here
20
20
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
use Test::More tests => 11;
23
use Test::NoWarnings;
24
use Test::More tests => 12;
24
use Test::Warn;
25
use Test::Warn;
25
26
26
use t::lib::Mocks;
27
use t::lib::Mocks;
(-)a/t/Koha/Middleware/SetEnv.t (-1 / +2 lines)
Lines 20-26 Link Here
20
20
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
use Test::More tests => 2;
23
use Test::NoWarnings;
24
use Test::More tests => 3;
24
use Test::Warn;
25
use Test::Warn;
25
26
26
use t::lib::Mocks;
27
use t::lib::Mocks;
(-)a/t/Koha/Object/Message.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
BEGIN {
26
BEGIN {
(-)a/t/Koha/Plugins/SafeURL.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Template;
22
use Template;
22
23
23
subtest 'test double-encoding prevention' => sub {
24
subtest 'test double-encoding prevention' => sub {
(-)a/t/Koha/Plugins/Tab.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use Koha::Plugins::Tab;
24
use Koha::Plugins::Tab;
(-)a/t/Koha/REST/Plugin/Query.t (-1 / +2 lines)
Lines 373-379 sub to_model { Link Here
373
373
374
# The tests
374
# The tests
375
375
376
use Test::More tests => 10;
376
use Test::NoWarnings;
377
use Test::More tests => 11;
377
use Test::Mojo;
378
use Test::Mojo;
378
379
379
subtest 'extract_reserved_params() tests' => sub {
380
subtest 'extract_reserved_params() tests' => sub {
(-)a/t/Koha/Result/Boolean.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
22
22
use_ok('Koha::Result::Boolean');
23
use_ok('Koha::Result::Boolean');
23
24
(-)a/t/Koha/Script.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
BEGIN { use_ok('Koha::Script') }
24
BEGIN { use_ok('Koha::Script') }
(-)a/t/Koha/Script_cron.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::NoWarnings;
21
use Test::More tests => 4;
21
22
22
BEGIN { use_ok( "Koha::Script", '-cron' ) }
23
BEGIN { use_ok( "Koha::Script", '-cron' ) }
23
24
(-)a/t/Koha/SearchEngine/Elasticsearch/QueryBuilder.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 8;
20
use Test::NoWarnings;
21
use Test::More tests => 9;
21
use t::lib::Mocks;
22
use t::lib::Mocks;
22
23
23
use_ok('Koha::SearchEngine::Elasticsearch::QueryBuilder');
24
use_ok('Koha::SearchEngine::Elasticsearch::QueryBuilder');
(-)a/t/Koha/SearchEngine/Elasticsearch/Search.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::MockModule;
22
use Test::MockModule;
22
use t::lib::Mocks;
23
use t::lib::Mocks;
23
use Encode       qw( encode );
24
use Encode       qw( encode );
(-)a/t/Koha/SearchEngine/Search.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/Koha/SearchEngine/Zebra/QueryBuilder.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use Test::MockModule;
22
use Test::MockModule;
22
23
23
use_ok('Koha::SearchEngine::Zebra::QueryBuilder');
24
use_ok('Koha::SearchEngine::Zebra::QueryBuilder');
(-)a/t/Koha/Util/MARC.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::NoWarnings;
21
use Test::More tests => 4;
21
use MARC::Record;
22
use MARC::Record;
22
use MARC::Field;
23
use MARC::Field;
23
24
(-)a/t/Koha/Util/Navigation.t (-1 / +2 lines)
Lines 1-6 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
use Test::More tests => 1;
3
use Test::NoWarnings;
4
use Test::More tests => 2;
4
use Test::MockObject;
5
use Test::MockObject;
5
6
6
use t::lib::Mocks;
7
use t::lib::Mocks;
(-)a/t/Koha/Util/Normalize.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 6;
20
use Test::NoWarnings;
21
use Test::More tests => 7;
21
use Test::Warn;
22
use Test::Warn;
22
23
23
BEGIN {
24
BEGIN {
(-)a/t/Koha/Util/OpenDocument.t (-1 / +2 lines)
Lines 18-24 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use File::Temp qw/tempfile/;
20
use File::Temp qw/tempfile/;
21
use Test::More tests => 4;
21
use Test::NoWarnings;
22
use Test::More tests => 5;
22
23
23
BEGIN { use_ok('Koha::Util::OpenDocument'); }
24
BEGIN { use_ok('Koha::Util::OpenDocument'); }
24
25
(-)a/t/Koha/Z3950responder.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 2;
4
use Test::NoWarnings;
5
use Test::More tests => 3;
5
6
6
BEGIN {
7
BEGIN {
7
    use_ok('Koha::Z3950Responder');
8
    use_ok('Koha::Z3950Responder');
(-)a/t/Koha_MetadataRecord.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 5;
22
use Test::NoWarnings;
23
use Test::More tests => 6;
23
use Test::Warn;
24
use Test::Warn;
24
25
25
use Koha::RecordProcessor;
26
use Koha::RecordProcessor;
(-)a/t/Koha_SearchEngine_Elasticsearch_Browse.t (+1 lines)
Lines 19-24 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::NoWarnings;
22
use Test::More;
23
use Test::More;
23
24
24
use_ok('Koha::SearchEngine::Elasticsearch::Browse');
25
use_ok('Koha::SearchEngine::Elasticsearch::Browse');
(-)a/t/Koha_Template_Plugin_HtmlId.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
22
22
use_ok( 'Koha::Template::Plugin::HtmlId' );
23
use_ok( 'Koha::Template::Plugin::HtmlId' );
23
24
(-)a/t/Koha_Template_Plugin_Koha.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use Test::MockModule;
22
use Test::MockModule;
22
use t::lib::Mocks;
23
use t::lib::Mocks;
23
24
(-)a/t/Koha_Util_FrameworkPlugin.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 7;
4
use Test::NoWarnings;
5
use Test::More tests => 8;
5
6
6
use_ok( 'Koha::Util::FrameworkPlugin', qw(wrapper date_entered) );
7
use_ok( 'Koha::Util::FrameworkPlugin', qw(wrapper date_entered) );
7
8
(-)a/t/Koha_Util_MARC.t (-1 / +2 lines)
Lines 23-29 Link Here
23
use strict;
23
use strict;
24
use warnings;
24
use warnings;
25
25
26
use Test::More tests => 4;
26
use Test::NoWarnings;
27
use Test::More tests => 5;
27
use MARC::Record;
28
use MARC::Record;
28
29
29
BEGIN {
30
BEGIN {
(-)a/t/Koha_XSLT_HTTPS.t (-1 / +2 lines)
Lines 22-28 use Modern::Perl; Link Here
22
use Test::Exception;
22
use Test::Exception;
23
use Test::MockModule;
23
use Test::MockModule;
24
use Test::MockObject;
24
use Test::MockObject;
25
use Test::More tests => 1;
25
use Test::NoWarnings;
26
use Test::More tests => 2;
26
27
27
use Koha::XSLT::HTTPS;
28
use Koha::XSLT::HTTPS;
28
29
(-)a/t/Labels_split_Regex.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use C4::ClassSplitRoutine::RegEx qw( split_callnumber );
22
use C4::ClassSplitRoutine::RegEx qw( split_callnumber );
22
23
23
my $callnumbers = {
24
my $callnumbers = {
(-)a/t/Labels_split_ccn.t (+1 lines)
Lines 20-25 Link Here
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
22
23
use Test::NoWarnings;
23
use Test::More;
24
use Test::More;
24
25
25
BEGIN {
26
BEGIN {
(-)a/t/Labels_split_ddcn.t (+1 lines)
Lines 20-25 Link Here
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
22
23
use Test::NoWarnings;
23
use Test::More;
24
use Test::More;
24
25
25
BEGIN {
26
BEGIN {
(-)a/t/Labels_split_lccn.t (+1 lines)
Lines 21-26 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use C4::ClassSplitRoutine::LCC qw( split_callnumber );
23
use C4::ClassSplitRoutine::LCC qw( split_callnumber );
24
use Test::NoWarnings;
24
use Test::More;
25
use Test::More;
25
26
26
BEGIN {
27
BEGIN {
(-)a/t/Languages.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# with Koha; if not, see <http://www.gnu.org/licenses>.
18
# with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 5;
21
use Test::NoWarnings;
22
use Test::More tests => 6;
22
use Test::MockModule;
23
use Test::MockModule;
23
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
24
use Koha::Cache::Memory::Lite;
25
use Koha::Cache::Memory::Lite;
(-)a/t/Logger.t (-1 / +2 lines)
Lines 22-28 use Koha::Logger; Link Here
22
use t::lib::Mocks;
22
use t::lib::Mocks;
23
23
24
use File::Temp qw/tempfile/;
24
use File::Temp qw/tempfile/;
25
use Test::More tests => 1;
25
use Test::NoWarnings;
26
use Test::More tests => 2;
26
use Test::Warn;
27
use Test::Warn;
27
use Test::Exception;
28
use Test::Exception;
28
29
(-)a/t/Makefile.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 1;
19
use Test::NoWarnings;
20
use Test::More tests => 2;
20
use File::Slurp;
21
use File::Slurp;
21
22
22
my @files = `git ls-tree HEAD|tr -s '\t' ' '|cut -d' ' -f4`;
23
my @files = `git ls-tree HEAD|tr -s '\t' ' '|cut -d' ' -f4`;
(-)a/t/Members_Messaging.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Members::Messaging');
13
        use_ok('C4::Members::Messaging');
(-)a/t/Number/Price.t (-1 / +2 lines)
Lines 1-6 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
use Test::More tests => 37;
3
use Test::NoWarnings;
4
use Test::More tests => 38;
4
5
5
use Test::MockModule;
6
use Test::MockModule;
6
use t::lib::Mocks;
7
use t::lib::Mocks;
(-)a/t/OpenLibrarySearch.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 1;
21
use Test::NoWarnings;
22
use Test::More tests => 2;
22
use LWP::Simple;
23
use LWP::Simple;
23
use JSON;
24
use JSON;
24
my $content  = get("https://openlibrary.org/search.json?q=9780201038095");
25
my $content  = get("https://openlibrary.org/search.json?q=9780201038095");
(-)a/t/Output.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 8;
20
use Test::NoWarnings;
21
use Test::More tests => 9;
21
use Test::Warn;
22
use Test::Warn;
22
use Test::MockModule;
23
use Test::MockModule;
23
24
(-)a/t/Output_JSONStream.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 10;
9
use Test::NoWarnings;
10
use Test::More tests => 11;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Output::JSONStream');
13
        use_ok('C4::Output::JSONStream');
(-)a/t/Patroncards.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Patroncards');
13
        use_ok('C4::Patroncards');
(-)a/t/Patroncards_Batch.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Patroncards::Batch');
13
        use_ok('C4::Patroncards::Batch');
(-)a/t/Patroncards_Lib.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Patroncards::Lib');
13
        use_ok('C4::Patroncards::Lib');
(-)a/t/Patroncards_Patroncard.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Patroncards::Patroncard');
13
        use_ok('C4::Patroncards::Patroncard');
(-)a/t/Patroncards_Profile.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Patroncards::Profile');
13
        use_ok('C4::Patroncards::Profile');
(-)a/t/Patroncards_Template.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Patroncards::Template');
13
        use_ok('C4::Patroncards::Template');
(-)a/t/RecordProcessor.t (+1 lines)
Lines 22-27 use Modern::Perl; Link Here
22
use File::Spec;
22
use File::Spec;
23
use MARC::Record;
23
use MARC::Record;
24
use English qw( -no_match_vars );
24
use English qw( -no_match_vars );
25
use Test::NoWarnings;
25
use Test::More;
26
use Test::More;
26
27
27
BEGIN {
28
BEGIN {
(-)a/t/Ris.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use Modern::Perl;
6
use Modern::Perl;
7
7
8
use t::lib::Mocks;
8
use t::lib::Mocks;
9
use Test::More tests => 4;
9
use Test::NoWarnings;
10
use Test::More tests => 5;
10
11
11
BEGIN {
12
BEGIN {
12
    use_ok('C4::Ris');
13
    use_ok('C4::Ris');
(-)a/t/SIP/Sip.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 9;
20
use Test::NoWarnings;
21
use Test::More tests => 10;
21
use Test::Warn;
22
use Test::Warn;
22
23
23
BEGIN {
24
BEGIN {
(-)a/t/SMS.t (-1 / +2 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use t::lib::Mocks;
20
use t::lib::Mocks;
21
21
22
use Test::More tests => 8;
22
use Test::NoWarnings;
23
use Test::More tests => 9;
23
24
24
BEGIN {
25
BEGIN {
25
    use_ok( 'C4::SMS', qw( driver send_sms ) );
26
    use_ok( 'C4::SMS', qw( driver send_sms ) );
(-)a/t/Scheduler.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 6;
9
use Test::NoWarnings;
10
use Test::More tests => 7;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Scheduler', qw( get_jobs get_at_jobs get_at_job add_at_job remove_at_job ));
13
        use_ok('C4::Scheduler', qw( get_jobs get_at_jobs get_at_job add_at_job remove_at_job ));
(-)a/t/Scrubber.t (-1 / +2 lines)
Lines 3-9 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
$| = 1;
5
$| = 1;
6
use Test::More tests => 31;
6
use Test::NoWarnings;
7
use Test::More tests => 32;
7
use Test::Warn;
8
use Test::Warn;
8
9
9
BEGIN {
10
BEGIN {
(-)a/t/Search.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Warn;
23
use Test::Warn;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/Search/History.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 6;
5
use Test::NoWarnings;
6
use Test::More tests => 7;
6
use URI::Escape;
7
use URI::Escape;
7
use JSON qw( decode_json );
8
use JSON qw( decode_json );
8
9
(-)a/t/Search/buildQuery.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 9;
19
use Test::NoWarnings;
20
use Test::More tests => 10;
20
use Net::Z3950::ZOOM;
21
use Net::Z3950::ZOOM;
21
22
22
use t::lib::Mocks;
23
use t::lib::Mocks;
(-)a/t/Search_PazPar2.t (-1 / +2 lines)
Lines 5-11 Link Here
5
5
6
use Modern::Perl;
6
use Modern::Perl;
7
7
8
use Test::More tests => 14;
8
use Test::NoWarnings;
9
use Test::More tests => 15;
9
use Test::Warn;
10
use Test::Warn;
10
11
11
BEGIN {
12
BEGIN {
(-)a/t/Serials/GetNextSeq.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 46;
4
use Test::NoWarnings;
5
use Test::More tests => 47;
5
use C4::Serials qw( GetNextSeq );
6
use C4::Serials qw( GetNextSeq );
6
7
7
# TEST CASE 1 - 1 variable, from 1 to 4
8
# TEST CASE 1 - 1 variable, from 1 to 4
(-)a/t/Serials/ModSerialStatus.t (-1 / +2 lines)
Lines 22-28 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use Data::Dumper qw/Dumper/;
23
use Data::Dumper qw/Dumper/;
24
24
25
use Test::More tests => 8;
25
use Test::NoWarnings;
26
use Test::More tests => 9;
26
27
27
use C4::Serials;
28
use C4::Serials;
28
29
(-)a/t/SimpleMARC.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 12;
5
use Test::NoWarnings;
6
use Test::More tests => 13;
6
7
7
use_ok("MARC::Field");
8
use_ok("MARC::Field");
8
use_ok("MARC::Record");
9
use_ok("MARC::Record");
(-)a/t/SuggestionEngine.t (+1 lines)
Lines 4-9 use strict; Link Here
4
use warnings;
4
use warnings;
5
use File::Spec;
5
use File::Spec;
6
6
7
use Test::NoWarnings;
7
use Test::More;
8
use Test::More;
8
9
9
BEGIN {
10
BEGIN {
(-)a/t/SuggestionEngine_AuthorityFile.t (-1 / +2 lines)
Lines 20-26 Link Here
20
# for every call to SearchAuthorities
20
# for every call to SearchAuthorities
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use Test::More tests => 2;
23
use Test::NoWarnings;
24
use Test::More tests => 3;
24
use Test::MockModule;
25
use Test::MockModule;
25
26
26
use Koha::SuggestionEngine;
27
use Koha::SuggestionEngine;
(-)a/t/Template/Utils.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 3;
21
use Test::NoWarnings;
22
use Test::More tests => 4;
22
23
23
use utf8;
24
use utf8;
24
25
(-)a/t/Test/Dates.t (-1 / +2 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 8;
2
use Test::NoWarnings;
3
use Test::More tests => 9;
3
use t::lib::Dates;
4
use t::lib::Dates;
4
use Koha::DateUtils qw( dt_from_string );
5
use Koha::DateUtils qw( dt_from_string );
5
6
(-)a/t/TmplToken.t (-1 / +2 lines)
Lines 5-11 Link Here
5
5
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
use Test::More tests => 19;
8
use Test::NoWarnings;
9
use Test::More tests => 20;
9
10
10
BEGIN {
11
BEGIN {
11
        use_ok('C4::TmplToken');
12
        use_ok('C4::TmplToken');
(-)a/t/Token.t (-1 / +2 lines)
Lines 20-26 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use Test::More tests => 12;
23
use Test::NoWarnings;
24
use Test::More tests => 13;
24
use Test::Exception;
25
use Test::Exception;
25
use Time::HiRes qw|usleep|;
26
use Time::HiRes qw|usleep|;
26
27
(-)a/t/db_dependent/00-strict.t (+1 lines)
Lines 5-10 use strict; Link Here
5
use warnings;
5
use warnings;
6
6
7
use threads;    # used for parallel
7
use threads;    # used for parallel
8
use Test::NoWarnings;
8
use Test::More;
9
use Test::More;
9
use Test::Strict;
10
use Test::Strict;
10
use Parallel::ForkManager;
11
use Parallel::ForkManager;
(-)a/t/db_dependent/Accounts.t (-1 / +2 lines)
Lines 18-24 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use Test::More tests => 27;
21
use Test::NoWarnings;
22
use Test::More tests => 28;
22
use Test::MockModule;
23
use Test::MockModule;
23
use Test::Exception;
24
use Test::Exception;
24
use Test::Warn;
25
use Test::Warn;
(-)a/t/db_dependent/Acquisition.t (-1 / +2 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use POSIX qw(strftime);
20
use POSIX qw(strftime);
21
21
22
use Test::More tests => 73;
22
use Test::NoWarnings;
23
use Test::More tests => 74;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::DateUtils qw(dt_from_string output_pref);
26
use Koha::DateUtils qw(dt_from_string output_pref);
(-)a/t/db_dependent/Acquisition/CancelReceipt.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 12;
20
use Test::NoWarnings;
21
use Test::More tests => 13;
21
use t::lib::TestBuilder;
22
use t::lib::TestBuilder;
22
23
23
use C4::Context;
24
use C4::Context;
(-)a/t/db_dependent/Acquisition/FillWithDefaultValues.t (-1 / +2 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 12;
2
use Test::NoWarnings;
3
use Test::More tests => 13;
3
use Test::MockModule;
4
use Test::MockModule;
4
5
5
use MARC::Record;
6
use MARC::Record;
(-)a/t/db_dependent/Acquisition/GetBasketAsCSV.t (-1 / +2 lines)
Lines 4-10 use Modern::Perl; Link Here
4
4
5
use CGI;
5
use CGI;
6
6
7
use Test::More tests => 5;
7
use Test::NoWarnings;
8
use Test::More tests => 6;
8
9
9
use C4::Acquisition qw( NewBasket GetBasket GetBasketAsCSV );
10
use C4::Acquisition qw( NewBasket GetBasket GetBasketAsCSV );
10
use C4::Biblio qw( AddBiblio );
11
use C4::Biblio qw( AddBiblio );
(-)a/t/db_dependent/Acquisition/GetBasketGroupAsCSV.t (-1 / +2 lines)
Lines 4-10 use Modern::Perl; Link Here
4
4
5
use CGI;
5
use CGI;
6
6
7
use Test::More tests => 2;
7
use Test::NoWarnings;
8
use Test::More tests => 3;
8
9
9
use C4::Acquisition qw( NewBasket NewBasketgroup GetBasketGroupAsCSV );
10
use C4::Acquisition qw( NewBasket NewBasketgroup GetBasketGroupAsCSV );
10
use C4::Biblio qw( AddBiblio );
11
use C4::Biblio qw( AddBiblio );
(-)a/t/db_dependent/Acquisition/GetBasketsInfosByBookseller.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 43;
4
use Test::NoWarnings;
5
use Test::More tests => 44;
5
use Data::Dumper;
6
use Data::Dumper;
6
7
7
use C4::Acquisition qw( NewBasket GetBasket GetBasketsInfosByBookseller ReopenBasket AddInvoice GetInvoice ModReceiveOrder );
8
use C4::Acquisition qw( NewBasket GetBasket GetBasketsInfosByBookseller ReopenBasket AddInvoice GetInvoice ModReceiveOrder );
(-)a/t/db_dependent/Acquisition/GetOrdersByBiblionumber.t (+1 lines)
Lines 2-7 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::NoWarnings;
5
use Test::More;
6
use Test::More;
6
use C4::Acquisition qw( NewBasket GetOrders GetOrdersByBiblionumber GetOrder );
7
use C4::Acquisition qw( NewBasket GetOrders GetOrdersByBiblionumber GetOrder );
7
use C4::Biblio qw( AddBiblio );
8
use C4::Biblio qw( AddBiblio );
(-)a/t/db_dependent/Acquisition/Invoices.t (-1 / +2 lines)
Lines 8-14 use Koha::Acquisition::Booksellers; Link Here
8
use Koha::Acquisition::Orders;
8
use Koha::Acquisition::Orders;
9
use Koha::Database;
9
use Koha::Database;
10
10
11
use Test::More tests => 29;
11
use Test::NoWarnings;
12
use Test::More tests => 30;
12
13
13
BEGIN {
14
BEGIN {
14
    use_ok('C4::Acquisition', qw( NewBasket GetBasket AddInvoice GetInvoice ModReceiveOrder GetInvoiceDetails GetInvoices ModInvoice CloseInvoice ReopenInvoice MergeInvoices DelInvoice ));
15
    use_ok('C4::Acquisition', qw( NewBasket GetBasket AddInvoice GetInvoice ModReceiveOrder GetInvoiceDetails GetInvoices ModInvoice CloseInvoice ReopenInvoice MergeInvoices DelInvoice ));
(-)a/t/db_dependent/Acquisition/NewOrder.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 8;
5
use Test::NoWarnings;
6
use Test::More tests => 9;
6
use C4::Acquisition qw( NewBasket );
7
use C4::Acquisition qw( NewBasket );
7
use C4::Biblio qw( AddBiblio );
8
use C4::Biblio qw( AddBiblio );
8
use C4::Budgets qw( AddBudget GetBudget );
9
use C4::Budgets qw( AddBudget GetBudget );
(-)a/t/db_dependent/Acquisition/OrderFromSubscription.t (-1 / +2 lines)
Lines 1-6 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
use Test::More tests => 12;
3
use Test::NoWarnings;
4
use Test::More tests => 13;
4
5
5
use t::lib::TestBuilder;
6
use t::lib::TestBuilder;
6
7
(-)a/t/db_dependent/Acquisition/OrderUsers.t (-1 / +2 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 3;
2
use Test::NoWarnings;
3
use Test::More tests => 4;
3
4
4
use C4::Acquisition qw( NewBasket AddInvoice ModOrder ModOrderUsers GetOrder GetOrderUsers ModReceiveOrder );
5
use C4::Acquisition qw( NewBasket AddInvoice ModOrder ModOrderUsers GetOrder GetOrderUsers ModReceiveOrder );
5
use C4::Biblio qw( AddBiblio );
6
use C4::Biblio qw( AddBiblio );
(-)a/t/db_dependent/Acquisition/StandingOrders.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 14;
5
use Test::NoWarnings;
6
use Test::More tests => 15;
6
use C4::Context;
7
use C4::Context;
7
use C4::Acquisition qw( NewBasket GetBasket SearchOrders AddInvoice ModReceiveOrder CancelReceipt );
8
use C4::Acquisition qw( NewBasket GetBasket SearchOrders AddInvoice ModReceiveOrder CancelReceipt );
8
use C4::Biblio qw( AddBiblio );
9
use C4::Biblio qw( AddBiblio );
(-)a/t/db_dependent/Acquisition/TransferOrder.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 14;
5
use Test::NoWarnings;
6
use Test::More tests => 15;
6
use C4::Context;
7
use C4::Context;
7
use C4::Acquisition qw( NewBasket GetOrders GetOrder TransferOrder SearchOrders ModReceiveOrder CancelReceipt );
8
use C4::Acquisition qw( NewBasket GetOrders GetOrder TransferOrder SearchOrders ModReceiveOrder CancelReceipt );
8
use C4::Biblio;
9
use C4::Biblio;
(-)a/t/db_dependent/Acquisition/close_reopen_basket.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 14;
5
use Test::NoWarnings;
6
use Test::More tests => 15;
6
use C4::Acquisition qw( NewBasket GetBiblioCountByBasketno GetOrders GetOrder ReopenBasket );
7
use C4::Acquisition qw( NewBasket GetBiblioCountByBasketno GetOrders GetOrder ReopenBasket );
7
use C4::Biblio qw( AddBiblio );
8
use C4::Biblio qw( AddBiblio );
8
use C4::Budgets qw( AddBudget GetBudget );
9
use C4::Budgets qw( AddBudget GetBudget );
(-)a/t/db_dependent/Acquisition/populate_order_with_prices.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 44;
5
use Test::NoWarnings;
6
use Test::More tests => 45;
6
use C4::Context;
7
use C4::Context;
7
use Koha::Database;
8
use Koha::Database;
8
use Koha::Acquisition::Bookseller;
9
use Koha::Acquisition::Bookseller;
(-)a/t/db_dependent/Amazon.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 8;
9
use Test::NoWarnings;
10
use Test::More tests => 9;
10
use t::lib::Mocks;
11
use t::lib::Mocks;
11
use C4::Context;
12
use C4::Context;
12
13
(-)a/t/db_dependent/ArticleRequests.t (-1 / +2 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use POSIX qw(strftime);
20
use POSIX qw(strftime);
21
21
22
use Test::More tests => 36;
22
use Test::NoWarnings;
23
use Test::More tests => 37;
23
use Test::MockModule;
24
use Test::MockModule;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/AudioAlerts.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 33;
20
use Test::NoWarnings;
21
use Test::More tests => 34;
21
22
22
BEGIN {
23
BEGIN {
23
    use_ok('Koha::AudioAlert');
24
    use_ok('Koha::AudioAlert');
(-)a/t/db_dependent/Auth/haspermission.t (-1 / +2 lines)
Lines 20-26 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use Test::More tests => 5;
23
use Test::NoWarnings;
24
use Test::More tests => 6;
24
use Test::Exception;
25
use Test::Exception;
25
26
26
use Koha::Database;
27
use Koha::Database;
(-)a/t/db_dependent/AuthUtils.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Exception;
22
use Test::Exception;
22
use Test::MockModule;
23
use Test::MockModule;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/Auth_with_cas.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::MockObject;
23
use Test::MockObject;
23
24
(-)a/t/db_dependent/Auth_with_ldap.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::MockObject;
23
use Test::MockObject;
23
use Test::Warn;
24
use Test::Warn;
(-)a/t/db_dependent/AuthoritiesMarc.t (-1 / +2 lines)
Lines 5-11 Link Here
5
5
6
use Modern::Perl;
6
use Modern::Perl;
7
7
8
use Test::More tests => 13;
8
use Test::NoWarnings;
9
use Test::More tests => 14;
9
use Test::MockModule;
10
use Test::MockModule;
10
use Test::Warn;
11
use Test::Warn;
11
use MARC::Field;
12
use MARC::Field;
(-)a/t/db_dependent/AuthoritiesMarc/MARC21.t (-1 / +2 lines)
Lines 5-11 use strict; Link Here
5
use warnings;
5
use warnings;
6
6
7
use Test::MockModule;
7
use Test::MockModule;
8
use Test::More tests => 2;
8
use Test::NoWarnings;
9
use Test::More tests => 3;
9
use MARC::Field;
10
use MARC::Field;
10
use MARC::Record;
11
use MARC::Record;
11
12
(-)a/t/db_dependent/AuthoritiesMarc_GetTagsLabels.t (-1 / +2 lines)
Lines 20-26 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use Test::More tests => 1;
23
use Test::NoWarnings;
24
use Test::More tests => 2;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
26
27
(-)a/t/db_dependent/Authority/Merge.t (-1 / +2 lines)
Lines 4-10 Link Here
4
4
5
use Modern::Perl;
5
use Modern::Perl;
6
6
7
use Test::More tests => 12;
7
use Test::NoWarnings;
8
use Test::More tests => 13;
8
9
9
use Getopt::Long;
10
use Getopt::Long;
10
use MARC::Record;
11
use MARC::Record;
(-)a/t/db_dependent/Authority/MergeRequests.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 1;
4
use Test::NoWarnings;
5
use Test::More tests => 2;
5
6
6
use Koha::Authority::MergeRequest;
7
use Koha::Authority::MergeRequest;
7
use Koha::Authority::MergeRequests;
8
use Koha::Authority::MergeRequests;
(-)a/t/db_dependent/Authority/Subfields.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 1;
21
use Test::NoWarnings;
22
use Test::More tests => 2;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
25
(-)a/t/db_dependent/Authority/Tags.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 1;
21
use Test::NoWarnings;
22
use Test::More tests => 2;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
25
(-)a/t/db_dependent/Barcodes.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 76;
20
use Test::NoWarnings;
21
use Test::More tests => 77;
21
use Test::Warn;
22
use Test::Warn;
22
use Test::MockModule;
23
use Test::MockModule;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/Barcodes_ValueBuilder.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 9;
19
use Test::NoWarnings;
20
use Test::More tests => 10;
20
use Test::MockModule;
21
use Test::MockModule;
21
use t::lib::TestBuilder;
22
use t::lib::TestBuilder;
22
23
(-)a/t/db_dependent/Biblio/Isbd.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::NoWarnings;
21
use Test::More tests => 4;
21
use Test::MockModule;
22
use Test::MockModule;
22
use MARC::Record;
23
use MARC::Record;
23
use t::lib::Mocks qw( mock_preference );
24
use t::lib::Mocks qw( mock_preference );
(-)a/t/db_dependent/Biblio/MarcOverlayRules.t (-1 / +2 lines)
Lines 26-32 use C4::Biblio qw( AddBiblio ModBiblio DelBiblio ); Link Here
26
use Koha::Database;
26
use Koha::Database;
27
use Koha::Biblios;
27
use Koha::Biblios;
28
28
29
use Test::More tests => 24;
29
use Test::NoWarnings;
30
use Test::More tests => 25;
30
use Test::MockModule;
31
use Test::MockModule;
31
32
32
use Koha::MarcOverlayRules;
33
use Koha::MarcOverlayRules;
(-)a/t/db_dependent/Biblio/ModBiblioMarc.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::NoWarnings;
21
use Test::More tests => 4;
21
use t::lib::Mocks;
22
use t::lib::Mocks;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
use MARC::Record;
24
use MARC::Record;
(-)a/t/db_dependent/Biblio/TransformHtmlToMarc.t (-1 / +2 lines)
Lines 3-9 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use CGI;
4
use CGI;
5
use Encode qw( encode );
5
use Encode qw( encode );
6
use Test::More tests => 2;
6
use Test::NoWarnings;
7
use Test::More tests => 3;
7
8
8
use Koha::Caches;
9
use Koha::Caches;
9
use Koha::Database;
10
use Koha::Database;
(-)a/t/db_dependent/Biblio/TransformKohaToMarc.t (-1 / +2 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 4;
2
use Test::NoWarnings;
3
use Test::More tests => 5;
3
use MARC::Record;
4
use MARC::Record;
4
5
5
use t::lib::Mocks;
6
use t::lib::Mocks;
(-)a/t/db_dependent/Biblio/TransformMarcToKoha.t (-1 / +2 lines)
Lines 19-25 Link Here
19
# with Koha; if not, see <http://www.gnu.org/licenses>.
19
# with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
use MARC::Record;
24
use MARC::Record;
24
25
25
use t::lib::Mocks;
26
use t::lib::Mocks;
(-)a/t/db_dependent/Biblio_holdsqueue.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::MockModule;
22
use Test::MockModule;
22
23
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/Breeding.t (-1 / +2 lines)
Lines 24-30 Link Here
24
24
25
use Modern::Perl;
25
use Modern::Perl;
26
use File::Temp qw/tempfile/;
26
use File::Temp qw/tempfile/;
27
use Test::More tests => 5;
27
use Test::NoWarnings;
28
use Test::More tests => 6;
28
use Test::Warn;
29
use Test::Warn;
29
30
30
use t::lib::Mocks qw( mock_preference );
31
use t::lib::Mocks qw( mock_preference );
(-)a/t/db_dependent/Breeding_Auth.t (-1 / +2 lines)
Lines 22-28 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use utf8;
23
use utf8;
24
24
25
use Test::More tests => 2;
25
use Test::NoWarnings;
26
use Test::More tests => 3;
26
use Test::MockModule;
27
use Test::MockModule;
27
use Test::MockObject;
28
use Test::MockObject;
28
use Test::Warn;
29
use Test::Warn;
(-)a/t/db_dependent/Budgets/CloneBudgetHierarchy.t (+1 lines)
Lines 2-7 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::NoWarnings;
5
use Test::More;
6
use Test::More;
6
7
7
use Koha::Database;
8
use Koha::Database;
(-)a/t/db_dependent/Cache.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 44;
20
use Test::NoWarnings;
21
use Test::More tests => 45;
21
use Test::Warn;
22
use Test::Warn;
22
23
23
my $destructorcount = 0;
24
my $destructorcount = 0;
(-)a/t/db_dependent/Calendar.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 6;
20
use Test::NoWarnings;
21
use Test::More tests => 7;
21
use Time::Fake;
22
use Time::Fake;
22
23
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/Charset.t (-1 / +2 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 4;
2
use Test::NoWarnings;
3
use Test::More tests => 5;
3
use MARC::Record;
4
use MARC::Record;
4
5
5
use C4::Biblio qw( GetMarcFromKohaField AddBiblio );
6
use C4::Biblio qw( GetMarcFromKohaField AddBiblio );
(-)a/t/db_dependent/Circulation.t (-1 / +2 lines)
Lines 18-24 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
use utf8;
19
use utf8;
20
20
21
use Test::More tests => 75;
21
use Test::NoWarnings;
22
use Test::More tests => 76;
22
use Test::Exception;
23
use Test::Exception;
23
use Test::MockModule;
24
use Test::MockModule;
24
use Test::Deep qw( cmp_deeply );
25
use Test::Deep qw( cmp_deeply );
(-)a/t/db_dependent/Circulation/Branch.t (-1 / +2 lines)
Lines 25-31 use Koha::CirculationRules; Link Here
25
25
26
use Koha::Patrons;
26
use Koha::Patrons;
27
27
28
use Test::More tests => 18;
28
use Test::NoWarnings;
29
use Test::More tests => 19;
29
use t::lib::Mocks;
30
use t::lib::Mocks;
30
use t::lib::TestBuilder;
31
use t::lib::TestBuilder;
31
32
(-)a/t/db_dependent/Circulation/CalcDateDue.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 23;
5
use Test::NoWarnings;
6
use Test::More tests => 24;
6
use Test::MockModule;
7
use Test::MockModule;
7
use DBI;
8
use DBI;
8
use DateTime;
9
use DateTime;
(-)a/t/db_dependent/Circulation/CalcFine.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 7;
5
use Test::NoWarnings;
6
use Test::More tests => 8;
6
use Test::Warn;
7
use Test::Warn;
7
8
8
use C4::Context;
9
use C4::Context;
(-)a/t/db_dependent/Circulation/CheckIfIssuedToPatron.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 21;
20
use Test::NoWarnings;
21
use Test::More tests => 22;
21
use Test::MockModule;
22
use Test::MockModule;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
24
(-)a/t/db_dependent/Circulation/CheckValidBarcode.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 10;
20
use Test::NoWarnings;
21
use Test::More tests => 11;
21
22
22
use C4::Circulation qw( CheckValidBarcode );
23
use C4::Circulation qw( CheckValidBarcode );
23
use C4::Biblio qw( AddBiblio );
24
use C4::Biblio qw( AddBiblio );
(-)a/t/db_dependent/Circulation/GetHardDueDate.t (-1 / +2 lines)
Lines 10-16 use Koha::Library; Link Here
10
10
11
use t::lib::TestBuilder;
11
use t::lib::TestBuilder;
12
12
13
use Test::More tests => 9;
13
use Test::NoWarnings;
14
use Test::More tests => 10;
14
15
15
BEGIN {
16
BEGIN {
16
    use_ok('C4::Circulation', qw( GetHardDueDate GetLoanLength ));
17
    use_ok('C4::Circulation', qw( GetHardDueDate GetLoanLength ));
(-)a/t/db_dependent/Circulation/GetPendingOnSiteCheckouts.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::MockModule;
22
use Test::MockModule;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
24
(-)a/t/db_dependent/Circulation/GetTopIssues.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 14;
20
use Test::NoWarnings;
21
use Test::More tests => 15;
21
use Test::MockModule;
22
use Test::MockModule;
22
use t::lib::Mocks;
23
use t::lib::Mocks;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/Circulation/IsItemIssued.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::MockModule;
22
use Test::MockModule;
22
23
23
use C4::Circulation qw( IsItemIssued AddIssue AddReturn );
24
use C4::Circulation qw( IsItemIssued AddIssue AddReturn );
(-)a/t/db_dependent/Circulation/MarkIssueReturned.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/Circulation/NoIssuesChargeGuarantees.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 7;
20
use Test::NoWarnings;
21
use Test::More tests => 8;
21
22
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/Circulation/OfflineCirculation.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/Circulation/OfflineOperation.t (-1 / +2 lines)
Lines 7-13 use Koha::Database; Link Here
7
use Koha::DateUtils qw( dt_from_string output_pref );
7
use Koha::DateUtils qw( dt_from_string output_pref );
8
use Koha::Library;
8
use Koha::Library;
9
9
10
use Test::More tests => 7;
10
use Test::NoWarnings;
11
use Test::More tests => 8;
11
12
12
BEGIN {
13
BEGIN {
13
    use_ok('C4::Circulation', qw( AddOfflineOperation GetOfflineOperation GetOfflineOperations DeleteOfflineOperation ));
14
    use_ok('C4::Circulation', qw( AddOfflineOperation GetOfflineOperation GetOfflineOperations DeleteOfflineOperation ));
(-)a/t/db_dependent/Circulation/ReturnClaims.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/Circulation/Returns.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 7;
20
use Test::NoWarnings;
21
use Test::More tests => 8;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/Circulation/StoreLastBorrower.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use C4::Circulation qw( AddReturn );
23
use C4::Circulation qw( AddReturn );
23
use C4::Context;
24
use C4::Context;
(-)a/t/db_dependent/Circulation/SwitchOnSiteCheckouts.t (-1 / +2 lines)
Lines 15-21 Link Here
15
# with Koha; if not, see <http://www.gnu.org/licenses>.
15
# with Koha; if not, see <http://www.gnu.org/licenses>.
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
use Test::More tests => 10;
18
use Test::NoWarnings;
19
use Test::More tests => 11;
19
use C4::Context;
20
use C4::Context;
20
21
21
use C4::Circulation qw( TooMany AddIssue CanBookBeIssued );
22
use C4::Circulation qw( TooMany AddIssue CanBookBeIssued );
(-)a/t/db_dependent/Circulation/TooMany.t (-1 / +2 lines)
Lines 15-21 Link Here
15
# with Koha; if not, see <http://www.gnu.org/licenses>.
15
# with Koha; if not, see <http://www.gnu.org/licenses>.
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
use Test::More tests => 11;
18
use Test::NoWarnings;
19
use Test::More tests => 12;
19
use C4::Context;
20
use C4::Context;
20
21
21
use C4::Members;
22
use C4::Members;
(-)a/t/db_dependent/Circulation/_CalculateAndUpdateFine.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::DateUtils qw( dt_from_string );
26
use Koha::DateUtils qw( dt_from_string );
(-)a/t/db_dependent/Circulation/dateexpiry.t (-1 / +2 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use DateTime;
20
use DateTime;
21
use Time::HiRes qw/gettimeofday time/;
21
use Time::HiRes qw/gettimeofday time/;
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
use C4::Members;
24
use C4::Members;
24
use Koha::DateUtils qw( dt_from_string output_pref );
25
use Koha::DateUtils qw( dt_from_string output_pref );
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Circulation/issue.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 67;
20
use Test::NoWarnings;
21
use Test::More tests => 68;
21
use DateTime::Duration;
22
use DateTime::Duration;
22
23
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/Circulation/maxsuspensiondays.t (-1 / +2 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 4;
2
use Test::NoWarnings;
3
use Test::More tests => 5;
3
4
4
use MARC::Record;
5
use MARC::Record;
5
use MARC::Field;
6
use MARC::Field;
(-)a/t/db_dependent/Circulation/transferbook.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 6;
20
use Test::NoWarnings;
21
use Test::More tests => 7;
21
use t::lib::TestBuilder;
22
use t::lib::TestBuilder;
22
use t::lib::Mocks;
23
use t::lib::Mocks;
23
24
(-)a/t/db_dependent/Circulation/transfers.t (-1 / +2 lines)
Lines 27-33 use Koha::Item::Transfers; Link Here
27
27
28
use t::lib::TestBuilder;
28
use t::lib::TestBuilder;
29
29
30
use Test::More tests => 19;
30
use Test::NoWarnings;
31
use Test::More tests => 20;
31
use Test::Deep;
32
use Test::Deep;
32
33
33
BEGIN {
34
BEGIN {
(-)a/t/db_dependent/ClassSources.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
25
25
use Koha::ClassSortRules;
26
use Koha::ClassSortRules;
(-)a/t/db_dependent/Clubs.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 38;
20
use Test::NoWarnings;
21
use Test::More tests => 39;
21
use Test::Warn;
22
use Test::Warn;
22
23
23
use C4::Context;
24
use C4::Context;
(-)a/t/db_dependent/Context.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 5;
19
use Test::NoWarnings;
20
use Test::More tests => 6;
20
use Test::MockModule;
21
use Test::MockModule;
21
22
22
use C4::Context;
23
use C4::Context;
(-)a/t/db_dependent/Contract.t (-1 / +2 lines)
Lines 26-32 use Koha::Acquisition::Booksellers; Link Here
26
26
27
use DateTime::Duration;
27
use DateTime::Duration;
28
28
29
use Test::More tests => 43;
29
use Test::NoWarnings;
30
use Test::More tests => 44;
30
31
31
BEGIN {
32
BEGIN {
32
    use_ok('C4::Contract', qw( GetContracts GetContract AddContract ModContract DelContract ));
33
    use_ok('C4::Contract', qw( GetContracts GetContract AddContract ModContract DelContract ));
(-)a/t/db_dependent/CourseReserves.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 26;
20
use Test::NoWarnings;
21
use Test::More tests => 27;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/CourseReserves/CourseItems.t (-1 / +2 lines)
Lines 23-29 use C4::CourseReserves qw( ModCourse ModCourseItem ModCourseReserve GetCourse Ge Link Here
23
use C4::Context;
23
use C4::Context;
24
use Koha::Items;
24
use Koha::Items;
25
25
26
use Test::More tests => 36;
26
use Test::NoWarnings;
27
use Test::More tests => 37;
27
28
28
BEGIN {
29
BEGIN {
29
    require_ok('C4::CourseReserves');
30
    require_ok('C4::CourseReserves');
(-)a/t/db_dependent/Creators/Lib.t (-1 / +2 lines)
Lines 18-24 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
use Graphics::Magick;
20
use Graphics::Magick;
21
use Test::More tests => 653;
21
use Test::NoWarnings;
22
use Test::More tests => 654;
22
use Test::MockModule;
23
use Test::MockModule;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
(-)a/t/db_dependent/DecreaseLoanHighHolds.t (-1 / +2 lines)
Lines 30-36 use Koha::CirculationRules; Link Here
30
use t::lib::TestBuilder;
30
use t::lib::TestBuilder;
31
use t::lib::Mocks;
31
use t::lib::Mocks;
32
32
33
use Test::More tests => 26;
33
use Test::NoWarnings;
34
use Test::More tests => 27;
34
35
35
my $dbh    = C4::Context->dbh;
36
my $dbh    = C4::Context->dbh;
36
my $schema = Koha::Database->new()->schema();
37
my $schema = Koha::Database->new()->schema();
(-)a/t/db_dependent/Exporter/Record.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 6;
20
use Test::NoWarnings;
21
use Test::More tests => 7;
21
use Test::Warn;
22
use Test::Warn;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
24
(-)a/t/db_dependent/Filter_MARC_ViewPolicy.t (-1 / +2 lines)
Lines 23-29 Link Here
23
23
24
use Modern::Perl;
24
use Modern::Perl;
25
25
26
use Test::More tests => 3;
26
use Test::NoWarnings;
27
use Test::More tests => 4;
27
28
28
use List::MoreUtils qw/any/;
29
use List::MoreUtils qw/any/;
29
use MARC::Record;
30
use MARC::Record;
(-)a/t/db_dependent/Fines.t (-1 / +2 lines)
Lines 7-13 use C4::Overdues qw( CalcFine ); Link Here
7
use Koha::Database;
7
use Koha::Database;
8
use Koha::DateUtils qw( dt_from_string );
8
use Koha::DateUtils qw( dt_from_string );
9
9
10
use Test::More tests => 5;
10
use Test::NoWarnings;
11
use Test::More tests => 6;
11
12
12
my $schema = Koha::Database->new->schema;
13
my $schema = Koha::Database->new->schema;
13
$schema->storage->txn_begin;
14
$schema->storage->txn_begin;
(-)a/t/db_dependent/FrameworkPlugin.t (-1 / +2 lines)
Lines 3-9 use Modern::Perl; Link Here
3
use CGI;
3
use CGI;
4
use File::Temp qw/tempfile/;
4
use File::Temp qw/tempfile/;
5
use Getopt::Long;
5
use Getopt::Long;
6
use Test::More tests => 7;
6
use Test::NoWarnings;
7
use Test::More tests => 8;
7
use Test::MockModule;
8
use Test::MockModule;
8
use Test::Warn;
9
use Test::Warn;
9
10
(-)a/t/db_dependent/Heading.t (-1 / +2 lines)
Lines 18-24 Link Here
18
use strict;
18
use strict;
19
use warnings;
19
use warnings;
20
20
21
use Test::More tests => 4;
21
use Test::NoWarnings;
22
use Test::More tests => 5;
22
23
23
use t::lib::Mocks;
24
use t::lib::Mocks;
24
use Test::MockModule;
25
use Test::MockModule;
(-)a/t/db_dependent/Heading_MARC21.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 10;
9
use Test::NoWarnings;
10
use Test::More tests => 11;
10
use C4::Context;
11
use C4::Context;
11
12
12
BEGIN {
13
BEGIN {
(-)a/t/db_dependent/Hold.t (-1 / +2 lines)
Lines 29-35 use Koha::Item; Link Here
29
use Koha::DateUtils qw( dt_from_string );
29
use Koha::DateUtils qw( dt_from_string );
30
use t::lib::TestBuilder;
30
use t::lib::TestBuilder;
31
31
32
use Test::More tests => 35;
32
use Test::NoWarnings;
33
use Test::More tests => 36;
33
use Test::Exception;
34
use Test::Exception;
34
use Test::Warn;
35
use Test::Warn;
35
36
(-)a/t/db_dependent/Holds/DisallowHoldIfItemsAvailable.t (-1 / +2 lines)
Lines 9-15 use Koha::Items; Link Here
9
use Koha::Cache::Memory::Lite;
9
use Koha::Cache::Memory::Lite;
10
use Koha::CirculationRules;
10
use Koha::CirculationRules;
11
11
12
use Test::More tests => 13;
12
use Test::NoWarnings;
13
use Test::More tests => 14;
13
14
14
use t::lib::TestBuilder;
15
use t::lib::TestBuilder;
15
use t::lib::Mocks;
16
use t::lib::Mocks;
(-)a/t/db_dependent/Holds/ExpireReservesAutoFill.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 3;
5
use Test::NoWarnings;
6
use Test::More tests => 4;
6
7
7
use t::lib::Mocks;
8
use t::lib::Mocks;
8
use t::lib::TestBuilder;
9
use t::lib::TestBuilder;
(-)a/t/db_dependent/Holds/HoldFulfillmentPolicy.t (-1 / +2 lines)
Lines 5-11 use Modern::Perl; Link Here
5
use C4::Context;
5
use C4::Context;
6
use Koha::CirculationRules;
6
use Koha::CirculationRules;
7
7
8
use Test::More tests => 11;
8
use Test::NoWarnings;
9
use Test::More tests => 12;
9
10
10
use t::lib::TestBuilder;
11
use t::lib::TestBuilder;
11
use t::lib::Mocks;
12
use t::lib::Mocks;
(-)a/t/db_dependent/Holds/HoldItemtypeLimit.t (-1 / +2 lines)
Lines 5-11 use Modern::Perl; Link Here
5
use C4::Context;
5
use C4::Context;
6
use Koha::CirculationRules;
6
use Koha::CirculationRules;
7
7
8
use Test::More tests => 4;
8
use Test::NoWarnings;
9
use Test::More tests => 5;
9
10
10
use t::lib::TestBuilder;
11
use t::lib::TestBuilder;
11
12
(-)a/t/db_dependent/Holds/LocalHoldsPriority.t (-1 / +2 lines)
Lines 5-11 use Modern::Perl; Link Here
5
use t::lib::Mocks;
5
use t::lib::Mocks;
6
use C4::Context;
6
use C4::Context;
7
7
8
use Test::More tests => 7;
8
use Test::NoWarnings;
9
use Test::More tests => 8;
9
use MARC::Record;
10
use MARC::Record;
10
11
11
use Koha::Patrons;
12
use Koha::Patrons;
(-)a/t/db_dependent/Holds/RevertWaitingStatus.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 3;
19
use Test::NoWarnings;
20
use Test::More tests => 4;
20
use MARC::Record;
21
use MARC::Record;
21
22
22
use Koha::Libraries;
23
use Koha::Libraries;
(-)a/t/db_dependent/Holds/WaitingReserves.t (-1 / +2 lines)
Lines 8-14 use Koha::DateUtils qw( dt_from_string ); Link Here
8
use t::lib::Mocks;
8
use t::lib::Mocks;
9
use t::lib::TestBuilder;
9
use t::lib::TestBuilder;
10
10
11
use Test::More tests => 13;
11
use Test::NoWarnings;
12
use Test::More tests => 14;
12
13
13
use_ok('C4::Reserves', qw( ModReserve ModReserveAffect ));
14
use_ok('C4::Reserves', qw( ModReserve ModReserveAffect ));
14
15
(-)a/t/db_dependent/HoldsQueue.t (-1 / +2 lines)
Lines 8-14 Link Here
8
8
9
use Modern::Perl;
9
use Modern::Perl;
10
10
11
use Test::More tests => 64;
11
use Test::NoWarnings;
12
use Test::More tests => 65;
12
use Data::Dumper;
13
use Data::Dumper;
13
14
14
use C4::Calendar qw( new insert_single_holiday );
15
use C4::Calendar qw( new insert_single_holiday );
(-)a/t/db_dependent/Holidays.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 14;
20
use Test::NoWarnings;
21
use Test::More tests => 15;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use DateTime;
24
use DateTime;
(-)a/t/db_dependent/ILSDI_Services.t (-1 / +2 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use Test::More tests => 14;
22
use Test::NoWarnings;
23
use Test::More tests => 15;
23
use Test::MockModule;
24
use Test::MockModule;
24
use t::lib::Mocks;
25
use t::lib::Mocks;
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/ImportBatch.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 20;
4
use Test::NoWarnings;
5
use Test::More tests => 21;
5
use utf8;
6
use utf8;
6
use File::Basename;
7
use File::Basename;
7
use File::Temp qw/tempfile/;
8
use File::Temp qw/tempfile/;
(-)a/t/db_dependent/ImportExportFramework.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
24
(-)a/t/db_dependent/Installer.t (-1 / +2 lines)
Lines 22-28 Link Here
22
# Add more tests here!!!
22
# Add more tests here!!!
23
23
24
use Modern::Perl;
24
use Modern::Perl;
25
use Test::More tests => 22;
25
use Test::NoWarnings;
26
use Test::More tests => 23;
26
use File::Temp qw(tempfile);
27
use File::Temp qw(tempfile);
27
use utf8;
28
use utf8;
28
29
(-)a/t/db_dependent/Items.t (-1 / +2 lines)
Lines 36-42 use Koha::AuthorisedValues; Link Here
36
use t::lib::Mocks;
36
use t::lib::Mocks;
37
use t::lib::TestBuilder;
37
use t::lib::TestBuilder;
38
38
39
use Test::More tests => 14;
39
use Test::NoWarnings;
40
use Test::More tests => 15;
40
41
41
use Test::Warn;
42
use Test::Warn;
42
43
(-)a/t/db_dependent/Items/AutomaticItemModificationByAge.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 20;
4
use Test::NoWarnings;
5
use Test::More tests => 21;
5
use MARC::Record;
6
use MARC::Record;
6
use MARC::Field;
7
use MARC::Field;
7
use DateTime;
8
use DateTime;
(-)a/t/db_dependent/Items/GetAnalyticsCount.t (-1 / +2 lines)
Lines 1-6 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
use Test::More tests => 1;
3
use Test::NoWarnings;
4
use Test::More tests => 2;
4
use Test::MockModule;
5
use Test::MockModule;
5
use t::lib::Mocks;
6
use t::lib::Mocks;
6
use t::lib::TestBuilder;
7
use t::lib::TestBuilder;
(-)a/t/db_dependent/Items/GetItemsForInventory.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 7;
22
use Test::NoWarnings;
23
use Test::More tests => 8;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
25
25
use List::MoreUtils qw( any none );
26
use List::MoreUtils qw( any none );
(-)a/t/db_dependent/Koha.t (-1 / +2 lines)
Lines 4-10 Link Here
4
# It requires a working Koha database with the sample data
4
# It requires a working Koha database with the sample data
5
5
6
use Modern::Perl;
6
use Modern::Perl;
7
use Test::More tests => 6;
7
use Test::NoWarnings;
8
use Test::More tests => 7;
8
use Test::MockModule;
9
use Test::MockModule;
9
use Test::Warn;
10
use Test::Warn;
10
use Test::Deep;
11
use Test::Deep;
(-)a/t/db_dependent/Koha/Account.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 15;
22
use Test::NoWarnings;
23
use Test::More tests => 16;
23
use Test::MockModule;
24
use Test::MockModule;
24
use Test::Exception;
25
use Test::Exception;
25
26
(-)a/t/db_dependent/Koha/Account/DebitType.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 7;
22
use Test::NoWarnings;
23
use Test::More tests => 8;
23
24
24
use Koha::Account::DebitTypes;
25
use Koha::Account::DebitTypes;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Account/DebitTypes.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
24
24
use Koha::Account::DebitType;
25
use Koha::Account::DebitType;
25
use Koha::Account::DebitTypes;
26
use Koha::Account::DebitTypes;
(-)a/t/db_dependent/Koha/Account/Line.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 15;
22
use Test::NoWarnings;
23
use Test::More tests => 16;
23
use Test::Exception;
24
use Test::Exception;
24
use Test::MockModule;
25
use Test::MockModule;
25
26
(-)a/t/db_dependent/Koha/Account/Lines.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
use Test::Exception;
24
use Test::Exception;
24
use Test::MockModule;
25
use Test::MockModule;
25
26
(-)a/t/db_dependent/Koha/Account/Offsets.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
24
24
use Koha::Account::Offsets;
25
use Koha::Account::Offsets;
25
26
(-)a/t/db_dependent/Koha/Acquisition/Basket.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 13;
22
use Test::NoWarnings;
23
use Test::More tests => 14;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Acquisition/Baskets.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::Acquisition::Basket;
26
use Koha::Acquisition::Basket;
(-)a/t/db_dependent/Koha/Acquisition/Budgets.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Koha::Acquisition::Budgets;
25
use Koha::Acquisition::Budgets;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Acquisition/Currencies.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 7;
21
use Test::NoWarnings;
22
use Test::More tests => 8;
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::Acquisition::Currency;
24
use Koha::Acquisition::Currency;
24
use Koha::Acquisition::Currencies;
25
use Koha::Acquisition::Currencies;
(-)a/t/db_dependent/Koha/Acquisition/Fund.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::Warn;
24
use Test::Warn;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Acquisition/Funds.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Koha::Acquisition::Funds;
25
use Koha::Acquisition::Funds;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Acquisition/Invoice.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
use Test::MockModule;
24
use Test::MockModule;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Acquisition/Invoice/Adjustments.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 8;
22
use Test::NoWarnings;
23
use Test::More tests => 9;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
26
(-)a/t/db_dependent/Koha/Acquisition/Order.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 13;
22
use Test::NoWarnings;
23
use Test::More tests => 14;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Acquisition/Orders.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/ActionLogs.t (-1 / +2 lines)
Lines 17-23 Link Here
17
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
use Test::More tests => 3;
20
use Test::NoWarnings;
21
use Test::More tests => 4;
21
22
22
use C4::Context;
23
use C4::Context;
23
use C4::Log qw( logaction );
24
use C4::Log qw( logaction );
(-)a/t/db_dependent/Koha/AdditionalField.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 2;
5
use Test::NoWarnings;
6
use Test::More tests => 3;
6
use String::Random qw(random_string);
7
use String::Random qw(random_string);
7
8
8
use Koha::AuthorisedValueCategory;
9
use Koha::AuthorisedValueCategory;
(-)a/t/db_dependent/Koha/ApiKey.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Exception;
23
use Test::Exception;
23
24
(-)a/t/db_dependent/Koha/ArticleRequest.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::MockModule;
22
use Test::MockModule;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/ArticleRequests.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::MockModule;
22
use Test::MockModule;
22
23
23
use Koha::ArticleRequest::Status;
24
use Koha::ArticleRequest::Status;
(-)a/t/db_dependent/Koha/Auth/Identity/Provider.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 6;
22
use Test::NoWarnings;
23
use Test::More tests => 7;
23
24
24
use Test::MockModule;
25
use Test::MockModule;
25
use Test::Exception;
26
use Test::Exception;
(-)a/t/db_dependent/Koha/Authorities.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 10;
22
use Test::NoWarnings;
23
use Test::More tests => 11;
23
use MARC::Field;
24
use MARC::Field;
24
use MARC::File::XML;
25
use MARC::File::XML;
25
use MARC::Record;
26
use MARC::Record;
(-)a/t/db_dependent/Koha/BackgroundJob/BatchCancelHold.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/BatchDeleteAuthority.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/BatchDeleteBiblio.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/BatchDeleteItem.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/BatchUpdateAuthority.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/BatchUpdateBiblio.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/BatchUpdateBiblioHoldsQueue.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/Koha/BackgroundJob/BatchUpdateItem.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/CreateEHoldingsFromBiblios.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/ErmSushiHarvester.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/ImportKBARTFile.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 7;
20
use Test::NoWarnings;
21
use Test::More tests => 8;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/Koha/BackgroundJob/MARCImportCommitBatch.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/MARCImportRevertBatch.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/PseudonymizeStatistic.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/Koha/BackgroundJob/StageMARCForImport.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJob/UpdateElasticIndex.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJobs.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 14;
22
use Test::NoWarnings;
23
use Test::More tests => 15;
23
use Test::MockModule;
24
use Test::MockModule;
24
25
25
use List::MoreUtils qw(any);
26
use List::MoreUtils qw(any);
(-)a/t/db_dependent/Koha/BackgroundJobs/BatchDeleteBiblio.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::MockModule;
22
use Test::MockModule;
22
23
23
use JSON qw( encode_json );
24
use JSON qw( encode_json );
(-)a/t/db_dependent/Koha/BackgroundJobs/BatchDeleteItem.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::MockModule;
22
use Test::MockModule;
22
23
23
use JSON qw( encode_json );
24
use JSON qw( encode_json );
(-)a/t/db_dependent/Koha/BackgroundJobs/BatchUpdateBiblio.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use Test::MockModule;
24
use Test::MockModule;
24
25
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/BackgroundJobs/ErmSushiHarvester.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::BackgroundJobs;
24
use Koha::BackgroundJobs;
(-)a/t/db_dependent/Koha/BackgroundJobs/StageMARCForImport.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::MockModule;
24
use Test::MockModule;
24
use JSON qw( encode_json decode_json );
25
use JSON qw( encode_json decode_json );
25
26
(-)a/t/db_dependent/Koha/Biblio.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 39;
20
use Test::NoWarnings;
21
use Test::More tests => 40;
21
use Test::Exception;
22
use Test::Exception;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/Koha/Biblio/ItemGroups.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::NoWarnings;
21
use Test::More tests => 4;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
24
(-)a/t/db_dependent/Koha/Biblio/Metadata.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Exception;
22
use Test::Exception;
22
use Test::MockModule;
23
use Test::MockModule;
23
use Test::Warn;
24
use Test::Warn;
(-)a/t/db_dependent/Koha/Biblio/Metadata/Extractor/MARC.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Biblio/Metadata/Extractor/MARC/MARC21.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Biblio/Metadata/Extractor/MARC/UNIMARC.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Biblio/host_record.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Data::Dumper qw/Dumper/;
22
use Data::Dumper qw/Dumper/;
22
use MARC::Field;
23
use MARC::Field;
23
use MARC::Record;
24
use MARC::Record;
(-)a/t/db_dependent/Koha/BiblioFrameworks.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 3;
21
use Test::NoWarnings;
22
use Test::More tests => 4;
22
use Koha::BiblioFramework;
23
use Koha::BiblioFramework;
23
use Koha::BiblioFrameworks;
24
use Koha::BiblioFrameworks;
24
25
(-)a/t/db_dependent/Koha/Biblios.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 7;
22
use Test::NoWarnings;
23
use Test::More tests => 8;
23
24
24
use Test::Exception;
25
use Test::Exception;
25
use Test::MockModule;
26
use Test::MockModule;
(-)a/t/db_dependent/Koha/Bookings.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
24
24
use Koha::Bookings;
25
use Koha::Bookings;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Cash/Register.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Test::Exception;
25
use Test::Exception;
25
26
(-)a/t/db_dependent/Koha/Cash/Register/Action.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 2;
21
use Test::NoWarnings;
22
use Test::More tests => 3;
22
23
23
use Koha::Database;
24
use Koha::Database;
24
25
(-)a/t/db_dependent/Koha/Cash/Register/Cashup.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 3;
21
use Test::NoWarnings;
22
use Test::More tests => 4;
22
23
23
use Koha::Database;
24
use Koha::Database;
24
25
(-)a/t/db_dependent/Koha/Cash/Register/Cashups.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 1;
21
use Test::NoWarnings;
22
use Test::More tests => 2;
22
23
23
use Koha::Database;
24
use Koha::Database;
24
25
(-)a/t/db_dependent/Koha/Charges/Fees.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 8;
22
use Test::NoWarnings;
23
use Test::More tests => 9;
23
use Test::Exception;
24
use Test::Exception;
24
use Test::Warn;
25
use Test::Warn;
25
26
(-)a/t/db_dependent/Koha/Charges/Sales.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 5;
22
use Test::NoWarnings;
23
use Test::More tests => 6;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Checkout.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
25
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Checkouts.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 12;
22
use Test::NoWarnings;
23
use Test::More tests => 13;
23
use Test::MockModule;
24
use Test::MockModule;
24
use Test::Warn;
25
use Test::Warn;
25
26
(-)a/t/db_dependent/Koha/Checkouts/Renewal.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/Koha/Checkouts/ReturnClaim.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 6;
20
use Test::NoWarnings;
21
use Test::More tests => 7;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/Koha/CirculationRules.t (-1 / +2 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Benchmark;
22
use Benchmark;
23
use Test::More tests => 8;
23
use Test::NoWarnings;
24
use Test::More tests => 9;
24
use Test::Deep qw( cmp_methods );
25
use Test::Deep qw( cmp_methods );
25
use Test::Exception;
26
use Test::Exception;
26
27
(-)a/t/db_dependent/Koha/CirculationRules/guess_article_requestable_itemtypes.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 1;
4
use Test::NoWarnings;
5
use Test::More tests => 2;
5
6
6
use t::lib::Mocks;
7
use t::lib::Mocks;
7
use t::lib::TestBuilder;
8
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Cities.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Koha::City;
25
use Koha::City;
25
use Koha::Cities;
26
use Koha::Cities;
(-)a/t/db_dependent/Koha/ClassSortRules.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
26
(-)a/t/db_dependent/Koha/ClassSources.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
26
(-)a/t/db_dependent/Koha/ClassSplitRules.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::ClassSplitRules;
26
use Koha::ClassSplitRules;
(-)a/t/db_dependent/Koha/Club/Enrollment.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use Koha::Patron;
26
use Koha::Patron;
(-)a/t/db_dependent/Koha/Club/Hold.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use Test::Exception;
24
use Test::Exception;
24
use Try::Tiny;
25
use Try::Tiny;
25
26
(-)a/t/db_dependent/Koha/Config/SysPrefs.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 3;
21
use Test::NoWarnings;
22
use Test::More tests => 4;
22
23
23
use t::lib::Mocks;
24
use t::lib::Mocks;
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Course.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
24
24
use Koha::Course;
25
use Koha::Course;
25
use Koha::Courses;
26
use Koha::Courses;
(-)a/t/db_dependent/Koha/Courses.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
24
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
25
26
(-)a/t/db_dependent/Koha/CsvProfiles.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Koha::CsvProfile;
25
use Koha::CsvProfile;
25
use Koha::CsvProfiles;
26
use Koha::CsvProfiles;
(-)a/t/db_dependent/Koha/CurbsidePickups.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use C4::Calendar;
24
use C4::Calendar;
(-)a/t/db_dependent/Koha/Database.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 4;
19
use Test::NoWarnings;
20
use Test::More tests => 5;
20
use C4::Context;
21
use C4::Context;
21
use t::lib::Mocks;
22
use t::lib::Mocks;
22
23
(-)a/t/db_dependent/Koha/Database/Commenter.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use File::Temp qw();
4
use File::Temp qw();
5
use Test::More tests => 2;
5
use Test::NoWarnings;
6
use Test::More tests => 3;
6
use Test::Exception;
7
use Test::Exception;
7
8
8
use C4::Context;
9
use C4::Context;
(-)a/t/db_dependent/Koha/Desks.t (-1 / +2 lines)
Lines 20-26 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Test::More tests => 4;
23
use Test::NoWarnings;
24
use Test::More tests => 5;
24
25
25
use Koha::Desk;
26
use Koha::Desk;
26
use Koha::Desks;
27
use Koha::Desks;
(-)a/t/db_dependent/Koha/ERM/Agreements.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
22
22
use Koha::ERM::Agreements;
23
use Koha::ERM::Agreements;
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/Koha/ERM/EUsage/CounterFile.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::ERM::EUsage::CounterFile;
24
use Koha::ERM::EUsage::CounterFile;
(-)a/t/db_dependent/Koha/ERM/EUsage/CounterLog.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::ERM::EUsage::CounterLog;
24
use Koha::ERM::EUsage::CounterLog;
(-)a/t/db_dependent/Koha/ERM/EUsage/SushiCounter.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 18;
20
use Test::NoWarnings;
21
use Test::More tests => 19;
21
22
22
use Koha::ERM::EUsage::SushiCounter;
23
use Koha::ERM::EUsage::SushiCounter;
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/Koha/ERM/EUsage/UsageDataProvider.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
22
22
use Koha::ERM::EUsage::UsageDataProvider;
23
use Koha::ERM::EUsage::UsageDataProvider;
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/Koha/Edifact/File.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
24
24
use Koha::Edifact::Files;
25
use Koha::Edifact::Files;
25
26
(-)a/t/db_dependent/Koha/Edifact/Order.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
24
24
use Koha::Edifact::Order;
25
use Koha::Edifact::Order;
25
26
(-)a/t/db_dependent/Koha/Edifact/Transport.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use FindBin qw( $Bin );
4
use FindBin qw( $Bin );
5
use Test::More tests => 6;
5
use Test::NoWarnings;
6
use Test::More tests => 7;
6
use Test::Warn;
7
use Test::Warn;
7
8
8
use t::lib::TestBuilder;
9
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Filter/EmbedItems.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
24
(-)a/t/db_dependent/Koha/Filter/EmbedItemsAvailability.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::MockModule;
22
use Test::MockModule;
22
23
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/Filter/ExpandCodedFields.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
24
(-)a/t/db_dependent/Koha/Hold.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 14;
22
use Test::NoWarnings;
23
use Test::More tests => 15;
23
24
24
use Test::Exception;
25
use Test::Exception;
25
use Test::MockModule;
26
use Test::MockModule;
(-)a/t/db_dependent/Koha/Holds.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 12;
22
use Test::NoWarnings;
23
use Test::More tests => 13;
23
use Test::Warn;
24
use Test::Warn;
24
25
25
use C4::Circulation qw( AddIssue );
26
use C4::Circulation qw( AddIssue );
(-)a/t/db_dependent/Koha/ILL/Backend.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
24
24
use Koha::ILL::Backend;
25
use Koha::ILL::Backend;
25
26
(-)a/t/db_dependent/Koha/ILL/Batch.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
26
(-)a/t/db_dependent/Koha/ILL/Batch/Statuses.t (-1 / +2 lines)
Lines 28-34 use t::lib::TestBuilder; Link Here
28
use Test::MockObject;
28
use Test::MockObject;
29
use Test::MockModule;
29
use Test::MockModule;
30
30
31
use Test::More tests => 13;
31
use Test::NoWarnings;
32
use Test::More tests => 14;
32
33
33
my $schema  = Koha::Database->new->schema;
34
my $schema  = Koha::Database->new->schema;
34
my $builder = t::lib::TestBuilder->new;
35
my $builder = t::lib::TestBuilder->new;
(-)a/t/db_dependent/Koha/ILL/Batches.t (-1 / +2 lines)
Lines 27-33 use t::lib::TestBuilder; Link Here
27
use Test::MockObject;
27
use Test::MockObject;
28
use Test::MockModule;
28
use Test::MockModule;
29
29
30
use Test::More tests => 6;
30
use Test::NoWarnings;
31
use Test::More tests => 7;
31
32
32
my $schema  = Koha::Database->new->schema;
33
my $schema  = Koha::Database->new->schema;
33
my $builder = t::lib::TestBuilder->new;
34
my $builder = t::lib::TestBuilder->new;
(-)a/t/db_dependent/Koha/ILL/Comments.t (-1 / +2 lines)
Lines 28-34 use t::lib::TestBuilder; Link Here
28
use Test::MockObject;
28
use Test::MockObject;
29
use Test::MockModule;
29
use Test::MockModule;
30
30
31
use Test::More tests => 8;
31
use Test::NoWarnings;
32
use Test::More tests => 9;
32
33
33
my $schema  = Koha::Database->new->schema;
34
my $schema  = Koha::Database->new->schema;
34
my $builder = t::lib::TestBuilder->new;
35
my $builder = t::lib::TestBuilder->new;
(-)a/t/db_dependent/Koha/ILL/Request.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 5;
22
use Test::NoWarnings;
23
use Test::More tests => 6;
23
use Test::MockModule;
24
use Test::MockModule;
24
25
25
use Koha::ILL::Requests;
26
use Koha::ILL::Requests;
(-)a/t/db_dependent/Koha/ILL/Request/Attributes.t (-1 / +2 lines)
Lines 22-28 use Koha::Database; Link Here
22
use Koha::Patrons;
22
use Koha::Patrons;
23
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
24
24
25
use Test::More tests => 3;
25
use Test::NoWarnings;
26
use Test::More tests => 4;
26
27
27
my $schema = Koha::Database->new->schema;
28
my $schema = Koha::Database->new->schema;
28
use_ok('Koha::ILL::Request::Attribute');
29
use_ok('Koha::ILL::Request::Attribute');
(-)a/t/db_dependent/Koha/ILL/Request/Config.t (-1 / +2 lines)
Lines 23-29 use t::lib::TestBuilder; Link Here
23
use Test::MockObject;
23
use Test::MockObject;
24
use Test::Exception;
24
use Test::Exception;
25
25
26
use Test::More tests => 6;
26
use Test::NoWarnings;
27
use Test::More tests => 7;
27
28
28
my $schema = Koha::Database->new->schema;
29
my $schema = Koha::Database->new->schema;
29
my $builder = t::lib::TestBuilder->new;
30
my $builder = t::lib::TestBuilder->new;
(-)a/t/db_dependent/Koha/ILL/Request/Logger.t (-1 / +2 lines)
Lines 20-26 use Modern::Perl; Link Here
20
20
21
use Koha::Database;
21
use Koha::Database;
22
22
23
use Test::More tests => 2;
23
use Test::NoWarnings;
24
use Test::More tests => 3;
24
use Test::MockModule;
25
use Test::MockModule;
25
use Test::MockObject;
26
use Test::MockObject;
26
use t::lib::Mocks;
27
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/ILL/Request/SupplierUpdate.t (-1 / +2 lines)
Lines 22-28 use Test::MockObject; Link Here
22
use Koha::ILL::Request;
22
use Koha::ILL::Request;
23
use Koha::ILL::Request::SupplierUpdate;
23
use Koha::ILL::Request::SupplierUpdate;
24
24
25
use Test::More tests => 4;
25
use Test::NoWarnings;
26
use Test::More tests => 5;
26
27
27
use_ok('Koha::ILL::Request::SupplierUpdate');
28
use_ok('Koha::ILL::Request::SupplierUpdate');
28
29
(-)a/t/db_dependent/Koha/ILL/Request/SupplierUpdateProcessor.t (-1 / +2 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use Koha::ILL::Request::SupplierUpdateProcessor;
20
use Koha::ILL::Request::SupplierUpdateProcessor;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::Warn;
24
use Test::Warn;
24
25
25
my $processor = Koha::ILL::Request::SupplierUpdateProcessor->new(
26
my $processor = Koha::ILL::Request::SupplierUpdateProcessor->new(
(-)a/t/db_dependent/Koha/ILL/Request/Workflow/Availability.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
22
22
use Test::MockModule;
23
use Test::MockModule;
23
use Test::MockObject;
24
use Test::MockObject;
(-)a/t/db_dependent/Koha/ILL/Request/Workflow/TypeDisclaimer.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
22
22
use Test::MockModule;
23
use Test::MockModule;
23
use Test::MockObject;
24
use Test::MockObject;
(-)a/t/db_dependent/Koha/ILL/Requests.t (-1 / +2 lines)
Lines 41-47 use Test::Exception; Link Here
41
use Test::Deep qw/ cmp_deeply ignore /;
41
use Test::Deep qw/ cmp_deeply ignore /;
42
use Test::Warn;
42
use Test::Warn;
43
43
44
use Test::More tests => 16;
44
use Test::NoWarnings;
45
use Test::More tests => 17;
45
46
46
my $schema = Koha::Database->new->schema;
47
my $schema = Koha::Database->new->schema;
47
my $builder = t::lib::TestBuilder->new;
48
my $builder = t::lib::TestBuilder->new;
(-)a/t/db_dependent/Koha/Import/Record/Auths.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
24
24
use Koha::Import::Record::Auths;
25
use Koha::Import::Record::Auths;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Import/Record/Biblios.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
24
24
use Koha::Import::Record::Biblios;
25
use Koha::Import::Record::Biblios;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Import/Record/Items.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
24
24
use Koha::Import::Record::Items;
25
use Koha::Import::Record::Items;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Import/Record/Matches.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 6;
22
use Test::NoWarnings;
23
use Test::More tests => 7;
23
24
24
use Koha::Import::Record::Matches;
25
use Koha::Import::Record::Matches;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Import/Records.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 11;
22
use Test::NoWarnings;
23
use Test::More tests => 12;
23
24
24
use Koha::Import::Records;
25
use Koha::Import::Records;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Item.t (-1 / +2 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use utf8;
21
use utf8;
22
22
23
use Test::More tests => 38;
23
use Test::NoWarnings;
24
use Test::More tests => 39;
24
use Test::Exception;
25
use Test::Exception;
25
use Test::MockModule;
26
use Test::MockModule;
26
use Test::Warn;
27
use Test::Warn;
(-)a/t/db_dependent/Koha/Item/Attributes.t (+1 lines)
Lines 16-21 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::NoWarnings;
19
use Test::More tests=> 10;
20
use Test::More tests=> 10;
20
use utf8;
21
use utf8;
21
22
(-)a/t/db_dependent/Koha/Item/Search/Field.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 11;
4
use Test::NoWarnings;
5
use Test::More tests => 12;
5
6
6
use C4::Context;
7
use C4::Context;
7
use Koha::Database;
8
use Koha::Database;
(-)a/t/db_dependent/Koha/Item/Template.t (-1 / +2 lines)
Lines 26-32 use Koha::Database; Link Here
26
26
27
use t::lib::TestBuilder;
27
use t::lib::TestBuilder;
28
28
29
use Test::More tests => 2;
29
use Test::NoWarnings;
30
use Test::More tests => 3;
30
31
31
my $schema  = Koha::Database->new->schema;
32
my $schema  = Koha::Database->new->schema;
32
my $builder = t::lib::TestBuilder->new;
33
my $builder = t::lib::TestBuilder->new;
(-)a/t/db_dependent/Koha/Item/Templates.t (-1 / +2 lines)
Lines 24-30 use Koha::Database; Link Here
24
24
25
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
26
26
27
use Test::More tests => 2;
27
use Test::NoWarnings;
28
use Test::More tests => 3;
28
29
29
my $schema  = Koha::Database->new->schema;
30
my $schema  = Koha::Database->new->schema;
30
my $builder = t::lib::TestBuilder->new;
31
my $builder = t::lib::TestBuilder->new;
(-)a/t/db_dependent/Koha/Item/Transfer.t (-1 / +2 lines)
Lines 24-30 use Koha::DateUtils qw( dt_from_string ); Link Here
24
24
25
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
26
26
27
use Test::More tests => 7;
27
use Test::NoWarnings;
28
use Test::More tests => 8;
28
use Test::Exception;
29
use Test::Exception;
29
30
30
my $schema  = Koha::Database->new->schema;
31
my $schema  = Koha::Database->new->schema;
(-)a/t/db_dependent/Koha/Item/Transfers.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Koha::Item::Transfer;
25
use Koha::Item::Transfer;
25
use Koha::Item::Transfers;
26
use Koha::Item::Transfers;
(-)a/t/db_dependent/Koha/ItemTypes.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 15;
22
use Test::NoWarnings;
23
use Test::More tests => 16;
23
24
24
use t::lib::Mocks;
25
use t::lib::Mocks;
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Items.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 20;
22
use Test::NoWarnings;
23
use Test::More tests => 21;
23
24
24
use Test::MockModule;
25
use Test::MockModule;
25
use Test::Exception;
26
use Test::Exception;
(-)a/t/db_dependent/Koha/Items/BatchUpdate.t (+1 lines)
Lines 16-21 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::NoWarnings;
19
use Test::More tests=> 8;
20
use Test::More tests=> 8;
20
use Test::Warn;
21
use Test::Warn;
21
use utf8;
22
use utf8;
(-)a/t/db_dependent/Koha/KeyboardShortcuts.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 4;
21
use Test::NoWarnings;
22
use Test::More tests => 5;
22
23
23
use Koha::Database;
24
use Koha::Database;
24
25
(-)a/t/db_dependent/Koha/Libraries.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 13;
22
use Test::NoWarnings;
23
use Test::More tests => 14;
23
24
24
use C4::Biblio;
25
use C4::Biblio;
25
use C4::Context;
26
use C4::Context;
(-)a/t/db_dependent/Koha/Library.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::AdditionalContents;
26
use Koha::AdditionalContents;
(-)a/t/db_dependent/Koha/Library/OverDriveInfos.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Koha::Library::OverDriveInfos;
25
use Koha::Library::OverDriveInfos;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/MarcSubfieldStructures.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
24
24
use Koha::MarcSubfieldStructures;
25
use Koha::MarcSubfieldStructures;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Notice/Message.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
24
24
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
25
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
25
26
(-)a/t/db_dependent/Koha/Notice/Template.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
24
24
use_ok('Koha::Notice::Template');
25
use_ok('Koha::Notice::Template');
25
26
(-)a/t/db_dependent/Koha/Notice_Util.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
#use Data::Dumper qw/Dumper/;
21
#use Data::Dumper qw/Dumper/;
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
use Test::MockModule;
24
use Test::MockModule;
24
use Test::Warn;
25
use Test::Warn;
25
26
(-)a/t/db_dependent/Koha/Notices.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 9;
22
use Test::NoWarnings;
23
use Test::More tests => 10;
23
24
24
use Koha::Notice::Templates;
25
use Koha::Notice::Templates;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/OAIHarvester.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 28;
21
use Test::NoWarnings;
22
use Test::More tests => 29;
22
use Test::Exception;
23
use Test::Exception;
23
use File::Temp   qw/tempfile/;
24
use File::Temp   qw/tempfile/;
24
use Scalar::Util qw//;
25
use Scalar::Util qw//;
(-)a/t/db_dependent/Koha/OAIServers.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 2;
21
use Test::NoWarnings;
22
use Test::More tests => 3;
22
use Test::Exception;
23
use Test::Exception;
23
24
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Object.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 23;
20
use Test::NoWarnings;
21
use Test::More tests => 24;
21
use Test::Exception;
22
use Test::Exception;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/Koha/Object/Mixin/AdditionalFields.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 6;
4
use Test::NoWarnings;
5
use Test::More tests => 7;
5
use t::lib::TestBuilder;
6
use t::lib::TestBuilder;
6
use String::Random qw(random_string);
7
use String::Random qw(random_string);
7
use Koha::Database;
8
use Koha::Database;
(-)a/t/db_dependent/Koha/Objects.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 23;
22
use Test::NoWarnings;
23
use Test::More tests => 24;
23
use Test::Exception;
24
use Test::Exception;
24
use Test::MockModule;
25
use Test::MockModule;
25
use Test::Warn;
26
use Test::Warn;
(-)a/t/db_dependent/Koha/Objects/Mixin/AdditionalFields.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 12;
5
use Test::NoWarnings;
6
use Test::More tests => 13;
6
7
7
use Koha::Acquisition::Baskets; # Koha::Acquisition::Baskets uses the mixin
8
use Koha::Acquisition::Baskets; # Koha::Acquisition::Baskets uses the mixin
8
use Koha::AdditionalFields;
9
use Koha::AdditionalFields;
(-)a/t/db_dependent/Koha/Objects/Mixin/ExtendedAttributes.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
use C4::Context;
24
use C4::Context;
24
25
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Objects/Record/Collections.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 1;
5
use Test::NoWarnings;
6
use Test::More tests => 2;
6
7
7
use Koha::Biblios;
8
use Koha::Biblios;
8
use Koha::Database;
9
use Koha::Database;
(-)a/t/db_dependent/Koha/Old.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::Old::Patrons;
26
use Koha::Old::Patrons;
(-)a/t/db_dependent/Koha/Old/Checkout.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/Koha/Old/Checkouts.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/Koha/Old/Holds.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Exception;
22
use Test::Exception;
22
23
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/Koha/Patron/Attribute.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
24
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
25
use Test::Exception;
26
use Test::Exception;
(-)a/t/db_dependent/Koha/Patron/Attribute/Types.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 7;
22
use Test::NoWarnings;
23
use Test::More tests => 8;
23
24
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
25
use t::lib::Mocks;
26
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/Patron/Categories.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 10;
22
use Test::NoWarnings;
23
use Test::More tests => 11;
23
24
24
use C4::Context;
25
use C4::Context;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Patron/Category.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 8;
22
use Test::NoWarnings;
23
use Test::More tests => 9;
23
24
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
25
use t::lib::Mocks;
26
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/Patron/Consents.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Data::Dumper qw/Dumper/;
21
use Data::Dumper qw/Dumper/;
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
use Test::MockModule;
24
use Test::MockModule;
24
use Test::MockObject;
25
use Test::MockObject;
25
26
(-)a/t/db_dependent/Koha/Patron/Images.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::Patrons;
26
use Koha::Patrons;
(-)a/t/db_dependent/Koha/Patron/MessagePreference/Attributes.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
26
(-)a/t/db_dependent/Koha/Patron/MessagePreference/Transport/Preferences.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
24
24
use t::lib::Mocks;
25
use t::lib::Mocks;
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Patron/MessagePreference/Transport/Types.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
26
(-)a/t/db_dependent/Koha/Patron/MessagePreference/Transports.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
24
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
25
26
(-)a/t/db_dependent/Koha/Patron/MessagePreferences.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 8;
22
use Test::NoWarnings;
23
use Test::More tests => 9;
23
24
24
use t::lib::Mocks;
25
use t::lib::Mocks;
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Patron/Messages.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 14;
22
use Test::NoWarnings;
23
use Test::More tests => 15;
23
24
24
use C4::Context;
25
use C4::Context;
25
use Koha::ActionLogs;
26
use Koha::ActionLogs;
(-)a/t/db_dependent/Koha/Patron/Relationship.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Patron/Restriction.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Patron/Restriction/Type.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/Patron_generate_userid.t (-1 / +2 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use utf8;
21
use utf8;
22
#use Data::Dumper;
22
#use Data::Dumper;
23
use Test::More tests => 2;
23
use Test::NoWarnings;
24
use Test::More tests => 3;
24
use Test::Warn;
25
use Test::Warn;
25
use Test::MockModule;
26
use Test::MockModule;
26
use Test::MockObject;
27
use Test::MockObject;
(-)a/t/db_dependent/Koha/Patrons.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 44;
22
use Test::NoWarnings;
23
use Test::More tests => 45;
23
use Test::Warn;
24
use Test::Warn;
24
use Test::Exception;
25
use Test::Exception;
25
use Test::MockModule;
26
use Test::MockModule;
(-)a/t/db_dependent/Koha/Plugins/Account_hooks.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 4;
19
use Test::NoWarnings;
20
use Test::More tests => 5;
20
use Test::MockModule;
21
use Test::MockModule;
21
use Test::Warn;
22
use Test::Warn;
22
23
(-)a/t/db_dependent/Koha/Plugins/Auth/Client.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 6;
19
use Test::NoWarnings;
20
use Test::More tests => 7;
20
use Test::Exception;
21
use Test::Exception;
21
22
22
use File::Basename;
23
use File::Basename;
(-)a/t/db_dependent/Koha/Plugins/BackgroundJob.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 1;
19
use Test::NoWarnings;
20
use Test::More tests => 2;
20
use Test::MockModule;
21
use Test::MockModule;
21
22
22
use File::Basename;
23
use File::Basename;
(-)a/t/db_dependent/Koha/Plugins/Barcode_transform_hooks.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 4;
19
use Test::NoWarnings;
20
use Test::More tests => 5;
20
use Test::MockModule;
21
use Test::MockModule;
21
use Test::Warn;
22
use Test::Warn;
22
23
(-)a/t/db_dependent/Koha/Plugins/Biblio_and_Items_plugin_hooks.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 5;
19
use Test::NoWarnings;
20
use Test::More tests => 6;
20
use Test::Warn;
21
use Test::Warn;
21
22
22
use File::Basename;
23
use File::Basename;
(-)a/t/db_dependent/Koha/Plugins/Broken.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
use File::Basename;
18
use File::Basename;
19
use Test::More tests => 2;
19
use Test::NoWarnings;
20
use Test::More tests => 3;
20
use Test::Warn;
21
use Test::Warn;
21
22
22
use t::lib::Mocks;
23
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/Plugins/Circulation_hooks.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 4;
19
use Test::NoWarnings;
20
use Test::More tests => 5;
20
use Test::MockModule;
21
use Test::MockModule;
21
use Test::Warn;
22
use Test::Warn;
22
23
(-)a/t/db_dependent/Koha/Plugins/Holds_hooks.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 6;
19
use Test::NoWarnings;
20
use Test::More tests => 7;
20
use Test::MockModule;
21
use Test::MockModule;
21
use Test::Warn;
22
use Test::Warn;
22
23
(-)a/t/db_dependent/Koha/Plugins/Ill_hooks.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
use File::Basename;
18
use File::Basename;
19
use Test::More tests => 4;
19
use Test::NoWarnings;
20
use Test::More tests => 5;
20
21
21
use t::lib::Mocks;
22
use t::lib::Mocks;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Plugins/KitchenSink.t (-1 / +2 lines)
Lines 19-25 use Archive::Extract; Link Here
19
use File::Temp qw/tempdir/;
19
use File::Temp qw/tempdir/;
20
use FindBin    qw($Bin);
20
use FindBin    qw($Bin);
21
use Test::MockModule;
21
use Test::MockModule;
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use Test::Warn;
24
use Test::Warn;
24
25
25
use t::lib::Mocks;
26
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/Plugins/Message_hooks.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 4;
19
use Test::NoWarnings;
20
use Test::More tests => 5;
20
use Test::MockModule;
21
use Test::MockModule;
21
use Test::Warn;
22
use Test::Warn;
22
23
(-)a/t/db_dependent/Koha/Plugins/Plugins.t (-1 / +2 lines)
Lines 24-30 use File::Temp qw( tempdir tempfile ); Link Here
24
use FindBin qw($Bin);
24
use FindBin qw($Bin);
25
use Module::Load::Conditional qw(can_load);
25
use Module::Load::Conditional qw(can_load);
26
use Test::MockModule;
26
use Test::MockModule;
27
use Test::More tests => 18;
27
use Test::NoWarnings;
28
use Test::More tests => 19;
28
use Test::Warn;
29
use Test::Warn;
29
30
30
use C4::Context;
31
use C4::Context;
(-)a/t/db_dependent/Koha/Plugins/TemplateIncludePathHook.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 5;
19
use Test::NoWarnings;
20
use Test::More tests => 6;
20
use Test::MockModule;
21
use Test::MockModule;
21
use Test::Warn;
22
use Test::Warn;
22
23
(-)a/t/db_dependent/Koha/Plugins/Transform_prepared_letter_hook.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 4;
19
use Test::NoWarnings;
20
use Test::More tests => 5;
20
use Test::MockModule;
21
use Test::MockModule;
21
use Test::Warn;
22
use Test::Warn;
22
23
(-)a/t/db_dependent/Koha/Plugins/authority_hooks.t (-1 / +2 lines)
Lines 17-23 Link Here
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use MARC::Record;
19
use MARC::Record;
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use Test::Warn;
22
use Test::Warn;
22
23
23
use File::Basename;
24
use File::Basename;
(-)a/t/db_dependent/Koha/Policy/Holds.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use t::lib::Mocks;
26
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/Policy/Patrons/Cardnumber.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::Policy::Patrons::Cardnumber;
26
use Koha::Policy::Patrons::Cardnumber;
(-)a/t/db_dependent/Koha/Preservation/Processings.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Exception;
22
use Test::Exception;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/Koha/Preservation/Trains.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Exception;
22
use Test::Exception;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/Koha/PseudonymizedTransaction.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
24
24
use Test::Exception;
25
use Test::Exception;
25
26
(-)a/t/db_dependent/Koha/Quotes.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 14;
19
use Test::NoWarnings;
20
use Test::More tests => 15;
20
21
21
use Koha::Database;
22
use Koha::Database;
22
use Koha::DateUtils qw(dt_from_string);
23
use Koha::DateUtils qw(dt_from_string);
(-)a/t/db_dependent/Koha/REST/Plugin/Auth/IdP.t (-1 / +2 lines)
Lines 67-73 post '/start_session' => sub { Link Here
67
    }
67
    }
68
};
68
};
69
69
70
use Test::More tests => 2;
70
use Test::NoWarnings;
71
use Test::More tests => 3;
71
use Test::Mojo;
72
use Test::Mojo;
72
73
73
use t::lib::Mocks;
74
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/REST/Plugin/Objects.t (-1 / +2 lines)
Lines 140-146 get '/cities/:city_id/rs' => sub { Link Here
140
};
140
};
141
141
142
# The tests
142
# The tests
143
use Test::More tests => 18;
143
use Test::NoWarnings;
144
use Test::More tests => 19;
144
use Test::Mojo;
145
use Test::Mojo;
145
146
146
use t::lib::Mocks;
147
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/REST/Plugin/Pagination.t (-1 / +2 lines)
Lines 86-92 get '/dbic_merge_pagination' => sub { Link Here
86
86
87
# The tests
87
# The tests
88
88
89
use Test::More tests => 2;
89
use Test::NoWarnings;
90
use Test::More tests => 3;
90
use Test::Mojo;
91
use Test::Mojo;
91
92
92
use t::lib::Mocks;
93
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/REST/Plugin/PluginRoutes.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use Test::Mojo;
22
use Test::Mojo;
22
use Test::Warn;
23
use Test::Warn;
23
use Test::MockModule;
24
use Test::MockModule;
(-)a/t/db_dependent/Koha/REST/V1.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/Koha/Ratings.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 6;
20
use Test::NoWarnings;
21
use Test::More tests => 7;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::Rating;
24
use Koha::Rating;
(-)a/t/db_dependent/Koha/Recall.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 27;
20
use Test::NoWarnings;
21
use Test::More tests => 28;
21
use t::lib::Dates;
22
use t::lib::Dates;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/Recalls.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 23;
20
use Test::NoWarnings;
21
use Test::More tests => 24;
21
use t::lib::Dates;
22
use t::lib::Dates;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/RecordSource.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
24
(-)a/t/db_dependent/Koha/Reports.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 8;
20
use Test::NoWarnings;
21
use Test::More tests => 9;
21
22
22
use Koha::Report;
23
use Koha::Report;
23
use Koha::Reports;
24
use Koha::Reports;
(-)a/t/db_dependent/Koha/Reviews.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 8;
22
use Test::NoWarnings;
23
use Test::More tests => 9;
23
24
24
use Koha::Patrons;
25
use Koha::Patrons;
25
use Koha::Reviews;
26
use Koha::Reviews;
(-)a/t/db_dependent/Koha/SMS_Providers.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 6;
22
use Test::NoWarnings;
23
use Test::More tests => 7;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::SMS::Provider;
26
use Koha::SMS::Provider;
(-)a/t/db_dependent/Koha/SMTP/Server.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use Test::Exception;
22
use Test::Exception;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/Koha/SMTP/Servers.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::SMTP::Servers;
23
use Koha::SMTP::Servers;
23
24
(-)a/t/db_dependent/Koha/SearchEngine/Elasticsearch/Indexer.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
use Test::MockModule;
24
use Test::MockModule;
24
use Test::Warn;
25
use Test::Warn;
25
use t::lib::Mocks;
26
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/SearchEngine/Elasticsearch/QueryBuilder.t (-1 / +2 lines)
Lines 22-28 use Test::Exception; Link Here
22
use Test::Warn;
22
use Test::Warn;
23
use t::lib::Mocks;
23
use t::lib::Mocks;
24
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
25
use Test::More tests => 8;
25
use Test::NoWarnings;
26
use Test::More tests => 9;
26
27
27
use List::Util qw( all );
28
use List::Util qw( all );
28
29
(-)a/t/db_dependent/Koha/SearchEngine/Elasticsearch/Reset.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 7;
20
use Test::NoWarnings;
21
use Test::More tests => 8;
21
use Test::MockModule;
22
use Test::MockModule;
22
23
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/Koha/SearchEngine/Indexer.t (-1 / +2 lines)
Lines 4-10 Link Here
4
4
5
use Modern::Perl;
5
use Modern::Perl;
6
6
7
use Test::More tests => 3;
7
use Test::NoWarnings;
8
use Test::More tests => 4;
8
use Test::Warn;
9
use Test::Warn;
9
10
10
use MARC::Field;
11
use MARC::Field;
(-)a/t/db_dependent/Koha/SearchEngine/Search.t (-1 / +2 lines)
Lines 4-10 Link Here
4
4
5
use Modern::Perl;
5
use Modern::Perl;
6
6
7
use Test::More tests => 1;
7
use Test::NoWarnings;
8
use Test::More tests => 2;
8
9
9
use MARC::Field;
10
use MARC::Field;
10
use MARC::Record;
11
use MARC::Record;
(-)a/t/db_dependent/Koha/SearchEngine/Zebra/QueryBuilder.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use t::lib::Mocks;
22
use t::lib::Mocks;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
use Test::MockModule;
24
use Test::MockModule;
(-)a/t/db_dependent/Koha/SearchField.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 12;
22
use Test::NoWarnings;
23
use Test::More tests => 13;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::SearchFields;
26
use Koha::SearchFields;
(-)a/t/db_dependent/Koha/SearchFilters.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::SearchFilters;
26
use Koha::SearchFilters;
(-)a/t/db_dependent/Koha/Session.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 2;
4
use Test::NoWarnings;
5
use Test::More tests => 3;
5
6
6
use t::lib::TestBuilder;
7
use t::lib::TestBuilder;
7
use C4::Auth;
8
use C4::Auth;
(-)a/t/db_dependent/Koha/SharedContent.t (-1 / +2 lines)
Lines 23-29 use t::lib::TestBuilder; Link Here
23
use t::lib::Mocks;
23
use t::lib::Mocks;
24
use Test::MockModule;
24
use Test::MockModule;
25
use Test::MockObject;
25
use Test::MockObject;
26
use Test::More tests => 45;
26
use Test::NoWarnings;
27
use Test::More tests => 46;
27
use Koha::Database;
28
use Koha::Database;
28
use Koha::Patrons;
29
use Koha::Patrons;
29
use Koha::Subscriptions;
30
use Koha::Subscriptions;
(-)a/t/db_dependent/Koha/Statistic.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::DateUtils qw(dt_from_string);
23
use Koha::DateUtils qw(dt_from_string);
23
use Koha::Statistics;
24
use Koha::Statistics;
(-)a/t/db_dependent/Koha/Statistics.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use C4::Context;
26
use C4::Context;
(-)a/t/db_dependent/Koha/Subscription.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 10;
22
use Test::NoWarnings;
23
use Test::More tests => 11;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::Subscription;
26
use Koha::Subscription;
(-)a/t/db_dependent/Koha/Subscription/Numberpatterns.t (-1 / +2 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use t::lib::TestBuilder;
22
use t::lib::TestBuilder;
23
use Test::More tests => 6;
23
use Test::NoWarnings;
24
use Test::More tests => 7;
24
use Koha::Database;
25
use Koha::Database;
25
26
26
use_ok('Koha::Subscription::Numberpatterns');
27
use_ok('Koha::Subscription::Numberpatterns');
(-)a/t/db_dependent/Koha/Subscription/Routinglists.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use t::lib::TestBuilder;
22
use t::lib::TestBuilder;
22
23
23
use C4::Biblio;
24
use C4::Biblio;
(-)a/t/db_dependent/Koha/Suggestion.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
24
24
use Koha::Database;
25
use Koha::Database;
25
use Koha::Suggestions;
26
use Koha::Suggestions;
(-)a/t/db_dependent/Koha/Suggestions.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 11;
22
use Test::NoWarnings;
23
use Test::More tests => 12;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use Koha::Suggestions;
26
use Koha::Suggestions;
(-)a/t/db_dependent/Koha/Tags.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
24
(-)a/t/db_dependent/Koha/Tags/Approvals.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
24
(-)a/t/db_dependent/Koha/Tags/Indexes.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
24
(-)a/t/db_dependent/Koha/Template/Plugin/Asset.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 16;
5
use Test::NoWarnings;
6
use Test::More tests => 17;
6
use Template;
7
use Template;
7
use Test::MockModule;
8
use Test::MockModule;
8
9
(-)a/t/db_dependent/Koha/Template/Plugin/Branches.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 2;
19
use Test::NoWarnings;
20
use Test::More tests => 3;
20
21
21
use t::lib::Mocks;
22
use t::lib::Mocks;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha/Template/Plugin/CirculationRules.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 8;
19
use Test::NoWarnings;
20
use Test::More tests => 9;
20
21
21
use C4::Context;
22
use C4::Context;
22
use C4::Circulation qw(AddIssue);
23
use C4::Circulation qw(AddIssue);
(-)a/t/db_dependent/Koha/Template/Plugin/ClassSources.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 2;
19
use Test::NoWarnings;
20
use Test::More tests => 3;
20
21
21
use t::lib::Mocks;
22
use t::lib::Mocks;
22
23
(-)a/t/db_dependent/Koha/Template/Plugin/ExtendedAttributeTypes.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 5;
19
use Test::NoWarnings;
20
use Test::More tests => 6;
20
21
21
use C4::Context;
22
use C4::Context;
22
use Koha::Database;
23
use Koha::Database;
(-)a/t/db_dependent/Koha/Template/Plugin/ItemTypes.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 10;
19
use Test::NoWarnings;
20
use Test::More tests => 11;
20
21
21
use C4::Context;
22
use C4::Context;
22
use Koha::Database;
23
use Koha::Database;
(-)a/t/db_dependent/Koha/Template/Plugin/JSConsents.t (-1 / +2 lines)
Lines 5-11 use Modern::Perl; Link Here
5
use C4::Context;
5
use C4::Context;
6
6
7
use Test::MockModule;
7
use Test::MockModule;
8
use Test::More tests => 3;
8
use Test::NoWarnings;
9
use Test::More tests => 4;
9
use t::lib::Mocks;
10
use t::lib::Mocks;
10
11
11
BEGIN {
12
BEGIN {
(-)a/t/db_dependent/Koha/Template/Plugin/KohaPlugins.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 18;
5
use Test::NoWarnings;
6
use Test::More tests => 19;
6
use Test::Warn;
7
use Test::Warn;
7
use CGI;
8
use CGI;
8
use File::Basename;
9
use File::Basename;
(-)a/t/db_dependent/Koha/Template/Plugin/Notices.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 6;
19
use Test::NoWarnings;
20
use Test::More tests => 7;
20
21
21
use C4::Context;
22
use C4::Context;
22
use Koha::Database;
23
use Koha::Database;
(-)a/t/db_dependent/Koha/Template/Plugin/Registers.t (-1 / +2 lines)
Lines 17-23 Link Here
17
# with Koha; if not, see <http://www.gnu.org/licenses>.
17
# with Koha; if not, see <http://www.gnu.org/licenses>.
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
22
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/Template/Plugin/TablesSettings.t (-1 / +2 lines)
Lines 5-11 use Modern::Perl; Link Here
5
use C4::Context;
5
use C4::Context;
6
6
7
use Test::MockModule;
7
use Test::MockModule;
8
use Test::More tests => 3;
8
use Test::NoWarnings;
9
use Test::More tests => 4;
9
use t::lib::Mocks;
10
use t::lib::Mocks;
10
11
11
BEGIN {
12
BEGIN {
(-)a/t/db_dependent/Koha/Ticket.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 8;
22
use Test::NoWarnings;
23
use Test::More tests => 9;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
use t::lib::Mocks;
25
use t::lib::Mocks;
25
26
(-)a/t/db_dependent/Koha/Ticket/Update.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
25
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Koha/UI/Form/Builder/Biblio.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 7;
20
use Test::NoWarnings;
21
use Test::More tests => 8;
21
use Test::MockModule;
22
use Test::MockModule;
22
23
23
use C4::ClassSource;
24
use C4::ClassSource;
(-)a/t/db_dependent/Koha/UI/Form/Builder/Item.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 10;
19
use Test::NoWarnings;
20
use Test::More tests => 11;
20
use Test::MockModule;
21
use Test::MockModule;
21
use Data::Dumper qw( Dumper );
22
use Data::Dumper qw( Dumper );
22
use utf8;
23
use utf8;
(-)a/t/db_dependent/Koha/UI/Form/Builder/Item/itemtypes-default.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 2;
19
use Test::NoWarnings;
20
use Test::More tests => 3;
20
21
21
use Koha::Database;
22
use Koha::Database;
22
use Koha::UI::Form::Builder::Item;
23
use Koha::UI::Form::Builder::Item;
(-)a/t/db_dependent/Koha/Virtualshelf.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use t::lib::Mocks;
26
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/Virtualshelves.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use Test::Exception;
24
use Test::Exception;
24
25
25
use t::lib::Mocks;
26
use t::lib::Mocks;
(-)a/t/db_dependent/Koha/XSLT/Base.t (-1 / +2 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use File::Temp qw/tempfile/;
22
use File::Temp qw/tempfile/;
23
use Test::More tests => 33;
23
use Test::NoWarnings;
24
use Test::More tests => 34;
24
use Test::Warn;
25
use Test::Warn;
25
26
26
use Koha::XSLT::Base;
27
use Koha::XSLT::Base;
(-)a/t/db_dependent/Koha/XSLT/Security.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use File::Temp qw/tempfile/;
21
use File::Temp qw/tempfile/;
22
use Test::More tests => 8;
22
use Test::NoWarnings;
23
use Test::More tests => 9;
23
use Test::Warn;
24
use Test::Warn;
24
25
25
use Koha::XSLT::Base;
26
use Koha::XSLT::Base;
(-)a/t/db_dependent/Koha/Z3950Responder/GenericSession.t (-1 / +2 lines)
Lines 3-9 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use utf8;
4
use utf8;
5
5
6
use Test::More tests => 3;
6
use Test::NoWarnings;
7
use Test::More tests => 4;
7
use Test::WWW::Mechanize;
8
use Test::WWW::Mechanize;
8
use t::lib::Mocks qw(mock_preference);
9
use t::lib::Mocks qw(mock_preference);
9
10
(-)a/t/db_dependent/Koha/Z3950Responder/Session.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 3;
4
use Test::NoWarnings;
5
use Test::More tests => 4;
5
use t::lib::TestBuilder;
6
use t::lib::TestBuilder;
6
use C4::Items qw( GetMarcItem );
7
use C4::Items qw( GetMarcItem );
7
8
(-)a/t/db_dependent/Koha/Z3950Responder/Session2.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 3;
4
use Test::NoWarnings;
5
use Test::More tests => 4;
5
use t::lib::TestBuilder;
6
use t::lib::TestBuilder;
6
use C4::Items qw( GetMarcItem );
7
use C4::Items qw( GetMarcItem );
7
8
(-)a/t/db_dependent/Koha/Z3950Responder/ZebraSession.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 3;
5
use Test::NoWarnings;
6
use Test::More tests => 4;
6
use Test::MockObject;
7
use Test::MockObject;
7
use t::lib::Mocks qw(mock_preference);
8
use t::lib::Mocks qw(mock_preference);
8
9
(-)a/t/db_dependent/Koha/Z3950Servers.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 2;
21
use Test::NoWarnings;
22
use Test::More tests => 3;
22
use Test::Exception;
23
use Test::Exception;
23
24
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
(-)a/t/db_dependent/Koha_Database.t (-1 / +2 lines)
Lines 4-10 Link Here
4
use Modern::Perl;
4
use Modern::Perl;
5
use utf8;
5
use utf8;
6
6
7
use Test::More tests => 9;
7
use Test::NoWarnings;
8
use Test::More tests => 10;
8
9
9
BEGIN {
10
BEGIN {
10
    use_ok('Koha::Database');
11
    use_ok('Koha::Database');
(-)a/t/db_dependent/Koha_Elasticsearch.t (-1 / +2 lines)
Lines 15-21 Link Here
15
15
16
use Modern::Perl;
16
use Modern::Perl;
17
17
18
use Test::More tests => 1;
18
use Test::NoWarnings;
19
use Test::More tests => 2;
19
use Test::MockModule;
20
use Test::MockModule;
20
21
21
use t::lib::Mocks;
22
use t::lib::Mocks;
(-)a/t/db_dependent/Koha_ExternalContent_OverDrive.t (+1 lines)
Lines 2-7 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::NoWarnings;
5
use Test::More;
6
use Test::More;
6
use Test::MockModule;
7
use Test::MockModule;
7
use t::lib::Mocks;
8
use t::lib::Mocks;
(-)a/t/db_dependent/Koha_MetadataRecord_Authority.t (-1 / +2 lines)
Lines 19-25 Link Here
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
24
24
use MARC::File::XML;
25
use MARC::File::XML;
25
26
(-)a/t/db_dependent/Koha_Misc_Files.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use Modern::Perl;
6
use Modern::Perl;
7
use C4::Context;
7
use C4::Context;
8
use Koha::Database;
8
use Koha::Database;
9
use Test::More tests => 30;
9
use Test::NoWarnings;
10
use Test::More tests => 31;
10
11
11
BEGIN {
12
BEGIN {
12
    use_ok('Koha::Misc::Files');
13
    use_ok('Koha::Misc::Files');
(-)a/t/db_dependent/Labels/t_Batch.t (-1 / +2 lines)
Lines 20-26 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Test::More tests => 25;
23
use Test::NoWarnings;
24
use Test::More tests => 26;
24
use MARC::Record;
25
use MARC::Record;
25
use MARC::Field;
26
use MARC::Field;
26
27
(-)a/t/db_dependent/Labels/t_Label.t (-1 / +2 lines)
Lines 20-26 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Test::More tests => 6;
23
use Test::NoWarnings;
24
use Test::More tests => 7;
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
25
use t::lib::Mocks;
26
use t::lib::Mocks;
26
27
(-)a/t/db_dependent/Labels/t_Layout.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 58;
22
use Test::NoWarnings;
23
use Test::More tests => 59;
23
24
24
use C4::Context;
25
use C4::Context;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Labels/t_Profile.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 27;
22
use Test::NoWarnings;
23
use Test::More tests => 28;
23
24
24
use C4::Context;
25
use C4::Context;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Labels/t_Template.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 54;
22
use Test::NoWarnings;
23
use Test::More tests => 55;
23
24
24
use C4::Context;
25
use C4::Context;
25
use Koha::Database;
26
use Koha::Database;
(-)a/t/db_dependent/Languages.t (-1 / +2 lines)
Lines 6-12 use utf8; Link Here
6
use Modern::Perl;
6
use Modern::Perl;
7
7
8
use Encode;
8
use Encode;
9
use Test::More tests => 22;
9
use Test::NoWarnings;
10
use Test::More tests => 23;
10
use Test::Deep;
11
use Test::Deep;
11
use Test::Exception;
12
use Test::Exception;
12
use List::Util qw(first);
13
use List::Util qw(first);
(-)a/t/db_dependent/Letters/GetLetterTemplates.t (-1 / +2 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 8;
2
use Test::NoWarnings;
3
use Test::More tests => 9;
3
4
4
use C4::Context;
5
use C4::Context;
5
use C4::Letters qw( GetLetterTemplates );
6
use C4::Letters qw( GetLetterTemplates );
(-)a/t/db_dependent/Letters/GetLettersAvailableForALibrary.t (-1 / +2 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 19;
2
use Test::NoWarnings;
3
use Test::More tests => 20;
3
4
4
use C4::Context;
5
use C4::Context;
5
use C4::Letters qw( GetLetters GetLettersAvailableForALibrary DelLetter );
6
use C4::Letters qw( GetLetters GetLettersAvailableForALibrary DelLetter );
(-)a/t/db_dependent/Letters/TemplateToolkit.t (-1 / +2 lines)
Lines 19-25 Link Here
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use Test::More tests => 32;
22
use Test::NoWarnings;
23
use Test::More tests => 33;
23
use Test::MockModule;
24
use Test::MockModule;
24
use Test::Warn;
25
use Test::Warn;
25
26
(-)a/t/db_dependent/LibraryGroups.t (-1 / +2 lines)
Lines 4-10 use Modern::Perl; Link Here
4
4
5
use List::MoreUtils 'any';
5
use List::MoreUtils 'any';
6
6
7
use Test::More tests => 21;
7
use Test::NoWarnings;
8
use Test::More tests => 22;
8
9
9
use t::lib::TestBuilder;
10
use t::lib::TestBuilder;
10
use Koha::Database;
11
use Koha::Database;
(-)a/t/db_dependent/Linker_Default.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 2;
19
use Test::NoWarnings;
20
use Test::More tests => 3;
20
21
21
use MARC::Record;
22
use MARC::Record;
22
use MARC::Field;
23
use MARC::Field;
(-)a/t/db_dependent/Linker_FirstMatch.t (-1 / +2 lines)
Lines 19-25 Link Here
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
24
24
use MARC::Record;
25
use MARC::Record;
25
use MARC::Field;
26
use MARC::Field;
(-)a/t/db_dependent/Log.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
use Data::Dumper qw( Dumper );
18
use Data::Dumper qw( Dumper );
19
use Test::More tests => 7;
19
use Test::NoWarnings;
20
use Test::More tests => 8;
20
21
21
use C4::Context;
22
use C4::Context;
22
use C4::Log qw( logaction cronlogaction );
23
use C4::Log qw( logaction cronlogaction );
(-)a/t/db_dependent/MarcModificationTemplates.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 129;
5
use Test::NoWarnings;
6
use Test::More tests => 130;
6
7
7
use Koha::Database;
8
use Koha::Database;
8
use Koha::SimpleMARC;
9
use Koha::SimpleMARC;
(-)a/t/db_dependent/Matcher.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use MARC::Record;
19
use MARC::Record;
20
use Test::More tests => 3;
20
use Test::NoWarnings;
21
use Test::More tests => 4;
21
use Test::Warn;
22
use Test::Warn;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/Members.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 50;
20
use Test::NoWarnings;
21
use Test::More tests => 51;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Exception;
23
use Test::Exception;
23
24
(-)a/t/db_dependent/Members/IssueSlip.t (-1 / +2 lines)
Lines 19-25 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use Data::Dumper; # REMOVEME with diag
21
use Data::Dumper; # REMOVEME with diag
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::MockModule;
24
use Test::MockModule;
24
use Test::MockTime qw( set_fixed_time );
25
use Test::MockTime qw( set_fixed_time );
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/Members/Statistics.t (-1 / +2 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 2;
2
use Test::NoWarnings;
3
use Test::More tests => 3;
3
4
4
# Please add more tests here !!
5
# Please add more tests here !!
5
6
(-)a/t/db_dependent/Message.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 5;
19
use Test::NoWarnings;
20
use Test::More tests => 6;
20
21
21
use utf8;
22
use utf8;
22
23
(-)a/t/db_dependent/MungeMarcPrice.t (+1 lines)
Lines 4-9 use Modern::Perl; Link Here
4
use C4::Biblio qw( MungeMarcPrice );
4
use C4::Biblio qw( MungeMarcPrice );
5
use Koha::Database;
5
use Koha::Database;
6
use Koha::Acquisition::Currencies;
6
use Koha::Acquisition::Currencies;
7
use Test::NoWarnings;
7
use Test::More;
8
use Test::More;
8
9
9
# work around wide character warnings
10
# work around wide character warnings
(-)a/t/db_dependent/OAI/AndSets.t (-1 / +2 lines)
Lines 18-24 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use Test::More tests => 4;
21
use Test::NoWarnings;
22
use Test::More tests => 5;
22
use Test::MockModule;
23
use Test::MockModule;
23
use Test::Warn;
24
use Test::Warn;
24
use MARC::Record;
25
use MARC::Record;
(-)a/t/db_dependent/OAI/Server.t (-1 / +2 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use Test::Deep qw( cmp_deeply re );
21
use Test::Deep qw( cmp_deeply re );
22
use Test::MockTime qw/set_fixed_time set_relative_time restore_time/;
22
use Test::MockTime qw/set_fixed_time set_relative_time restore_time/;
23
23
24
use Test::More tests => 35;
24
use Test::NoWarnings;
25
use Test::More tests => 36;
25
use DateTime;
26
use DateTime;
26
use File::Basename;
27
use File::Basename;
27
use File::Spec;
28
use File::Spec;
(-)a/t/db_dependent/OAI/Sets.t (-1 / +2 lines)
Lines 18-24 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use Test::More tests => 153;
21
use Test::NoWarnings;
22
use Test::More tests => 154;
22
use Test::MockModule;
23
use Test::MockModule;
23
use Test::Warn;
24
use Test::Warn;
24
use MARC::Record;
25
use MARC::Record;
(-)a/t/db_dependent/Passwordrecovery.t (-1 / +2 lines)
Lines 26-32 use Koha::Patrons; Link Here
26
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
27
use t::lib::Mocks;
27
use t::lib::Mocks;
28
28
29
use Test::More tests => 22;
29
use Test::NoWarnings;
30
use Test::More tests => 23;
30
use Test::MockModule;
31
use Test::MockModule;
31
use Test::Warn;
32
use Test::Warn;
32
use Carp;
33
use Carp;
(-)a/t/db_dependent/Patron/Borrower_Debarments.t (-1 / +2 lines)
Lines 13-19 use Koha::ActionLogs; Link Here
13
use t::lib::Mocks;
13
use t::lib::Mocks;
14
use t::lib::TestBuilder;
14
use t::lib::TestBuilder;
15
15
16
use Test::More tests => 39;
16
use Test::NoWarnings;
17
use Test::More tests => 40;
17
18
18
use_ok('Koha::Patron::Debarments');
19
use_ok('Koha::Patron::Debarments');
19
20
(-)a/t/db_dependent/Patron/Borrower_Files.t (-1 / +2 lines)
Lines 25-31 use Koha::Database; Link Here
25
use Koha::Patrons;
25
use Koha::Patrons;
26
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
27
27
28
use Test::More tests => 23;
28
use Test::NoWarnings;
29
use Test::More tests => 24;
29
30
30
use_ok('Koha::Patron::Files');
31
use_ok('Koha::Patron::Files');
31
32
(-)a/t/db_dependent/Patron/Borrower_PrevCheckout.t (-1 / +2 lines)
Lines 7-13 use Koha::Database; Link Here
7
use Koha::DateUtils qw( dt_from_string );
7
use Koha::DateUtils qw( dt_from_string );
8
use Koha::Patrons;
8
use Koha::Patrons;
9
9
10
use Test::More tests => 61;
10
use Test::NoWarnings;
11
use Test::More tests => 62;
11
12
12
use_ok('Koha::Patron');
13
use_ok('Koha::Patron');
13
14
(-)a/t/db_dependent/Patron/Housebound.t (-1 / +2 lines)
Lines 6-12 use C4::Circulation; Link Here
6
use Koha::Database;
6
use Koha::Database;
7
use Koha::Patrons;
7
use Koha::Patrons;
8
8
9
use Test::More tests => 2;
9
use Test::NoWarnings;
10
use Test::More tests => 3;
10
11
11
use_ok('Koha::Patron');
12
use_ok('Koha::Patron');
12
13
(-)a/t/db_dependent/Patron/HouseboundProfiles.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::Patron::HouseboundProfiles;
24
use Koha::Patron::HouseboundProfiles;
(-)a/t/db_dependent/Patron/HouseboundRoles.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 6;
20
use Test::NoWarnings;
21
use Test::More tests => 7;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::Patron::HouseboundRoles;
24
use Koha::Patron::HouseboundRoles;
(-)a/t/db_dependent/Patron/HouseboundVisits.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 8;
20
use Test::NoWarnings;
21
use Test::More tests => 9;
21
22
22
use Koha::Database;
23
use Koha::Database;
23
use Koha::Patron::HouseboundVisits;
24
use Koha::Patron::HouseboundVisits;
(-)a/t/db_dependent/Patron/Messages.t (-1 / +2 lines)
Lines 15-21 Link Here
15
# with Koha; if not, see <http://www.gnu.org/licenses>.
15
# with Koha; if not, see <http://www.gnu.org/licenses>.
16
#
16
#
17
use Modern::Perl;
17
use Modern::Perl;
18
use Test::More tests => 1;
18
use Test::NoWarnings;
19
use Test::More tests => 2;
19
20
20
use Koha::Patrons;
21
use Koha::Patrons;
21
use Koha::Patron::Messages;
22
use Koha::Patron::Messages;
(-)a/t/db_dependent/Patron/Messaging.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
use t::lib::Mocks;
25
use t::lib::Mocks;
25
use File::Spec;
26
use File::Spec;
(-)a/t/db_dependent/Patron/Relationships.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 54;
20
use Test::NoWarnings;
21
use Test::More tests => 55;
21
22
22
use C4::Context;
23
use C4::Context;
23
use Koha::Database;
24
use Koha::Database;
(-)a/t/db_dependent/PatronLists.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 12;
20
use Test::NoWarnings;
21
use Test::More tests => 13;
21
use t::lib::TestBuilder;
22
use t::lib::TestBuilder;
22
use t::lib::Mocks;
23
use t::lib::Mocks;
23
24
(-)a/t/db_dependent/Patroncards.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 1;
19
use Test::NoWarnings;
20
use Test::More tests => 2;
20
21
21
use C4::Patroncards::Layout;
22
use C4::Patroncards::Layout;
22
use Koha::Database;
23
use Koha::Database;
(-)a/t/db_dependent/Patrons.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 18;
20
use Test::NoWarnings;
21
use Test::More tests => 19;
21
use Test::Warn;
22
use Test::Warn;
22
23
23
use C4::Context;
24
use C4::Context;
(-)a/t/db_dependent/Prices.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 1;
4
use Test::NoWarnings;
5
use Test::More tests => 2;
5
use Test::MockModule;
6
use Test::MockModule;
6
7
7
use t::lib::Mocks;
8
use t::lib::Mocks;
(-)a/t/db_dependent/Record.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 15;
5
use Test::NoWarnings;
6
use Test::More tests => 16;
6
use MARC::Record;
7
use MARC::Record;
7
8
8
use t::lib::Mocks;
9
use t::lib::Mocks;
(-)a/t/db_dependent/Record/Record.t (-1 / +2 lines)
Lines 25-31 use warnings; Link Here
25
use constant WHEREAMI => 't/db_dependent/Record/testrecords';
25
use constant WHEREAMI => 't/db_dependent/Record/testrecords';
26
26
27
# specify the number of tests
27
# specify the number of tests
28
use Test::More tests => 21; #FIXME Commented out two failing tests
28
use Test::NoWarnings;
29
use Test::More tests => 22; #FIXME Commented out two failing tests
29
#use C4::Context;
30
#use C4::Context;
30
use C4::Record qw( marc2marc marc2marcxml marc2dcxml changeEncoding );
31
use C4::Record qw( marc2marc marc2marcxml marc2dcxml changeEncoding );
31
32
(-)a/t/db_dependent/Record/marcrecord2csv.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 13;
4
use Test::NoWarnings;
5
use Test::More tests => 14;
5
use Test::MockModule;
6
use Test::MockModule;
6
use MARC::Record;
7
use MARC::Record;
7
use MARC::Field;
8
use MARC::Field;
(-)a/t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t (+1 lines)
Lines 23-28 use File::Spec; Link Here
23
use MARC::Record;
23
use MARC::Record;
24
use Koha::MetadataRecord::Authority;
24
use Koha::MetadataRecord::Authority;
25
25
26
use Test::NoWarnings;
26
use Test::More;
27
use Test::More;
27
use Test::MockModule;
28
use Test::MockModule;
28
use Test::MockObject;
29
use Test::MockObject;
(-)a/t/db_dependent/Reports.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 2;
9
use Test::NoWarnings;
10
use Test::More tests => 3;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Reports', qw( GetDelimiterChoices ));
13
        use_ok('C4::Reports', qw( GetDelimiterChoices ));
(-)a/t/db_dependent/Reports/Guided.t (-1 / +2 lines)
Lines 20-26 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Test::More tests => 12;
23
use Test::NoWarnings;
24
use Test::More tests => 13;
24
use Test::Warn;
25
use Test::Warn;
25
26
26
use t::lib::TestBuilder;
27
use t::lib::TestBuilder;
(-)a/t/db_dependent/Reserves/AutoUnsuspendReserves.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use t::lib::Mocks;
23
use t::lib::Mocks;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/Reserves/GetReserveFee.t (-1 / +2 lines)
Lines 21-27 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use Test::More tests => 3;
24
use Test::NoWarnings;
25
use Test::More tests => 4;
25
use Test::MockModule;
26
use Test::MockModule;
26
use t::lib::TestBuilder;
27
use t::lib::TestBuilder;
27
use t::lib::Mocks;
28
use t::lib::Mocks;
(-)a/t/db_dependent/Reserves/MultiplePerRecord.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 16;
22
use Test::NoWarnings;
23
use Test::More tests => 17;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
use t::lib::Mocks;
25
use t::lib::Mocks;
25
26
(-)a/t/db_dependent/Reserves/ReserveSlip.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
25
25
use C4::Reserves qw( ReserveSlip );
26
use C4::Reserves qw( ReserveSlip );
(-)a/t/db_dependent/RotatingCollections.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 53;
20
use Test::NoWarnings;
21
use Test::More tests => 54;
21
use C4::Context;
22
use C4::Context;
22
use C4::RotatingCollections qw( AddItemToCollection CreateCollection DeleteCollection GetCollection GetCollectionItemBranches GetCollections GetItemsInCollection RemoveItemFromCollection TransferCollection UpdateCollection isItemInAnyCollection isItemInThisCollection );
23
use C4::RotatingCollections qw( AddItemToCollection CreateCollection DeleteCollection GetCollection GetCollectionItemBranches GetCollections GetItemsInCollection RemoveItemFromCollection TransferCollection UpdateCollection isItemInAnyCollection isItemInThisCollection );
23
use C4::Biblio qw( AddBiblio );
24
use C4::Biblio qw( AddBiblio );
(-)a/t/db_dependent/SIP/ILS.t (-1 / +2 lines)
Lines 20-26 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Test::More tests => 15;
23
use Test::NoWarnings;
24
use Test::More tests => 16;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
26
use t::lib::Mocks;
27
use t::lib::Mocks;
(-)a/t/db_dependent/SIP/Message.t (-1 / +2 lines)
Lines 21-27 Link Here
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
22
22
23
use Modern::Perl;
23
use Modern::Perl;
24
use Test::More tests => 22;
24
use Test::NoWarnings;
25
use Test::More tests => 23;
25
use Test::Exception;
26
use Test::Exception;
26
use Test::MockObject;
27
use Test::MockObject;
27
use Test::MockModule;
28
use Test::MockModule;
(-)a/t/db_dependent/SIP/Patron.t (-1 / +2 lines)
Lines 4-10 Link Here
4
# This needs to be extended! Your help is appreciated..
4
# This needs to be extended! Your help is appreciated..
5
5
6
use Modern::Perl;
6
use Modern::Perl;
7
use Test::More tests => 11;
7
use Test::NoWarnings;
8
use Test::More tests => 12;
8
9
9
use t::lib::Mocks;
10
use t::lib::Mocks;
10
use t::lib::TestBuilder;
11
use t::lib::TestBuilder;
(-)a/t/db_dependent/SIP/SIPServer.t (-1 / +2 lines)
Lines 20-26 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Test::More tests => 1;
23
use Test::NoWarnings;
24
use Test::More tests => 2;
24
use Test::Warn;
25
use Test::Warn;
25
26
26
my ( $mockConfig, $mockPrefork );
27
my ( $mockConfig, $mockPrefork );
(-)a/t/db_dependent/SIP/Transaction.t (-1 / +2 lines)
Lines 4-10 Link Here
4
# Current state is very rudimentary. Please help to extend it!
4
# Current state is very rudimentary. Please help to extend it!
5
5
6
use Modern::Perl;
6
use Modern::Perl;
7
use Test::More tests => 19;
7
use Test::NoWarnings;
8
use Test::More tests => 20;
8
use Test::Warn;
9
use Test::Warn;
9
10
10
use DateTime;
11
use DateTime;
(-)a/t/db_dependent/Search.t (-1 / +2 lines)
Lines 26-32 require C4::Context; Link Here
26
# work around spurious wide character warnings
26
# work around spurious wide character warnings
27
use open ':std', ':encoding(utf8)';
27
use open ':std', ':encoding(utf8)';
28
28
29
use Test::More tests => 3;
29
use Test::NoWarnings;
30
use Test::More tests => 4;
30
use Test::MockModule;
31
use Test::MockModule;
31
use Test::Warn;
32
use Test::Warn;
32
use t::lib::Mocks;
33
use t::lib::Mocks;
(-)a/t/db_dependent/Search/History.t (-1 / +2 lines)
Lines 11-17 use t::lib::TestBuilder; Link Here
11
use C4::Auth qw( get_session checkauth get_template_and_user );
11
use C4::Auth qw( get_session checkauth get_template_and_user );
12
use Koha::Database;
12
use Koha::Database;
13
13
14
use Test::More tests => 27;
14
use Test::NoWarnings;
15
use Test::More tests => 28;
15
use Test::Warn;
16
use Test::Warn;
16
use URI::Escape;
17
use URI::Escape;
17
use List::Util qw( shuffle );
18
use List::Util qw( shuffle );
(-)a/t/db_dependent/Serials.t (-1 / +2 lines)
Lines 17-23 use Koha::Acquisition::Booksellers; Link Here
17
use t::lib::Mocks;
17
use t::lib::Mocks;
18
use t::lib::TestBuilder;
18
use t::lib::TestBuilder;
19
use Test::MockModule;
19
use Test::MockModule;
20
use Test::More tests => 63;
20
use Test::NoWarnings;
21
use Test::More tests => 64;
21
22
22
BEGIN {
23
BEGIN {
23
    use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate ));
24
    use_ok('C4::Serials', qw( updateClaim NewSubscription GetSubscription GetSubscriptionHistoryFromSubscriptionId SearchSubscriptions ModSubscription GetExpirationDate GetSerials GetSerialInformation NewIssue AddItem2Serial DelSubscription GetFullSubscription PrepareSerialsData GetSubscriptionsFromBiblionumber ModSubscriptionHistory GetSerials2 GetLatestSerials GetNextSeq GetSeq CountSubscriptionFromBiblionumber ModSerialStatus findSerialsByStatus HasSubscriptionStrictlyExpired HasSubscriptionExpired GetLateOrMissingIssues check_routing addroutingmember GetNextDate ));
(-)a/t/db_dependent/Serials/Claims.t (-1 / +2 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 17;
2
use Test::NoWarnings;
3
use Test::More tests => 18;
3
4
4
use C4::Acquisition;
5
use C4::Acquisition;
5
use C4::Budgets qw( AddBudgetPeriod AddBudget );
6
use C4::Budgets qw( AddBudgetPeriod AddBudget );
(-)a/t/db_dependent/Serials/Frequency.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use C4::Context;
3
use C4::Context;
4
use Koha::Database;
4
use Koha::Database;
5
use Test::More tests => 27;
5
use Test::NoWarnings;
6
use Test::More tests => 28;
6
use Modern::Perl;
7
use Modern::Perl;
7
8
8
my $schema = Koha::Database->new->schema;
9
my $schema = Koha::Database->new->schema;
(-)a/t/db_dependent/Serials/GetFictiveIssueNumber.t (-1 / +2 lines)
Lines 3-9 Link Here
3
# This test deals with GetFictiveIssueNumber (from C4::Serials)
3
# This test deals with GetFictiveIssueNumber (from C4::Serials)
4
4
5
use Modern::Perl;
5
use Modern::Perl;
6
use Test::More tests => 5;
6
use Test::NoWarnings;
7
use Test::More tests => 6;
7
8
8
use Koha::Database;
9
use Koha::Database;
9
use C4::Serials qw( GetFictiveIssueNumber GetSubscription );
10
use C4::Serials qw( GetFictiveIssueNumber GetSubscription );
(-)a/t/db_dependent/Serials/GetNextDate.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 102;
4
use Test::NoWarnings;
5
use Test::More tests => 103;
5
6
6
use Koha::Database;
7
use Koha::Database;
7
use C4::Serials qw( GetNextDate );
8
use C4::Serials qw( GetNextDate );
(-)a/t/db_dependent/Serials/GetNextSeq.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use C4::Context;
3
use C4::Context;
4
use Test::More tests => 32;
4
use Test::NoWarnings;
5
use Test::More tests => 33;
5
use Modern::Perl;
6
use Modern::Perl;
6
use Koha::Database;
7
use Koha::Database;
7
8
(-)a/t/db_dependent/Serials/Numberpattern.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 95;
4
use Test::NoWarnings;
5
use Test::More tests => 96;
5
6
6
use C4::Context;
7
use C4::Context;
7
use Koha::Database;
8
use Koha::Database;
(-)a/t/db_dependent/Serials/ReNewSubscription.t (-1 / +2 lines)
Lines 22-28 Link Here
22
22
23
use Modern::Perl;
23
use Modern::Perl;
24
24
25
use Test::More tests => 10;
25
use Test::NoWarnings;
26
use Test::More tests => 11;
26
use Test::MockModule;
27
use Test::MockModule;
27
use t::lib::TestBuilder;
28
use t::lib::TestBuilder;
28
use t::lib::Mocks;
29
use t::lib::Mocks;
(-)a/t/db_dependent/Serials/updateClaim.t (-1 / +2 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 3;
2
use Test::NoWarnings;
3
use Test::More tests => 4;
3
4
4
use C4::Serials;
5
use C4::Serials;
5
use Koha::Database;
6
use Koha::Database;
(-)a/t/db_dependent/Serials_2.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
use Modern::Perl;
2
use Modern::Perl;
3
3
4
use Test::More tests => 50;
4
use Test::NoWarnings;
5
use Test::More tests => 51;
5
6
6
use MARC::Record;
7
use MARC::Record;
7
8
(-)a/t/db_dependent/Service.t (-1 / +2 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::NoWarnings;
10
use Test::More tests => 2;
10
11
11
BEGIN {
12
BEGIN {
12
        use_ok('C4::Service');
13
        use_ok('C4::Service');
(-)a/t/db_dependent/ShelfBrowser.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 74;
4
use Test::NoWarnings;
5
use Test::More tests => 75;
5
use List::Util qw( shuffle );
6
use List::Util qw( shuffle );
6
use MARC::Field;
7
use MARC::Field;
7
use MARC::Record;
8
use MARC::Record;
(-)a/t/db_dependent/Sitemapper.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 1;
21
use Test::NoWarnings;
22
use Test::More tests => 2;
22
use Carp qw/croak/;
23
use Carp qw/croak/;
23
use File::Basename;
24
use File::Basename;
24
use File::Path;
25
use File::Path;
(-)a/t/db_dependent/SocialData.t (-1 / +2 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use Test::More tests => 2;
21
use Test::NoWarnings;
22
use Test::More tests => 3;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
24
25
(-)a/t/db_dependent/StockRotationItems.t (-1 / +2 lines)
Lines 29-35 use Test::Warn; Link Here
29
use t::lib::TestBuilder;
29
use t::lib::TestBuilder;
30
use t::lib::Mocks;
30
use t::lib::Mocks;
31
31
32
use Test::More tests => 9;
32
use Test::NoWarnings;
33
use Test::More tests => 10;
33
34
34
my $schema = Koha::Database->new->schema;
35
my $schema = Koha::Database->new->schema;
35
36
(-)a/t/db_dependent/StockRotationRotas.t (-1 / +2 lines)
Lines 22-28 use Modern::Perl; Link Here
22
use Koha::Database;
22
use Koha::Database;
23
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
24
24
25
use Test::More tests => 5;
25
use Test::NoWarnings;
26
use Test::More tests => 6;
26
27
27
my $schema = Koha::Database->new->schema;
28
my $schema = Koha::Database->new->schema;
28
29
(-)a/t/db_dependent/StockRotationStages.t (-1 / +2 lines)
Lines 22-28 use Modern::Perl; Link Here
22
use Koha::Database;
22
use Koha::Database;
23
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
24
24
25
use Test::More tests => 6;
25
use Test::NoWarnings;
26
use Test::More tests => 7;
26
27
27
my $schema = Koha::Database->new->schema;
28
my $schema = Koha::Database->new->schema;
28
29
(-)a/t/db_dependent/SuggestionEngine_ExplodedTerms.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
22
22
use Koha::SuggestionEngine;
23
use Koha::SuggestionEngine;
23
24
(-)a/t/db_dependent/Suggestions.t (-1 / +2 lines)
Lines 18-24 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use DateTime::Duration;
20
use DateTime::Duration;
21
use Test::More tests => 94;
21
use Test::NoWarnings;
22
use Test::More tests => 95;
22
use Test::Warn;
23
use Test::Warn;
23
24
24
use t::lib::Mocks;
25
use t::lib::Mocks;
(-)a/t/db_dependent/TablesSettings.t (-1 / +2 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl;
1
#!/usr/bin/perl;
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 3;
4
use Test::NoWarnings;
5
use Test::More tests => 4;
5
use Test::MockModule;
6
use Test::MockModule;
6
7
7
use C4::Context;
8
use C4::Context;
(-)a/t/db_dependent/Tags.t (-1 / +2 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use utf8;
20
use utf8;
21
21
22
use Test::More tests => 34;
22
use Test::NoWarnings;
23
use Test::More tests => 35;
23
24
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
25
26
(-)a/t/db_dependent/Template/Plugin/AdditionalContents.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 1;
19
use Test::NoWarnings;
20
use Test::More tests => 2;
20
21
21
use C4::Context;
22
use C4::Context;
22
use Koha::Caches;
23
use Koha::Caches;
(-)a/t/db_dependent/Template/Plugin/AuthorisedValues.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 2;
19
use Test::NoWarnings;
20
use Test::More tests => 3;
20
21
21
use C4::Context;
22
use C4::Context;
22
use Koha::Caches;
23
use Koha::Caches;
(-)a/t/db_dependent/Template/Plugin/Branches.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 4;
19
use Test::NoWarnings;
20
use Test::More tests => 5;
20
use Test::MockModule;
21
use Test::MockModule;
21
22
22
use C4::Context;
23
use C4::Context;
(-)a/t/db_dependent/Template/Plugin/Categories.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 7;
20
use Test::NoWarnings;
21
use Test::More tests => 8;
21
use t::lib::Mocks;
22
use t::lib::Mocks;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
24
(-)a/t/db_dependent/Template/Plugin/CirculationRules.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 2;
19
use Test::NoWarnings;
20
use Test::More tests => 3;
20
use Test::MockModule;
21
use Test::MockModule;
21
22
22
use Koha::CirculationRules;
23
use Koha::CirculationRules;
(-)a/t/db_dependent/Template/Plugin/Frameworks.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 2;
19
use Test::NoWarnings;
20
use Test::More tests => 3;
20
use Test::MockModule;
21
use Test::MockModule;
21
22
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
(-)a/t/db_dependent/Template/Plugin/KohaDates.t (-1 / +2 lines)
Lines 6-12 use C4::Context; Link Here
6
use Koha::DateUtils qw( dt_from_string output_pref );
6
use Koha::DateUtils qw( dt_from_string output_pref );
7
7
8
use Test::MockModule;
8
use Test::MockModule;
9
use Test::More tests => 9;
9
use Test::NoWarnings;
10
use Test::More tests => 10;
10
use t::lib::Mocks;
11
use t::lib::Mocks;
11
12
12
BEGIN {
13
BEGIN {
(-)a/t/db_dependent/Template/Plugin/KohaTimes.t (-1 / +2 lines)
Lines 5-11 use Modern::Perl; Link Here
5
use C4::Context;
5
use C4::Context;
6
6
7
use Test::MockModule;
7
use Test::MockModule;
8
use Test::More tests => 5;
8
use Test::NoWarnings;
9
use Test::More tests => 6;
9
use t::lib::Mocks;
10
use t::lib::Mocks;
10
11
11
BEGIN {
12
BEGIN {
(-)a/t/db_dependent/Template/Plugin/NoticeTemplates.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 4;
19
use Test::NoWarnings;
20
use Test::More tests => 5;
20
21
21
use Koha::Database;
22
use Koha::Database;
22
use Koha::Notice::Templates;
23
use Koha::Notice::Templates;
(-)a/t/db_dependent/Template/Plugin/To.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use t::lib::TestBuilder;
22
use t::lib::TestBuilder;
22
23
23
use Koha::Template::Plugin::To;
24
use Koha::Template::Plugin::To;
(-)a/t/db_dependent/Templates.t (-1 / +2 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use CGI;
20
use CGI;
21
21
22
use Test::More tests => 5;
22
use Test::NoWarnings;
23
use Test::More tests => 6;
23
use Test::Deep;
24
use Test::Deep;
24
use Test::MockModule;
25
use Test::MockModule;
25
use Test::Warn;
26
use Test::Warn;
(-)a/t/db_dependent/TestBuilder.t (-1 / +2 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use utf8;
22
use utf8;
23
23
24
use Test::More tests => 16;
24
use Test::NoWarnings;
25
use Test::More tests => 17;
25
use Test::Warn;
26
use Test::Warn;
26
use Try::Tiny;
27
use Try::Tiny;
27
use File::Basename qw(dirname);
28
use File::Basename qw(dirname);
(-)a/t/db_dependent/Upload.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use File::Temp qw/ tempdir /;
4
use File::Temp qw/ tempdir /;
5
use Test::More tests => 13;
5
use Test::NoWarnings;
6
use Test::More tests => 14;
6
use Test::Warn;
7
use Test::Warn;
7
use Try::Tiny;
8
use Try::Tiny;
8
9
(-)a/t/db_dependent/UsageStats.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 3;
19
use Test::NoWarnings;
20
use Test::More tests => 4;
20
21
21
use t::lib::Mocks qw(mock_preference);
22
use t::lib::Mocks qw(mock_preference);
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
(-)a/t/db_dependent/Utils/Datatables_Virtualshelves.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 13;
20
use Test::NoWarnings;
21
use Test::More tests => 14;
21
22
22
use C4::Biblio qw( AddBiblio );
23
use C4::Biblio qw( AddBiblio );
23
use C4::Context;
24
use C4::Context;
(-)a/t/db_dependent/Virtualshelves.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 9;
19
use Test::NoWarnings;
20
use Test::More tests => 10;
20
use Test::Exception;
21
use Test::Exception;
21
22
22
use DateTime::Duration;
23
use DateTime::Duration;
(-)a/t/db_dependent/XSLT.t (-1 / +2 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use File::Temp;
20
use File::Temp;
21
use File::Path qw/make_path/;
21
use File::Path qw/make_path/;
22
use MARC::Record;
22
use MARC::Record;
23
use Test::More tests => 4;
23
use Test::NoWarnings;
24
use Test::More tests => 5;
24
use Test::Warn;
25
use Test::Warn;
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
26
use t::lib::Mocks;
27
use t::lib::Mocks;
(-)a/t/db_dependent/api/v1/acquisitions_baskets.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/acquisitions_funds.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 14;
20
use Test::NoWarnings;
21
use Test::More tests => 15;
21
use Test::Mojo;
22
use Test::Mojo;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/api/v1/acquisitions_orders.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/api/v1/acquisitions_vendor_issues.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/acquisitions_vendors.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
22
22
use Test::Mojo;
23
use Test::Mojo;
23
24
(-)a/t/db_dependent/api/v1/advanced_editor_macros.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 5;
19
use Test::NoWarnings;
20
use Test::More tests => 6;
20
use Test::Mojo;
21
use Test::Mojo;
21
use Test::Warn;
22
use Test::Warn;
22
23
(-)a/t/db_dependent/api/v1/article_requests.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/api/v1/auth.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::NoWarnings;
21
use Test::More tests => 4;
21
use Test::Mojo;
22
use Test::Mojo;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/api/v1/auth_authenticate_api_request.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 6;
20
use Test::NoWarnings;
21
use Test::More tests => 7;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use Module::Load::Conditional qw(can_load);
24
use Module::Load::Conditional qw(can_load);
(-)a/t/db_dependent/api/v1/auth_basic.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/authorised_values.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/authorities.t (-1 / +2 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use utf8;
20
use utf8;
21
use Encode;
21
use Encode;
22
22
23
use Test::More tests => 5;
23
use Test::NoWarnings;
24
use Test::More tests => 6;
24
use Test::MockModule;
25
use Test::MockModule;
25
use Test::Mojo;
26
use Test::Mojo;
26
use Test::Warn;
27
use Test::Warn;
(-)a/t/db_dependent/api/v1/bookings.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 6;
20
use Test::NoWarnings;
21
use Test::More tests => 7;
21
use Test::Mojo;
22
use Test::Mojo;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/api/v1/cashups.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/checkouts.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 108;
20
use Test::NoWarnings;
21
use Test::More tests => 109;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Mojo;
23
use Test::Mojo;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/api/v1/circulation_rules.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/cities.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/clubs_holds.t (-1 / +2 lines)
Lines 18-24 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use Test::More tests => 2;
21
use Test::NoWarnings;
22
use Test::More tests => 3;
22
use Test::Mojo;
23
use Test::Mojo;
23
use Test::Warn;
24
use Test::Warn;
24
25
(-)a/t/db_dependent/api/v1/deleted_biblios.t (-1 / +2 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use utf8;
20
use utf8;
21
use Encode;
21
use Encode;
22
22
23
use Test::More tests => 2;
23
use Test::NoWarnings;
24
use Test::More tests => 3;
24
use Test::MockModule;
25
use Test::MockModule;
25
use Test::Mojo;
26
use Test::Mojo;
26
use Test::Warn;
27
use Test::Warn;
(-)a/t/db_dependent/api/v1/edifact_files.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_agreements.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_counter_files.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::Mojo;
24
use Test::Mojo;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_counter_logs.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 3;
22
use Test::NoWarnings;
23
use Test::More tests => 4;
23
use Test::Mojo;
24
use Test::Mojo;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_counter_registries.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use Test::Mojo;
24
use Test::Mojo;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_custom_reports.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 4;
22
use Test::NoWarnings;
23
use Test::More tests => 5;
23
use Test::Mojo;
24
use Test::Mojo;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_documents.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_eholdings_packages.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_eholdings_resources.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_eholdings_titles.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_licenses.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_sushi_services.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use Test::Mojo;
24
use Test::Mojo;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_usage_data_providers.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 5;
22
use Test::NoWarnings;
23
use Test::More tests => 6;
23
use Test::Mojo;
24
use Test::Mojo;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_usage_titles.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 1;
22
use Test::NoWarnings;
23
use Test::More tests => 2;
23
use Test::Mojo;
24
use Test::Mojo;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/erm_users.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/extended_attribute_types.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/idp.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 2;
22
use Test::NoWarnings;
23
use Test::More tests => 3;
23
use Test::Mojo;
24
use Test::Mojo;
24
use Test::Warn;
25
use Test::Warn;
25
use Mojo::JWT;
26
use Mojo::JWT;
(-)a/t/db_dependent/api/v1/ill_backends.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Test::MockModule;
23
use Test::MockModule;
23
use Test::MockObject;
24
use Test::MockObject;
(-)a/t/db_dependent/api/v1/ill_batches.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/ill_batchstatuses.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/ill_requests.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
22
22
use Test::MockModule;
23
use Test::MockModule;
23
use Test::MockObject;
24
use Test::MockObject;
(-)a/t/db_dependent/api/v1/import_batch_profiles.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/api/v1/import_record_matches.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/item_groups.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/api/v1/item_types.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/items.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 5;
22
use Test::NoWarnings;
23
use Test::More tests => 6;
23
use Test::MockModule;
24
use Test::MockModule;
24
use Test::Mojo;
25
use Test::Mojo;
25
use Test::Warn;
26
use Test::Warn;
(-)a/t/db_dependent/api/v1/items/bundled_items.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 2;
5
use Test::NoWarnings;
6
use Test::More tests => 3;
6
use Test::MockModule;
7
use Test::MockModule;
7
use Test::Mojo;
8
use Test::Mojo;
8
9
(-)a/t/db_dependent/api/v1/jobs.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 31;
20
use Test::NoWarnings;
21
use Test::More tests => 32;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/libraries.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 7;
20
use Test::NoWarnings;
21
use Test::More tests => 8;
21
use Test::Mojo;
22
use Test::Mojo;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/api/v1/oauth.t (+1 lines)
Lines 17-22 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::NoWarnings;
20
use Test::More;
21
use Test::More;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Mojo;
23
use Test::Mojo;
(-)a/t/db_dependent/api/v1/pagination.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/password_validation.t (-1 / +2 lines)
Lines 18-24 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use Test::More tests => 6;
21
use Test::NoWarnings;
22
use Test::More tests => 7;
22
use Test::Mojo;
23
use Test::Mojo;
23
24
24
use t::lib::TestBuilder;
25
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/patron_categories.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/patrons.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 7;
20
use Test::NoWarnings;
21
use Test::More tests => 8;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Mojo;
23
use Test::Mojo;
23
use Test::Warn;
24
use Test::Warn;
(-)a/t/db_dependent/api/v1/patrons_accounts.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
22
22
use Test::Mojo;
23
use Test::Mojo;
23
24
(-)a/t/db_dependent/api/v1/patrons_checkouts.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Mojo;
23
use Test::Mojo;
23
24
(-)a/t/db_dependent/api/v1/patrons_extended_attributes.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/patrons_holds.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Mojo;
23
use Test::Mojo;
23
24
(-)a/t/db_dependent/api/v1/patrons_password.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
22
22
use Test::Mojo;
23
use Test::Mojo;
23
24
(-)a/t/db_dependent/api/v1/patrons_password_expiration.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
22
22
use Test::Mojo;
23
use Test::Mojo;
23
24
(-)a/t/db_dependent/api/v1/patrons_recalls.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/preservation_Processings.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/preservation_Trains.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 6;
20
use Test::NoWarnings;
21
use Test::More tests => 7;
21
use Test::Mojo;
22
use Test::Mojo;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/api/v1/preservation_WaitingList.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/api/v1/provider.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/api/v1/public/lists.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use JSON qw(encode_json);
24
use JSON qw(encode_json);
(-)a/t/db_dependent/api/v1/query.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::NoWarnings;
21
use Test::More tests => 4;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/record_sources.t (-1 / +2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 5;
22
use Test::NoWarnings;
23
use Test::More tests => 6;
23
use Test::Mojo;
24
use Test::Mojo;
24
25
25
use t::lib::TestBuilder;
26
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/responses.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::NoWarnings;
21
use Test::More tests => 4;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Mojo;
23
use Test::Mojo;
23
24
(-)a/t/db_dependent/api/v1/return_claims.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
22
22
use Test::Mojo;
23
use Test::Mojo;
23
use Test::Warn;
24
use Test::Warn;
(-)a/t/db_dependent/api/v1/search_filters.t (-1 / +2 lines)
Lines 16-22 Link Here
16
16
17
use Modern::Perl;
17
use Modern::Perl;
18
18
19
use Test::More tests => 5;
19
use Test::NoWarnings;
20
use Test::More tests => 6;
20
use Test::Mojo;
21
use Test::Mojo;
21
use Test::Warn;
22
use Test::Warn;
22
23
(-)a/t/db_dependent/api/v1/smtp_servers.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/stockrotation_rotas.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use Mojo::JSON qw(encode_json);
24
use Mojo::JSON qw(encode_json);
(-)a/t/db_dependent/api/v1/stockrotationstage.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/suggestions.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 6;
20
use Test::NoWarnings;
21
use Test::More tests => 7;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/ticket_updates.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::NoWarnings;
21
use Test::More tests => 3;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/tickets.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
use Test::Mojo;
22
use Test::Mojo;
22
23
23
use t::lib::TestBuilder;
24
use t::lib::TestBuilder;
(-)a/t/db_dependent/api/v1/transfer_limits.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 4;
20
use Test::NoWarnings;
21
use Test::More tests => 5;
21
use Test::Mojo;
22
use Test::Mojo;
22
use Test::Warn;
23
use Test::Warn;
23
24
(-)a/t/db_dependent/api/v1/unhandled_exceptions.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::MockModule;
22
use Test::MockModule;
22
use Test::Mojo;
23
use Test::Mojo;
23
24
(-)a/t/db_dependent/check_kohastructure.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 1;
19
use Test::NoWarnings;
20
use Test::More tests => 2;
20
use File::Slurp;
21
use File::Slurp;
21
use C4::Context;
22
use C4::Context;
22
my $content = read_file( C4::Context->config("intranetdir")
23
my $content = read_file( C4::Context->config("intranetdir")
(-)a/t/db_dependent/check_sysprefs.t (-1 / +2 lines)
Lines 29-35 use Array::Utils qw(array_minus); Link Here
29
our $showsql = 0;
29
our $showsql = 0;
30
GetOptions( 'showsql' => \$showsql );
30
GetOptions( 'showsql' => \$showsql );
31
31
32
use Test::More tests => 2;
32
use Test::NoWarnings;
33
use Test::More tests => 3;
33
34
34
our $dbh = C4::Context->dbh;
35
our $dbh = C4::Context->dbh;
35
my $intranetdir = C4::Context->config('intranetdir');
36
my $intranetdir = C4::Context->config('intranetdir');
(-)a/t/db_dependent/db_structure.t (+1 lines)
Lines 17-22 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::NoWarnings;
20
use Test::More;
21
use Test::More;
21
use Koha::Database;
22
use Koha::Database;
22
23
(-)a/t/db_dependent/misc/translator/xgettext-installer.t (-1 / +2 lines)
Lines 6-12 use File::Slurp; Link Here
6
use File::Temp qw(tempdir);
6
use File::Temp qw(tempdir);
7
use FindBin qw($Bin);
7
use FindBin qw($Bin);
8
use Locale::PO;
8
use Locale::PO;
9
use Test::More tests => 4;
9
use Test::NoWarnings;
10
use Test::More tests => 5;
10
11
11
my $tempdir = tempdir(CLEANUP => 1);
12
my $tempdir = tempdir(CLEANUP => 1);
12
13
(-)a/t/db_dependent/misc/translator/xgettext-pref.t (-1 / +2 lines)
Lines 6-12 use File::Slurp; Link Here
6
use File::Temp qw(tempdir);
6
use File::Temp qw(tempdir);
7
use FindBin qw($Bin);
7
use FindBin qw($Bin);
8
use Locale::PO;
8
use Locale::PO;
9
use Test::More tests => 16;
9
use Test::NoWarnings;
10
use Test::More tests => 17;
10
11
11
my $tempdir = tempdir(CLEANUP => 1);
12
my $tempdir = tempdir(CLEANUP => 1);
12
13
(-)a/t/db_dependent/misc/translator/xgettext-tt2.t (-1 / +2 lines)
Lines 6-12 use File::Slurp; Link Here
6
use File::Temp qw(tempdir);
6
use File::Temp qw(tempdir);
7
use FindBin qw($Bin);
7
use FindBin qw($Bin);
8
use Locale::PO;
8
use Locale::PO;
9
use Test::More tests => 36;
9
use Test::NoWarnings;
10
use Test::More tests => 37;
10
11
11
my $tempdir = tempdir(CLEANUP => 1);
12
my $tempdir = tempdir(CLEANUP => 1);
12
13
(-)a/t/db_dependent/mojo/csrf.t (-1 / +2 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 2;
5
use Test::NoWarnings;
6
use Test::More tests => 3;
6
use Test::Mojo;
7
use Test::Mojo;
7
8
8
use Koha::Database;
9
use Koha::Database;
(-)a/t/db_dependent/rollingloans.t (-1 / +2 lines)
Lines 11-17 use Koha::Patrons; Link Here
11
use t::lib::TestBuilder;
11
use t::lib::TestBuilder;
12
use t::lib::Mocks qw(mock_preference);
12
use t::lib::Mocks qw(mock_preference);
13
13
14
use Test::More tests => 8;
14
use Test::NoWarnings;
15
use Test::More tests => 9;
15
16
16
my $schema = Koha::Database->new->schema;
17
my $schema = Koha::Database->new->schema;
17
$schema->storage->txn_begin;
18
$schema->storage->txn_begin;
(-)a/t/db_dependent/selenium/01-installation.t (-1 / +2 lines)
Lines 22-28 Link Here
22
22
23
use Modern::Perl;
23
use Modern::Perl;
24
24
25
use Test::More tests => 2;
25
use Test::NoWarnings;
26
use Test::More tests => 3;
26
27
27
use t::lib::Selenium;
28
use t::lib::Selenium;
28
use C4::Context;
29
use C4::Context;
(-)a/t/db_dependent/selenium/administration_tasks.t (-1 / +2 lines)
Lines 23-29 use Modern::Perl; Link Here
23
23
24
use C4::Context;
24
use C4::Context;
25
25
26
use Test::More tests => 3;
26
use Test::NoWarnings;
27
use Test::More tests => 4;
27
28
28
use t::lib::Selenium;
29
use t::lib::Selenium;
29
use t::lib::TestBuilder;
30
use t::lib::TestBuilder;
(-)a/t/db_dependent/selenium/authentication.t (-1 / +2 lines)
Lines 23-29 Link Here
23
#Note: If you are testing this on kohadevbox with selenium installed in kohadevbox then you need to set the staffClientBaseURL to localhost:8080 and the OPACBaseURL to localhost:80
23
#Note: If you are testing this on kohadevbox with selenium installed in kohadevbox then you need to set the staffClientBaseURL to localhost:8080 and the OPACBaseURL to localhost:80
24
24
25
use Modern::Perl;
25
use Modern::Perl;
26
use Test::More tests => 3;
26
use Test::NoWarnings;
27
use Test::More tests => 4;
27
28
28
use C4::Context;
29
use C4::Context;
29
use Koha::AuthUtils;
30
use Koha::AuthUtils;
(-)a/t/db_dependent/selenium/authentication_2fa.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use utf8;
19
use utf8;
20
use Test::More tests => 5;
20
use Test::NoWarnings;
21
use Test::More tests => 6;
21
22
22
use C4::Context;
23
use C4::Context;
23
use Koha::AuthUtils;
24
use Koha::AuthUtils;
(-)a/t/db_dependent/selenium/batch_item_modification.t (-1 / +2 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use C4::Context;
20
use C4::Context;
21
use Koha::BackgroundJobs;
21
use Koha::BackgroundJobs;
22
22
23
use Test::More tests => 2;
23
use Test::NoWarnings;
24
use Test::More tests => 3;
24
25
25
use t::lib::Selenium;
26
use t::lib::Selenium;
26
use t::lib::TestBuilder;
27
use t::lib::TestBuilder;
(-)a/t/db_dependent/selenium/ilsdi.t (-1 / +2 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use C4::Context;
20
use C4::Context;
21
use XML::LibXML;
21
use XML::LibXML;
22
22
23
use Test::More tests => 4;
23
use Test::NoWarnings;
24
use Test::More tests => 5;
24
25
25
use t::lib::Selenium;
26
use t::lib::Selenium;
26
use t::lib::TestBuilder;
27
use t::lib::TestBuilder;
(-)a/t/db_dependent/selenium/opac_holds.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 2;
19
use Test::NoWarnings;
20
use Test::More tests => 3;
20
21
21
use C4::Biblio qw(DelBiblio);
22
use C4::Biblio qw(DelBiblio);
22
23
(-)a/t/db_dependent/selenium/patrons_search.t (+1 lines)
Lines 27-32 our $DT_delay = 1; Link Here
27
use C4::Context;
27
use C4::Context;
28
28
29
use utf8;
29
use utf8;
30
use Test::NoWarnings;
30
use Test::More;
31
use Test::More;
31
use Test::MockModule;
32
use Test::MockModule;
32
33
(-)a/t/db_dependent/selenium/remove_from_cart.t (+1 lines)
Lines 19-24 use Modern::Perl; Link Here
19
use File::Basename qw(dirname );
19
use File::Basename qw(dirname );
20
20
21
use Test::WWW::Mechanize;
21
use Test::WWW::Mechanize;
22
use Test::NoWarnings;
22
use Test::More;
23
use Test::More;
23
use Test::MockModule;
24
use Test::MockModule;
24
25
(-)a/t/db_dependent/selenium/self_registration.t (+1 lines)
Lines 20-25 use utf8; Link Here
20
20
21
use C4::Context;
21
use C4::Context;
22
22
23
use Test::NoWarnings;
23
use Test::More;
24
use Test::More;
24
use Test::MockModule;
25
use Test::MockModule;
25
26
(-)a/t/db_dependent/selenium/system_preferences_search.t (+1 lines)
Lines 16-21 Link Here
16
use Modern::Perl;
16
use Modern::Perl;
17
17
18
use Koha::AuthUtils;
18
use Koha::AuthUtils;
19
use Test::NoWarnings;
19
use Test::More;
20
use Test::More;
20
21
21
use t::lib::Mocks;
22
use t::lib::Mocks;
(-)a/t/db_dependent/selenium/update_child_to_adult.t (+1 lines)
Lines 19-24 use Modern::Perl; Link Here
19
19
20
use C4::Context;
20
use C4::Context;
21
21
22
use Test::NoWarnings;
22
use Test::More;
23
use Test::More;
23
use Test::MockModule;
24
use Test::MockModule;
24
25
(-)a/t/db_dependent/sysprefs.t (-1 / +2 lines)
Lines 19-25 Link Here
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use Test::More tests => 9;
22
use Test::NoWarnings;
23
use Test::More tests => 10;
23
use C4::Context;
24
use C4::Context;
24
use Koha::Database;
25
use Koha::Database;
25
26
(-)a/t/db_dependent/www/regressions.t (-1 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 1;
20
use Test::NoWarnings;
21
use Test::More tests => 2;
21
use Test::Mojo;
22
use Test::Mojo;
22
use t::lib::TestBuilder;
23
use t::lib::TestBuilder;
23
use t::lib::Mocks;
24
use t::lib::Mocks;
(-)a/t/db_dependent/www/rest_api.t (+1 lines)
Lines 17-22 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::NoWarnings;
20
use Test::More; #See plan tests => \d+ below
21
use Test::More; #See plan tests => \d+ below
21
use LWP::UserAgent;
22
use LWP::UserAgent;
22
23
(-)a/t/db_dependent/yaml.t (+1 lines)
Lines 1-4 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::NoWarnings;
2
use Test::More;
3
use Test::More;
3
4
4
use YAML::XS;
5
use YAML::XS;
(-)a/t/template_filters.t (-1 / +2 lines)
Lines 16-22 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use Test::More tests => 7;
19
use Test::NoWarnings;
20
use Test::More tests => 8;
20
use t::lib::QA::TemplateFilters;
21
use t::lib::QA::TemplateFilters;
21
22
22
subtest 'Asset must use raw' => sub {
23
subtest 'Asset must use raw' => sub {
(-)a/t/timezones.t (-2 / +2 lines)
Lines 3-9 use Modern::Perl; Link Here
3
use C4::Context;
3
use C4::Context;
4
use Koha::Config;
4
use Koha::Config;
5
5
6
use Test::More tests => 5;
6
use Test::NoWarnings;
7
use Test::More tests => 6;
7
use Test::Warn;
8
use Test::Warn;
8
use t::lib::Mocks;
9
use t::lib::Mocks;
9
10
10
- 

Return to bug 38944