From 35657f26738c5f9bbc9533bc428e2d8270c9ceb4 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 9 Aug 2017 12:59:20 -0300 Subject: [PATCH] Bug 19067: Test Makefile.PL mapping --- t/Makefile.t | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 t/Makefile.t diff --git a/t/Makefile.t b/t/Makefile.t new file mode 100644 index 0000000000..6f1f239b3f --- /dev/null +++ b/t/Makefile.t @@ -0,0 +1,46 @@ +#!/usr/bin/perl + +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . + +use Modern::Perl; +use Test::More tests => 1; +use File::Slurp; + +my @files = `git ls-tree HEAD|tr -s '\t' ' '|cut -d' ' -f4`; + +my $MakeFile = read_file('Makefile.PL'); +my @MakeFile = split "\n", $MakeFile; + +my @ignored = qw( + .editorconfig + .mailmap + LICENSE + README.md + README.robots + debian + install-CPAN.pl + koha_perl_deps.pl +); + +my @not_mapped; +for my $file (@files ) { + chomp $file; + unless ( grep {/$file/} @MakeFile or grep {/$file/} @ignored ) { + push @not_mapped, $file; + } +} + +is( @not_mapped, 0, 'All directories should be mapped' . (@not_mapped ? ': ' . join ',', @not_mapped : '' ) ); -- 2.11.0