gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 38944: Add Test::NoWarnings to tests no producing warnings 

This has been generated.

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Jonathan Druart 2025-01-22 14:42:43 +01:00 committed by Katrin Fischer
parent 6aa9d1160a
commit 5b69e6df98
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
663 changed files with 1295 additions and 633 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
t/00-check-atomic-updates.t
View File

@ -16,6 +16,7 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>. # along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl; use Modern::Perl;
use Test::NoWarnings;
use Test::More; use Test::More;
use File::Find; use File::Find;

3
t/00-deprecated.t
View File

@ -5,7 +5,8 @@
# #
use warnings; use warnings;
use strict; use strict;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
use File::Find; use File::Find;
use Cwd; use Cwd;

1
t/00-load.t
View File

@ -19,6 +19,7 @@
use Modern::Perl; use Modern::Perl;
use Test::NoWarnings;
use Test::More; use Test::More;
use File::Spec; use File::Spec;
use File::Find; use File::Find;

3
t/00-merge-conflict-markers.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
use File::Spec; use File::Spec;
use File::Find; use File::Find;
use IO::File; use IO::File;

1
t/00-testcritic.t
View File

@ -3,6 +3,7 @@
# This script can be used to run perlcritic on perl files in koha # This script can be used to run perlcritic on perl files in koha
use Modern::Perl; use Modern::Perl;
use Test::NoWarnings;
use Test::More; use Test::More;
use English qw(-no_match_vars); use English qw(-no_match_vars);

1
t/00-valid-xml.t
View File

@ -18,6 +18,7 @@
use strict; use strict;
use warnings; use warnings;
use Test::NoWarnings;
use Test::More; use Test::More;
use File::Spec; use File::Spec;
use File::Find; use File::Find;

3
t/Acquisition/CanUserManageBasket.t
View File

@ -1,7 +1,8 @@
#!/usr/bin/perl #!/usr/bin/perl
use Modern::Perl; use Modern::Perl;
use Test::More tests => 43; use Test::NoWarnings;
use Test::More tests => 44;
use C4::Acquisition qw( GetBasket GetBasketUsers CanUserManageBasket ); use C4::Acquisition qw( GetBasket GetBasketUsers CanUserManageBasket );

3
t/Auth.t
View File

@ -16,7 +16,8 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>. # along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl; use Modern::Perl;
use Test::More tests => 12; use Test::NoWarnings;
use Test::More tests => 13;
use Test::Warn; use Test::Warn;
use C4::Auth qw( in_iprange ); use C4::Auth qw( in_iprange );

3
t/AuthoritiesMarc_MARC21.t
View File

@ -8,7 +8,8 @@ use warnings;
use Test::MockModule; use Test::MockModule;
use Test::MockObject; use Test::MockObject;
use Test::More tests => 5; use Test::NoWarnings;
use Test::More tests => 6;
use t::lib::Mocks; use t::lib::Mocks;
use MARC::Record; use MARC::Record;

3
t/AuthoritiesMarc_UNIMARC.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 2; use Test::NoWarnings;
use Test::More tests => 3;
BEGIN { BEGIN {
use_ok( 'C4::AuthoritiesMarc::UNIMARC', qw( default_auth_type_location ) ); use_ok( 'C4::AuthoritiesMarc::UNIMARC', qw( default_auth_type_location ) );

3
t/Barcodes_EAN13.t
View File

@ -5,7 +5,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Barcodes::EAN13'); use_ok('C4::Barcodes::EAN13');

3
t/Barcodes_annual.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Barcodes::annual'); use_ok('C4::Barcodes::annual');

3
t/Barcodes_hbyymmincr.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Barcodes::hbyymmincr'); use_ok('C4::Barcodes::hbyymmincr');

3
t/Barcodes_incremental.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Barcodes::incremental'); use_ok('C4::Barcodes::incremental');

1
t/Biblio.t
View File

@ -17,6 +17,7 @@
use Modern::Perl; use Modern::Perl;
use Test::NoWarnings;
use Test::More; use Test::More;
use Test::MockModule; use Test::MockModule;
use Test::Warn; use Test::Warn;

3
t/Biblio/TransformHtmlToXml.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 2; use Test::NoWarnings;
use Test::More tests => 3;
use t::lib::Mocks; use t::lib::Mocks;
use XML::Simple; use XML::Simple;

1
t/Biblio2.t
View File

@ -1,6 +1,7 @@
#!/usr/bin/perl #!/usr/bin/perl
use Modern::Perl; use Modern::Perl;
use Test::NoWarnings;
use Test::More; use Test::More;
use Test::MockModule; use Test::MockModule;

3
t/Budgets.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Budgets'); use_ok('C4::Budgets');

3
t/Budgets/CanUserModifyBudget.t
View File

@ -1,7 +1,8 @@
#!/usr/bin/perl #!/usr/bin/perl
use Modern::Perl; use Modern::Perl;
use Test::More tests => 134; use Test::NoWarnings;
use Test::More tests => 135;
use C4::Budgets qw( GetBudget GetBudgetUsers CanUserModifyBudget ); use C4::Budgets qw( GetBudget GetBudgetUsers CanUserModifyBudget );
use t::lib::Mocks; use t::lib::Mocks;

3
t/Budgets/CanUserUseBudget.t
View File

@ -1,7 +1,8 @@
#!/usr/bin/perl #!/usr/bin/perl
use Modern::Perl; use Modern::Perl;
use Test::More tests => 70; use Test::NoWarnings;
use Test::More tests => 71;
use C4::Budgets qw( GetBudget GetBudgetUsers CanUserUseBudget ); use C4::Budgets qw( GetBudget GetBudgetUsers CanUserUseBudget );
use t::lib::Mocks; use t::lib::Mocks;

3
t/Charset.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 16; use Test::NoWarnings;
use Test::More tests => 17;
use Encode qw( is_utf8 ); use Encode qw( is_utf8 );
use MARC::Record; use MARC::Record;

3
t/Circulation/AgeRestrictionMarkers.t
View File

@ -22,7 +22,8 @@ use Modern::Perl;
use DateTime; use DateTime;
use Koha::DateUtils qw( dt_from_string ); use Koha::DateUtils qw( dt_from_string );
use Test::More tests => 6; use Test::NoWarnings;
use Test::More tests => 7;
use Test::Warn; use Test::Warn;
use t::lib::Mocks; use t::lib::Mocks;

3
t/Circulation_barcodedecode.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 29; use Test::NoWarnings;
use Test::More tests => 30;
use Test::Warn; use Test::Warn;
use C4::Context; use C4::Context;

3
t/ClassSortRoutine.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::ClassSortRoutine'); use_ok('C4::ClassSortRoutine');

3
t/ClassSortRoutine_Dewey.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 10; use Test::NoWarnings;
use Test::More tests => 11;
BEGIN { BEGIN {
use_ok( 'C4::ClassSortRoutine::Dewey', qw( get_class_sort_key ) ); use_ok( 'C4::ClassSortRoutine::Dewey', qw( get_class_sort_key ) );

3
t/ClassSortRoutine_Generic.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 3; use Test::NoWarnings;
use Test::More tests => 4;
BEGIN { BEGIN {
use_ok( 'C4::ClassSortRoutine::Generic', qw( get_class_sort_key ) ); use_ok( 'C4::ClassSortRoutine::Generic', qw( get_class_sort_key ) );

3
t/ClassSortRoutine_LCC.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 10; use Test::NoWarnings;
use Test::More tests => 11;
BEGIN { BEGIN {
use_ok( 'C4::ClassSortRoutine::LCC', qw( get_class_sort_key ) ); use_ok( 'C4::ClassSortRoutine::LCC', qw( get_class_sort_key ) );

3
t/ClassSource.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::ClassSource'); use_ok('C4::ClassSource');

3
t/Context.t
View File

@ -18,7 +18,8 @@
use Modern::Perl; use Modern::Perl;
use DBI; use DBI;
use Test::More tests => 35; use Test::NoWarnings;
use Test::More tests => 36;
use Test::MockModule; use Test::MockModule;
use Test::Warn; use Test::Warn;
use YAML::XS; use YAML::XS;

3
t/Contract.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Contract'); use_ok('C4::Contract');

3
t/CookieManager.t
View File

@ -20,7 +20,8 @@
use Modern::Perl; use Modern::Perl;
use CGI; use CGI;
use Data::Dumper qw(Dumper); use Data::Dumper qw(Dumper);
use Test::More tests => 3; use Test::NoWarnings;
use Test::More tests => 4;
use t::lib::Mocks; use t::lib::Mocks;

3
t/Creators.t
View File

@ -14,7 +14,8 @@ use strict;
use warnings; use warnings;
use File::Temp qw/ tempfile /; use File::Temp qw/ tempfile /;
use Test::More tests => 41; use Test::NoWarnings;
use Test::More tests => 42;
BEGIN { BEGIN {
use_ok('C4::Creators'); use_ok('C4::Creators');

3
t/DateUtils.t
View File

@ -4,7 +4,8 @@ use DateTime::TimeZone;
use C4::Context; use C4::Context;
use Test::More tests => 83; use Test::NoWarnings;
use Test::More tests => 84;
use Test::MockModule; use Test::MockModule;
use Test::Warn; use Test::Warn;

3
t/EdiInvoice.t
View File

@ -3,7 +3,8 @@ use strict;
use warnings; use warnings;
use FindBin qw( $Bin ); use FindBin qw( $Bin );
use Test::More tests => 26; use Test::NoWarnings;
use Test::More tests => 27;
use Koha::EDI; use Koha::EDI;
BEGIN { use_ok('Koha::Edifact') } BEGIN { use_ok('Koha::Edifact') }

3
t/Ediorder.t
View File

@ -3,7 +3,8 @@ use strict;
use warnings; use warnings;
use FindBin qw( $Bin ); use FindBin qw( $Bin );
use Test::More tests => 13; use Test::NoWarnings;
use Test::More tests => 14;
use t::lib::Mocks; use t::lib::Mocks;
BEGIN { use_ok('Koha::Edifact::Order') } BEGIN { use_ok('Koha::Edifact::Order') }

3
t/Ediordrsp.t
View File

@ -3,7 +3,8 @@ use strict;
use warnings; use warnings;
use FindBin qw( $Bin ); use FindBin qw( $Bin );
use Test::More tests => 16; use Test::NoWarnings;
use Test::More tests => 17;
BEGIN { use_ok('Koha::Edifact') } BEGIN { use_ok('Koha::Edifact') }

3
t/External/BakerTaylor.t vendored
View File

@ -4,7 +4,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 9; use Test::NoWarnings;
use Test::More tests => 10;
use t::lib::Mocks; use t::lib::Mocks;
BEGIN { BEGIN {

3
t/External/Syndetics.t vendored
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::External::Syndetics'); use_ok('C4::External::Syndetics');

3
t/Form_MessagingPreferences.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Form::MessagingPreferences'); use_ok('C4::Form::MessagingPreferences');

3
t/HtmlTags.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 4; use Test::NoWarnings;
use Test::More tests => 5;
BEGIN { use_ok('Koha::Template::Plugin::HtmlTags'); } BEGIN { use_ok('Koha::Template::Plugin::HtmlTags'); }

3
t/Installer_PerlModules.t
View File

@ -5,7 +5,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 3; use Test::NoWarnings;
use Test::More tests => 4;
use Test::Warn; use Test::Warn;
BEGIN { BEGIN {

3
t/ItemCirculationAlertPreference.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::ItemCirculationAlertPreference'); use_ok('C4::ItemCirculationAlertPreference');

3
t/Koha/Auth/Permissions.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 3; use Test::NoWarnings;
use Test::More tests => 4;
use_ok('Koha::Auth::Permissions'); use_ok('Koha::Auth::Permissions');

3
t/Koha/Authority/ControlledIndicators.t
View File

@ -4,7 +4,8 @@ use Modern::Perl;
use Data::Dumper qw/Dumper/; use Data::Dumper qw/Dumper/;
use MARC::Record; use MARC::Record;
use MARC::Field; use MARC::Field;
use Test::More tests => 2; use Test::NoWarnings;
use Test::More tests => 3;
use t::lib::Mocks; use t::lib::Mocks;
use Koha::Authority::ControlledIndicators; use Koha::Authority::ControlledIndicators;

3
t/Koha/Config.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 4; use Test::NoWarnings;
use Test::More tests => 5;
use FindBin qw($Bin $Script); use FindBin qw($Bin $Script);
use_ok('Koha::Config'); use_ok('Koha::Config');

3
t/Koha/Database/Columns.t
View File

@ -16,7 +16,8 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>. # along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl; use Modern::Perl;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
use Test::MockModule; use Test::MockModule;
use FindBin qw($Bin); use FindBin qw($Bin);
use Encode; use Encode;

1
t/Koha/DateTime/Format/RFC3339.t
View File

@ -1,6 +1,7 @@
#!/usr/bin/perl #!/usr/bin/perl
use Modern::Perl; use Modern::Perl;
use Test::NoWarnings;
use Test::More; use Test::More;
use Test::Exception; use Test::Exception;

1
t/Koha/DateTime/Format/SQL.t
View File

@ -4,6 +4,7 @@ use Modern::Perl;
use DateTime::TimeZone; use DateTime::TimeZone;
use Test::Exception; use Test::Exception;
use Test::MockModule; use Test::MockModule;
use Test::NoWarnings;
use Test::More; use Test::More;
BEGIN { use_ok('Koha::DateTime::Format::SQL'); } BEGIN { use_ok('Koha::DateTime::Format::SQL'); }

3
t/Koha/Email.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 5; use Test::NoWarnings;
use Test::More tests => 6;
use Test::MockModule; use Test::MockModule;
use Test::Exception; use Test::Exception;

3
t/Koha/Exceptions.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 12; use Test::NoWarnings;
use Test::More tests => 13;
use Test::MockObject; use Test::MockObject;
use Test::Exception; use Test::Exception;

3
t/Koha/I18N.t
View File

@ -1,7 +1,8 @@
#!/usr/bin/perl #!/usr/bin/perl
use Modern::Perl; use Modern::Perl;
use Test::More tests => 35; use Test::NoWarnings;
use Test::More tests => 36;
use Test::MockModule; use Test::MockModule;
use FindBin qw($Bin); use FindBin qw($Bin);
use Encode; use Encode;

3
t/Koha/Installer/Output.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 8; use Test::NoWarnings;
use Test::More tests => 9;
use Koha::Installer::Output qw(say_warning say_failure say_success say_info); use Koha::Installer::Output qw(say_warning say_failure say_success say_info);

3
t/Koha/ItemType.t
View File

@ -19,7 +19,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 8; use Test::NoWarnings;
use Test::More tests => 9;
BEGIN { BEGIN {
use_ok('Koha::ItemType'); use_ok('Koha::ItemType');

3
t/Koha/Middleware/RealIP.t
View File

@ -20,7 +20,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 11; use Test::NoWarnings;
use Test::More tests => 12;
use Test::Warn; use Test::Warn;
use t::lib::Mocks; use t::lib::Mocks;

3
t/Koha/Middleware/SetEnv.t
View File

@ -20,7 +20,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 2; use Test::NoWarnings;
use Test::More tests => 3;
use Test::Warn; use Test::Warn;
use t::lib::Mocks; use t::lib::Mocks;

3
t/Koha/Object/Message.t
View File

@ -19,7 +19,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 2; use Test::NoWarnings;
use Test::More tests => 3;
use Test::Exception; use Test::Exception;
BEGIN { BEGIN {

3
t/Koha/Plugins/SafeURL.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 2; use Test::NoWarnings;
use Test::More tests => 3;
use Template; use Template;
subtest 'test double-encoding prevention' => sub { subtest 'test double-encoding prevention' => sub {

3
t/Koha/Plugins/Tab.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
use Test::Exception; use Test::Exception;
use Koha::Plugins::Tab; use Koha::Plugins::Tab;

3
t/Koha/REST/Plugin/Query.t
View File

@ -369,7 +369,8 @@ sub to_model {
# The tests # The tests
use Test::More tests => 10; use Test::NoWarnings;
use Test::More tests => 11;
use Test::Mojo; use Test::Mojo;
subtest 'extract_reserved_params() tests' => sub { subtest 'extract_reserved_params() tests' => sub {

3
t/Koha/Result/Boolean.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 4; use Test::NoWarnings;
use Test::More tests => 5;
use_ok('Koha::Result::Boolean'); use_ok('Koha::Result::Boolean');

3
t/Koha/Script.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 4; use Test::NoWarnings;
use Test::More tests => 5;
use Test::Exception; use Test::Exception;
BEGIN { use_ok('Koha::Script') } BEGIN { use_ok('Koha::Script') }

3
t/Koha/Script_cron.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 3; use Test::NoWarnings;
use Test::More tests => 4;
BEGIN { use_ok( "Koha::Script", '-cron' ) } BEGIN { use_ok( "Koha::Script", '-cron' ) }

3
t/Koha/SearchEngine/Elasticsearch/QueryBuilder.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 8; use Test::NoWarnings;
use Test::More tests => 9;
use t::lib::Mocks; use t::lib::Mocks;
use_ok('Koha::SearchEngine::Elasticsearch::QueryBuilder'); use_ok('Koha::SearchEngine::Elasticsearch::QueryBuilder');

3
t/Koha/SearchEngine/Elasticsearch/Search.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 2; use Test::NoWarnings;
use Test::More tests => 3;
use Test::MockModule; use Test::MockModule;
use t::lib::Mocks; use t::lib::Mocks;
use Encode qw( encode ); use Encode qw( encode );

3
t/Koha/SearchEngine/Search.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 2; use Test::NoWarnings;
use Test::More tests => 3;
use Test::Exception; use Test::Exception;
use t::lib::Mocks; use t::lib::Mocks;

3
t/Koha/SearchEngine/Zebra/QueryBuilder.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 4; use Test::NoWarnings;
use Test::More tests => 5;
use Test::MockModule; use Test::MockModule;
use_ok('Koha::SearchEngine::Zebra::QueryBuilder'); use_ok('Koha::SearchEngine::Zebra::QueryBuilder');

3
t/Koha/Util/MARC.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 3; use Test::NoWarnings;
use Test::More tests => 4;
use MARC::Record; use MARC::Record;
use MARC::Field; use MARC::Field;

3
t/Koha/Util/Navigation.t
View File

@ -1,6 +1,7 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
use Test::MockObject; use Test::MockObject;
use t::lib::Mocks; use t::lib::Mocks;

3
t/Koha/Util/Normalize.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 6; use Test::NoWarnings;
use Test::More tests => 7;
use Test::Warn; use Test::Warn;
BEGIN { BEGIN {

3
t/Koha/Util/OpenDocument.t
View File

@ -18,7 +18,8 @@
use Modern::Perl; use Modern::Perl;
use File::Temp qw/tempfile/; use File::Temp qw/tempfile/;
use Test::More tests => 4; use Test::NoWarnings;
use Test::More tests => 5;
BEGIN { use_ok('Koha::Util::OpenDocument'); } BEGIN { use_ok('Koha::Util::OpenDocument'); }

3
t/Koha/Z3950responder.t
View File

@ -1,7 +1,8 @@
#!/usr/bin/perl #!/usr/bin/perl
use Modern::Perl; use Modern::Perl;
use Test::More tests => 2; use Test::NoWarnings;
use Test::More tests => 3;
BEGIN { BEGIN {
use_ok('Koha::Z3950Responder'); use_ok('Koha::Z3950Responder');

3
t/Koha_MetadataRecord.t
View File

@ -19,7 +19,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 5; use Test::NoWarnings;
use Test::More tests => 6;
use Test::Warn; use Test::Warn;
use Koha::RecordProcessor; use Koha::RecordProcessor;

1
t/Koha_SearchEngine_Elasticsearch_Browse.t
View File

@ -19,6 +19,7 @@
use Modern::Perl; use Modern::Perl;
use Test::NoWarnings;
use Test::More; use Test::More;
use_ok('Koha::SearchEngine::Elasticsearch::Browse'); use_ok('Koha::SearchEngine::Elasticsearch::Browse');

3
t/Koha_Template_Plugin_HtmlId.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 2; use Test::NoWarnings;
use Test::More tests => 3;
use_ok('Koha::Template::Plugin::HtmlId'); use_ok('Koha::Template::Plugin::HtmlId');

3
t/Koha_Template_Plugin_Koha.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 4; use Test::NoWarnings;
use Test::More tests => 5;
use Test::MockModule; use Test::MockModule;
use t::lib::Mocks; use t::lib::Mocks;

3
t/Koha_Util_FrameworkPlugin.t
View File

@ -1,7 +1,8 @@
#!/usr/bin/perl #!/usr/bin/perl
use Modern::Perl; use Modern::Perl;
use Test::More tests => 7; use Test::NoWarnings;
use Test::More tests => 8;
use_ok( 'Koha::Util::FrameworkPlugin', qw(wrapper date_entered) ); use_ok( 'Koha::Util::FrameworkPlugin', qw(wrapper date_entered) );

3
t/Koha_Util_MARC.t
View File

@ -23,7 +23,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 4; use Test::NoWarnings;
use Test::More tests => 5;
use MARC::Record; use MARC::Record;
BEGIN { BEGIN {

3
t/Koha_XSLT_HTTPS.t
View File

@ -22,7 +22,8 @@ use Modern::Perl;
use Test::Exception; use Test::Exception;
use Test::MockModule; use Test::MockModule;
use Test::MockObject; use Test::MockObject;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
use Koha::XSLT::HTTPS; use Koha::XSLT::HTTPS;

3
t/Labels_split_Regex.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 5; use Test::NoWarnings;
use Test::More tests => 6;
use C4::ClassSplitRoutine::RegEx qw( split_callnumber ); use C4::ClassSplitRoutine::RegEx qw( split_callnumber );
my $callnumbers = { my $callnumbers = {

1
t/Labels_split_ccn.t
View File

@ -20,6 +20,7 @@
use strict; use strict;
use warnings; use warnings;
use Test::NoWarnings;
use Test::More; use Test::More;
BEGIN { BEGIN {

1
t/Labels_split_ddcn.t
View File

@ -20,6 +20,7 @@
use strict; use strict;
use warnings; use warnings;
use Test::NoWarnings;
use Test::More; use Test::More;
BEGIN { BEGIN {

1
t/Labels_split_lccn.t
View File

@ -21,6 +21,7 @@ use strict;
use warnings; use warnings;
use C4::ClassSplitRoutine::LCC qw( split_callnumber ); use C4::ClassSplitRoutine::LCC qw( split_callnumber );
use Test::NoWarnings;
use Test::More; use Test::More;
BEGIN { BEGIN {

3
t/Languages.t
View File

@ -18,7 +18,8 @@
# with Koha; if not, see <http://www.gnu.org/licenses>. # with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl; use Modern::Perl;
use Test::More tests => 5; use Test::NoWarnings;
use Test::More tests => 6;
use Test::MockModule; use Test::MockModule;
use CGI qw ( -utf8 ); use CGI qw ( -utf8 );
use Koha::Cache::Memory::Lite; use Koha::Cache::Memory::Lite;

3
t/Logger.t
View File

@ -22,7 +22,8 @@ use Koha::Logger;
use t::lib::Mocks; use t::lib::Mocks;
use File::Temp qw/tempfile/; use File::Temp qw/tempfile/;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
use Test::Warn; use Test::Warn;
use Test::Exception; use Test::Exception;

3
t/Makefile.t
View File

@ -16,7 +16,8 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>. # along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl; use Modern::Perl;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
use File::Slurp; use File::Slurp;
my @files = `git ls-tree HEAD|tr -s '\t' ' '|cut -d' ' -f4`; my @files = `git ls-tree HEAD|tr -s '\t' ' '|cut -d' ' -f4`;

3
t/Members_Messaging.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Members::Messaging'); use_ok('C4::Members::Messaging');

3
t/Number/Price.t
View File

@ -1,6 +1,7 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 37; use Test::NoWarnings;
use Test::More tests => 38;
use Test::MockModule; use Test::MockModule;
use t::lib::Mocks; use t::lib::Mocks;

3
t/OpenLibrarySearch.t
View File

@ -18,7 +18,8 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>. # along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl; use Modern::Perl;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
use LWP::Simple; use LWP::Simple;
use JSON; use JSON;
my $content = get("https://openlibrary.org/search.json?q=9780201038095"); my $content = get("https://openlibrary.org/search.json?q=9780201038095");

3
t/Output.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 8; use Test::NoWarnings;
use Test::More tests => 9;
use Test::Warn; use Test::Warn;
use Test::MockModule; use Test::MockModule;

3
t/Output_JSONStream.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 10; use Test::NoWarnings;
use Test::More tests => 11;
BEGIN { BEGIN {
use_ok('C4::Output::JSONStream'); use_ok('C4::Output::JSONStream');

3
t/Patroncards.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Patroncards'); use_ok('C4::Patroncards');

3
t/Patroncards_Batch.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Patroncards::Batch'); use_ok('C4::Patroncards::Batch');

3
t/Patroncards_Lib.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Patroncards::Lib'); use_ok('C4::Patroncards::Lib');

3
t/Patroncards_Patroncard.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Patroncards::Patroncard'); use_ok('C4::Patroncards::Patroncard');

3
t/Patroncards_Profile.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Patroncards::Profile'); use_ok('C4::Patroncards::Profile');

3
t/Patroncards_Template.t
View File

@ -6,7 +6,8 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 1; use Test::NoWarnings;
use Test::More tests => 2;
BEGIN { BEGIN {
use_ok('C4::Patroncards::Template'); use_ok('C4::Patroncards::Template');

1
t/RecordProcessor.t
View File

@ -22,6 +22,7 @@ use Modern::Perl;
use File::Spec; use File::Spec;
use MARC::Record; use MARC::Record;
use English qw( -no_match_vars ); use English qw( -no_match_vars );
use Test::NoWarnings;
use Test::More; use Test::More;
BEGIN { BEGIN {

3
t/Ris.t
View File

@ -6,7 +6,8 @@
use Modern::Perl; use Modern::Perl;
use t::lib::Mocks; use t::lib::Mocks;
use Test::More tests => 4; use Test::NoWarnings;
use Test::More tests => 5;
BEGIN { BEGIN {
use_ok('C4::Ris'); use_ok('C4::Ris');

3
t/SIP/Sip.t
View File

@ -17,7 +17,8 @@
use Modern::Perl; use Modern::Perl;
use Test::More tests => 10; use Test::NoWarnings;
use Test::More tests => 11;
use Test::Warn; use Test::Warn;
BEGIN { BEGIN {

3
t/SMS.t
View File

@ -19,7 +19,8 @@ use Modern::Perl;
use t::lib::Mocks; use t::lib::Mocks;
use Test::More tests => 8; use Test::NoWarnings;
use Test::More tests => 9;
BEGIN { BEGIN {
use_ok( 'C4::SMS', qw( driver send_sms ) ); use_ok( 'C4::SMS', qw( driver send_sms ) );

Some files were not shown because too many files have changed in this diff Show More