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

Bug 24879: Exclude koha_perl_deps.pl 

And tidy.

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Wainui Witika-Park <wainuiwitikapark@catalyst.net.nz>
This commit is contained in:
Jonathan Druart 2024-03-15 10:19:16 +01:00 committed by Wainui Witika-Park
parent 1b65d2ec59
commit 8def6ea4d6
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
xt/find-missing-auth_checks.t
View File

@ -20,18 +20,19 @@ use Test::More;
use File::Slurp qw(read_file);
my @excluded_paths = qw(C4 debian docs etc installer/data install_misc Koha misc selenium t test tmp xt changelanguage.pl build-resources.PL fix-perl-path.PL );
push @excluded_paths, 'opac'; # We cannot test the OPAC scripts, some can be accessed without authentication
my @excluded_paths =
qw(C4 debian docs etc installer/data install_misc Koha misc selenium t test tmp xt changelanguage.pl build-resources.PL fix-perl-path.PL koha_perl_deps.pl );
push @excluded_paths, 'opac'; # We cannot test the OPAC scripts, some can be accessed without authentication
my $grep_cmd = q{git grep -l '#!/usr/bin/perl' -- } . join( ' ', map { qq{':!$_'} } @excluded_paths );
my @files = `$grep_cmd`;
my $grep_cmd = q{git grep -l '#!/usr/bin/perl' -- } . join( ' ', map { qq{':!$_'} } @excluded_paths );
my @files = `$grep_cmd`;
my @missing_auth_check;
FILE: foreach my $file (@files) {
chomp $file;
my @lines = read_file($file);
for my $line ( @lines ) {
for my $routine ( qw( get_template_and_user check_cookie_auth checkauth check_api_auth C4::Service->init ) ) {
for my $line (@lines) {
for my $routine (qw( get_template_and_user check_cookie_auth checkauth check_api_auth C4::Service->init )) {
next FILE if $line =~ m|^[^#]*$routine|;
}
}