Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Bug 20020: use Modern::Perl in XT scripts

Browse source 
Test Case:
Check the following files have been updated from
use strict;
use warnings;
to
use Modern::Perl;

author/podcorrectness.t
author/show-template-structure.pl
author/translatable-templates.t
author/valid-templates.t
find-license-problems
fix-old-fsf-address
single_quotes.t
verify-debian-docbook.t

Signed-off-by: Jon Knight <J.P.Knight@lboro.ac.uk>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Charlotte Cordwell 2018-01-18 03:32:12 +00:00 committed by Jonathan Druart
parent d10513dfc0
commit e1b4b53765
8 changed files with 8 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
xt/author/podcorrectness.t
View file

@ -1,7 +1,5 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Modern::Perl;
=head2 podcorrectness.t
This test file checks all perl modules in the C4 directory for POD

3
xt/author/show-template-structure.pl
View file

@ -17,8 +17,7 @@
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
use warnings;
use Modern::Perl;
=head1 NAME

4
xt/author/translatable-templates.t
View file

@ -15,9 +15,7 @@
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
use warnings;
use Modern::Perl;
=head2 translate-templates.t
This test verifies that all staff and OPAC template

3
xt/author/valid-templates.t
View file

@ -17,8 +17,7 @@
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
use warnings;
use Modern::Perl;
=head1 NAME

3
xt/find-license-problems
View file

@ -24,8 +24,7 @@
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
use Modern::Perl;
use File::Find;

3
xt/fix-old-fsf-address
View file

@ -27,8 +27,7 @@
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
use Modern::Perl;
use File::Basename;
use File::Copy;

3
xt/single_quotes.t
View file

@ -17,8 +17,7 @@
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use warnings;
use strict;
use Modern::Perl;
use Test::More tests => 1;
use File::Find;

4
xt/verify-debian-docbook.t
View file

@ -20,9 +20,7 @@
# This runs 'xmllint' (part of libxml2-utils) over each xml file that
# generates the koha-common man pages and ensures they're correct.
use strict;
use warnings;
use Modern::Perl;
use Test::More qw(no_plan);
my $doc_dir = 'debian/docs';