From 3ff61df668fca9845c36a450bf56b15e7acfc435 Mon Sep 17 00:00:00 2001 From: Grace Smyth Date: Thu, 18 Jan 2018 21:09:11 +0000 Subject: [PATCH] Bug 20022 - use Modern::Perl in t (test) perl scripts Test Plan: Check the following files have been updated from use strict; use warnings; to use Modern::Perl; 00-checkdatabase-version.t 00-deprecated.t 00-valid-xml.t AuthoritiesMarc_MARC21.t AuthoritiesMarc_UNIMARC.t Barcodes_EAN13.t Barcodes_annual.t Barcodes_hbyymmincr.t Barcodes_incremental.t Bookseller.t Budgets.t ClassSortRoutine.t ClassSortRoutine_Dewey.t ClassSortRoutine_Generic.t ClassSortRoutine_LCC.t ClassSource.t Contract.t Creators.t EdiInvoice.t Edifact.t Ediorder.t Ediordrsp.t External/Syndetics.t Form_MessagingPreferences.t Heading.t HtmlTags.t Installer_PerlDependencies.t Installer_pm.t ItemCirculationAlertPreference.t Koha_Util_MARC.t Labels.t Labels_split_ccn.t Labels_split_ddcn.t Labels_split_lccn.t Log.t Members_Attributes.t Members_Messaging.t Output.t Output_JSONStream.t Patroncards.t Patroncards_Batch.t Patroncards_Layout.t Patroncards_Lib.t Patroncards_Patroncard.t Patroncards_Profile.t Patroncards_Template.t Print.t QueryParser.t Scheduler.t Scrubber.t Stats.t SuggestionEngine.t TmplToken.t db_dependent/00-strict.t db_dependent/Amazon.t db_dependent/Heading_MARC21.t db_dependent/LDAP/test_ldap_add.pl db_dependent/Languages.t db_dependent/MungeMarcPrice.t db_dependent/Record/Record.t db_dependent/RecordProcessor_EmbedSeeFromHeadings.t db_dependent/Reports.t db_dependent/Service.t db_dependent/SuggestionEngine_ExplodedTerms.t db_dependent/Tags.t smolder_smoke_signal :) --- t/00-checkdatabase-version.t | 3 +-- t/00-deprecated.t | 3 +-- t/00-valid-xml.t | 3 +-- t/AuthoritiesMarc_MARC21.t | 3 +-- t/AuthoritiesMarc_UNIMARC.t | 3 +-- t/Barcodes_EAN13.t | 3 +-- t/Barcodes_annual.t | 3 +-- t/Barcodes_hbyymmincr.t | 3 +-- t/Barcodes_incremental.t | 3 +-- t/Bookseller.t | 3 +-- t/Budgets.t | 3 +-- t/ClassSortRoutine.t | 3 +-- t/ClassSortRoutine_Dewey.t | 3 +-- t/ClassSortRoutine_Generic.t | 3 +-- t/ClassSortRoutine_LCC.t | 3 +-- t/ClassSource.t | 3 +-- t/Contract.t | 3 +-- t/Creators.t | 3 +-- t/EdiInvoice.t | 3 +-- t/Edifact.t | 3 +-- t/Ediorder.t | 3 +-- t/Ediordrsp.t | 3 +-- t/External/Syndetics.t | 3 +-- t/Form_MessagingPreferences.t | 3 +-- t/Heading.t | 3 +-- t/HtmlTags.t | 3 +-- t/Installer_PerlDependencies.t | 3 +-- t/Installer_pm.t | 3 +-- t/ItemCirculationAlertPreference.t | 3 +-- t/Koha_Util_MARC.t | 3 +-- t/Labels.t | 3 +-- t/Labels_split_ccn.t | 3 +-- t/Labels_split_ddcn.t | 3 +-- t/Labels_split_lccn.t | 3 +-- t/Log.t | 3 +-- t/Members_Attributes.t | 3 +-- t/Members_Messaging.t | 3 +-- t/Output.t | 3 +-- t/Output_JSONStream.t | 3 +-- t/Patroncards.t | 3 +-- t/Patroncards_Batch.t | 3 +-- t/Patroncards_Layout.t | 3 +-- t/Patroncards_Lib.t | 3 +-- t/Patroncards_Patroncard.t | 3 +-- t/Patroncards_Profile.t | 3 +-- t/Patroncards_Template.t | 3 +-- t/Print.t | 3 +-- t/QueryParser.t | 3 +-- t/Scheduler.t | 3 +-- t/Scrubber.t | 3 +-- t/Stats.t | 3 +-- t/SuggestionEngine.t | 3 +-- t/TmplToken.t | 3 +-- t/db_dependent/00-strict.t | 3 +-- t/db_dependent/Amazon.t | 3 +-- t/db_dependent/Heading_MARC21.t | 3 +-- t/db_dependent/LDAP/test_ldap_add.pl | 3 +-- t/db_dependent/Languages.t | 3 +-- t/db_dependent/MungeMarcPrice.t | 3 +-- t/db_dependent/Record/Record.t | 3 +-- t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t | 3 +-- t/db_dependent/Reports.t | 3 +-- t/db_dependent/Service.t | 3 +-- t/db_dependent/SuggestionEngine_ExplodedTerms.t | 3 +-- t/db_dependent/Tags.t | 3 +-- t/smolder_smoke_signal | 3 +-- 66 files changed, 66 insertions(+), 132 deletions(-) diff --git a/t/00-checkdatabase-version.t b/t/00-checkdatabase-version.t index 9e94cbe..f72192b 100644 --- a/t/00-checkdatabase-version.t +++ b/t/00-checkdatabase-version.t @@ -15,8 +15,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use Test::More; use File::Spec; diff --git a/t/00-deprecated.t b/t/00-deprecated.t index 6eba09d..03b89b2 100755 --- a/t/00-deprecated.t +++ b/t/00-deprecated.t @@ -3,8 +3,7 @@ # Tests usage of deprecated Perl syntax. Deprecated could be extended to the # sense of 'not allowed'. # -use warnings; -use strict; +use Modern::Perl; use Test::More tests => 1; use File::Find; use Cwd; diff --git a/t/00-valid-xml.t b/t/00-valid-xml.t index 2c5393a..bf11d7b 100644 --- a/t/00-valid-xml.t +++ b/t/00-valid-xml.t @@ -15,8 +15,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use Test::More; use File::Spec; diff --git a/t/AuthoritiesMarc_MARC21.t b/t/AuthoritiesMarc_MARC21.t index fbf713a..2741279 100755 --- a/t/AuthoritiesMarc_MARC21.t +++ b/t/AuthoritiesMarc_MARC21.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 4; use MARC::Record; diff --git a/t/AuthoritiesMarc_UNIMARC.t b/t/AuthoritiesMarc_UNIMARC.t index 4d26f39..aeda817 100755 --- a/t/AuthoritiesMarc_UNIMARC.t +++ b/t/AuthoritiesMarc_UNIMARC.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 2; diff --git a/t/Barcodes_EAN13.t b/t/Barcodes_EAN13.t index c3c9046..e982c14 100755 --- a/t/Barcodes_EAN13.t +++ b/t/Barcodes_EAN13.t @@ -2,8 +2,7 @@ # # implementation tests are in t/db_dependent/Barcodes.t -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Barcodes_annual.t b/t/Barcodes_annual.t index b89d207..a95d634 100755 --- a/t/Barcodes_annual.t +++ b/t/Barcodes_annual.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; + use Test::More tests => 1; diff --git a/t/Barcodes_hbyymmincr.t b/t/Barcodes_hbyymmincr.t index a2377d3..58ab404 100755 --- a/t/Barcodes_hbyymmincr.t +++ b/t/Barcodes_hbyymmincr.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Barcodes_incremental.t b/t/Barcodes_incremental.t index 1bde5d3..8fa0ce2 100755 --- a/t/Barcodes_incremental.t +++ b/t/Barcodes_incremental.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Bookseller.t b/t/Bookseller.t index 360a0ad..06fe56c 100755 --- a/t/Bookseller.t +++ b/t/Bookseller.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Budgets.t b/t/Budgets.t index 96d0af4..bd8e7d2 100755 --- a/t/Budgets.t +++ b/t/Budgets.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/ClassSortRoutine.t b/t/ClassSortRoutine.t index be379a2..6bcb532 100755 --- a/t/ClassSortRoutine.t +++ b/t/ClassSortRoutine.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/ClassSortRoutine_Dewey.t b/t/ClassSortRoutine_Dewey.t index 404a967..edec0c5 100755 --- a/t/ClassSortRoutine_Dewey.t +++ b/t/ClassSortRoutine_Dewey.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 10; diff --git a/t/ClassSortRoutine_Generic.t b/t/ClassSortRoutine_Generic.t index 128006b..d1a857f 100755 --- a/t/ClassSortRoutine_Generic.t +++ b/t/ClassSortRoutine_Generic.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 3; diff --git a/t/ClassSortRoutine_LCC.t b/t/ClassSortRoutine_LCC.t index 9ec37cf..30acd4a 100755 --- a/t/ClassSortRoutine_LCC.t +++ b/t/ClassSortRoutine_LCC.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 10; diff --git a/t/ClassSource.t b/t/ClassSource.t index ffb3104..478d843 100755 --- a/t/ClassSource.t +++ b/t/ClassSource.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Contract.t b/t/Contract.t index 87df569..24e78be 100755 --- a/t/Contract.t +++ b/t/Contract.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Creators.t b/t/Creators.t index 6e825d6..6d54ccc 100755 --- a/t/Creators.t +++ b/t/Creators.t @@ -10,8 +10,7 @@ # # sample of utf-8 text, font name and type will be on bottom of second page -use strict; -use warnings; +use Modern::Perl; use File::Temp qw/ tempfile /; use Test::More tests => 41; diff --git a/t/EdiInvoice.t b/t/EdiInvoice.t index 14e7596..d4e19aa 100755 --- a/t/EdiInvoice.t +++ b/t/EdiInvoice.t @@ -1,6 +1,5 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use FindBin qw( $Bin ); use Test::More tests => 19; diff --git a/t/Edifact.t b/t/Edifact.t index cc20539..5071b25 100755 --- a/t/Edifact.t +++ b/t/Edifact.t @@ -1,6 +1,5 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use FindBin qw( $Bin ); use Test::More tests => 34; diff --git a/t/Ediorder.t b/t/Ediorder.t index 5332f0c..8d70907 100755 --- a/t/Ediorder.t +++ b/t/Ediorder.t @@ -1,6 +1,5 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use FindBin qw( $Bin ); use Test::More tests => 6; diff --git a/t/Ediordrsp.t b/t/Ediordrsp.t index 6d410dc..ff7a0ba 100755 --- a/t/Ediordrsp.t +++ b/t/Ediordrsp.t @@ -1,6 +1,5 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use FindBin qw( $Bin ); use Test::More tests => 16; diff --git a/t/External/Syndetics.t b/t/External/Syndetics.t index e335c74..db79166 100755 --- a/t/External/Syndetics.t +++ b/t/External/Syndetics.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Form_MessagingPreferences.t b/t/Form_MessagingPreferences.t index 483e133..9f5f5d9 100755 --- a/t/Form_MessagingPreferences.t +++ b/t/Form_MessagingPreferences.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Heading.t b/t/Heading.t index d780944..f166300 100755 --- a/t/Heading.t +++ b/t/Heading.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/HtmlTags.t b/t/HtmlTags.t index 3746d2c..ec2f16b 100755 --- a/t/HtmlTags.t +++ b/t/HtmlTags.t @@ -3,8 +3,7 @@ # This module tests the HtmlTag filter # -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 4; diff --git a/t/Installer_PerlDependencies.t b/t/Installer_PerlDependencies.t index 45dc1f1..9f4709e 100755 --- a/t/Installer_PerlDependencies.t +++ b/t/Installer_PerlDependencies.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Installer_pm.t b/t/Installer_pm.t index 7378172..dc1a3db 100755 --- a/t/Installer_pm.t +++ b/t/Installer_pm.t @@ -1,7 +1,6 @@ #!/usr/bin/perl # -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 4; use Data::Dumper; diff --git a/t/ItemCirculationAlertPreference.t b/t/ItemCirculationAlertPreference.t index d937c26..403e02d 100755 --- a/t/ItemCirculationAlertPreference.t +++ b/t/ItemCirculationAlertPreference.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Koha_Util_MARC.t b/t/Koha_Util_MARC.t index 3e205c9..4f7ecd2 100755 --- a/t/Koha_Util_MARC.t +++ b/t/Koha_Util_MARC.t @@ -20,8 +20,7 @@ # Note that at present this test is almost identical to the one testing # the encapsulating method in Koha::MetadataRecord. -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 4; diff --git a/t/Labels.t b/t/Labels.t index 1eac116..d7d98da 100644 --- a/t/Labels.t +++ b/t/Labels.t @@ -17,8 +17,7 @@ # # for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691 -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 11; diff --git a/t/Labels_split_ccn.t b/t/Labels_split_ccn.t index 936c883..3b2fb60 100755 --- a/t/Labels_split_ccn.t +++ b/t/Labels_split_ccn.t @@ -17,8 +17,7 @@ # # for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691 -use strict; -use warnings; +use Modern::Perl; use Test::More; diff --git a/t/Labels_split_ddcn.t b/t/Labels_split_ddcn.t index 7579de2..f497f50 100755 --- a/t/Labels_split_ddcn.t +++ b/t/Labels_split_ddcn.t @@ -17,8 +17,7 @@ # # for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691 -use strict; -use warnings; +use Modern::Perl; use Test::More; diff --git a/t/Labels_split_lccn.t b/t/Labels_split_lccn.t index 4034e21..b89ae44 100755 --- a/t/Labels_split_lccn.t +++ b/t/Labels_split_lccn.t @@ -17,8 +17,7 @@ # # for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691 -use strict; -use warnings; +use Modern::Perl; use Test::More; diff --git a/t/Log.t b/t/Log.t index 601b909..6e192d8 100755 --- a/t/Log.t +++ b/t/Log.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 3; use t::lib::Mocks; diff --git a/t/Members_Attributes.t b/t/Members_Attributes.t index 205d611..f767329 100755 --- a/t/Members_Attributes.t +++ b/t/Members_Attributes.t @@ -2,8 +2,7 @@ # # -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 11; diff --git a/t/Members_Messaging.t b/t/Members_Messaging.t index 9395008..b9e78c1 100755 --- a/t/Members_Messaging.t +++ b/t/Members_Messaging.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Output.t b/t/Output.t index 4474d18..0ab4636 100755 --- a/t/Output.t +++ b/t/Output.t @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 5; use CGI qw ( -utf8 ); diff --git a/t/Output_JSONStream.t b/t/Output_JSONStream.t index 13702a6..d23f672 100755 --- a/t/Output_JSONStream.t +++ b/t/Output_JSONStream.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 10; diff --git a/t/Patroncards.t b/t/Patroncards.t index 60a7237..ec7e92c 100755 --- a/t/Patroncards.t +++ b/t/Patroncards.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Patroncards_Batch.t b/t/Patroncards_Batch.t index a0743ff..0438150 100755 --- a/t/Patroncards_Batch.t +++ b/t/Patroncards_Batch.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Patroncards_Layout.t b/t/Patroncards_Layout.t index fe68761..da226c3 100755 --- a/t/Patroncards_Layout.t +++ b/t/Patroncards_Layout.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Patroncards_Lib.t b/t/Patroncards_Lib.t index 88154a6..cab6dfa 100755 --- a/t/Patroncards_Lib.t +++ b/t/Patroncards_Lib.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Patroncards_Patroncard.t b/t/Patroncards_Patroncard.t index 8868350..701486b 100755 --- a/t/Patroncards_Patroncard.t +++ b/t/Patroncards_Patroncard.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Patroncards_Profile.t b/t/Patroncards_Profile.t index 78cb6cf..2769518 100755 --- a/t/Patroncards_Profile.t +++ b/t/Patroncards_Profile.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Patroncards_Template.t b/t/Patroncards_Template.t index a781e0c..3acbcba 100755 --- a/t/Patroncards_Template.t +++ b/t/Patroncards_Template.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/Print.t b/t/Print.t index faf729d..ba8affd 100755 --- a/t/Print.t +++ b/t/Print.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 2; diff --git a/t/QueryParser.t b/t/QueryParser.t index 7b69430..1011cee 100644 --- a/t/QueryParser.t +++ b/t/QueryParser.t @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use Test::More; use Test::Deep; diff --git a/t/Scheduler.t b/t/Scheduler.t index f0f02e1..96d6083 100644 --- a/t/Scheduler.t +++ b/t/Scheduler.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 6; diff --git a/t/Scrubber.t b/t/Scrubber.t index 9bcd003..517aa9f 100755 --- a/t/Scrubber.t +++ b/t/Scrubber.t @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; $| = 1; use Test::More tests => 29; diff --git a/t/Stats.t b/t/Stats.t index d56c2c9..844286e 100755 --- a/t/Stats.t +++ b/t/Stats.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/SuggestionEngine.t b/t/SuggestionEngine.t index eed6fe8..f1b6d7f 100755 --- a/t/SuggestionEngine.t +++ b/t/SuggestionEngine.t @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use File::Spec; use Test::More; diff --git a/t/TmplToken.t b/t/TmplToken.t index 579ee9d..dff5c99 100755 --- a/t/TmplToken.t +++ b/t/TmplToken.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use C4::TmplTokenType; use Test::More tests => 19; diff --git a/t/db_dependent/00-strict.t b/t/db_dependent/00-strict.t index 3b16d4c..ace2910 100644 --- a/t/db_dependent/00-strict.t +++ b/t/db_dependent/00-strict.t @@ -1,7 +1,6 @@ # This script is called by the pre-commit git hook to test modules compile -use strict; -use warnings; +use Modern::Perl; use Test::More; use Test::Strict; use File::Spec; diff --git a/t/db_dependent/Amazon.t b/t/db_dependent/Amazon.t index 2304073..df5369d 100755 --- a/t/db_dependent/Amazon.t +++ b/t/db_dependent/Amazon.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 8; use t::lib::Mocks; diff --git a/t/db_dependent/Heading_MARC21.t b/t/db_dependent/Heading_MARC21.t index 0e1f1c9..adff1c3 100755 --- a/t/db_dependent/Heading_MARC21.t +++ b/t/db_dependent/Heading_MARC21.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 3; use C4::Context; diff --git a/t/db_dependent/LDAP/test_ldap_add.pl b/t/db_dependent/LDAP/test_ldap_add.pl index 1a67748..c21a5c7 100755 --- a/t/db_dependent/LDAP/test_ldap_add.pl +++ b/t/db_dependent/LDAP/test_ldap_add.pl @@ -7,8 +7,7 @@ # Then run this script to test perl interaction w/ LDAP. # -use warnings; -use strict; +use Modern::Perl; use Net::LDAP; use Net::LDAP::Filter; diff --git a/t/db_dependent/Languages.t b/t/db_dependent/Languages.t index 8e8d372..ddf2ead 100755 --- a/t/db_dependent/Languages.t +++ b/t/db_dependent/Languages.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 17; use List::Util qw(first); diff --git a/t/db_dependent/MungeMarcPrice.t b/t/db_dependent/MungeMarcPrice.t index 78a599f..933480e 100755 --- a/t/db_dependent/MungeMarcPrice.t +++ b/t/db_dependent/MungeMarcPrice.t @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use C4::Biblio; use Koha::Acquisition::Currencies; use Test::More; diff --git a/t/db_dependent/Record/Record.t b/t/db_dependent/Record/Record.t index 0bbfb03..5559ccc 100755 --- a/t/db_dependent/Record/Record.t +++ b/t/db_dependent/Record/Record.t @@ -19,8 +19,7 @@ # along with Koha; if not, see . # # -use strict; -use warnings; +use Modern::Perl; use constant WHEREAMI => 't/db_dependent/Record/testrecords'; diff --git a/t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t b/t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t index 664a0fa..a5aed5e 100755 --- a/t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t +++ b/t/db_dependent/RecordProcessor_EmbedSeeFromHeadings.t @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use File::Spec; use MARC::Record; use Koha::MetadataRecord::Authority; diff --git a/t/db_dependent/Reports.t b/t/db_dependent/Reports.t index e28efd6..a58b2ad 100755 --- a/t/db_dependent/Reports.t +++ b/t/db_dependent/Reports.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 2; diff --git a/t/db_dependent/Service.t b/t/db_dependent/Service.t index 497cc1b..2e3b430 100755 --- a/t/db_dependent/Service.t +++ b/t/db_dependent/Service.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 1; diff --git a/t/db_dependent/SuggestionEngine_ExplodedTerms.t b/t/db_dependent/SuggestionEngine_ExplodedTerms.t index bac1b41..2eb514b 100644 --- a/t/db_dependent/SuggestionEngine_ExplodedTerms.t +++ b/t/db_dependent/SuggestionEngine_ExplodedTerms.t @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use Cwd qw/abs_path/; use File::Basename; diff --git a/t/db_dependent/Tags.t b/t/db_dependent/Tags.t index 5612d3a..90f5502 100755 --- a/t/db_dependent/Tags.t +++ b/t/db_dependent/Tags.t @@ -3,8 +3,7 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 32; diff --git a/t/smolder_smoke_signal b/t/smolder_smoke_signal index 881312c..8ab8c5e 100755 --- a/t/smolder_smoke_signal +++ b/t/smolder_smoke_signal @@ -35,8 +35,7 @@ # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -use strict; -use warnings; +use Modern::Perl; use Getopt::Long; use Pod::Usage; use File::Spec::Functions qw(catdir catfile splitdir); -- 2.1.4