From 10184c025023bcf0c879a5f68b0f952b38b4886b Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 26 Oct 2021 16:09:43 +0200 Subject: [PATCH] Bug 29324: Adjust tests --- xt/find-license-problems.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/xt/find-license-problems.t b/xt/find-license-problems.t index 50e607edea..49e4a7c770 100755 --- a/xt/find-license-problems.t +++ b/xt/find-license-problems.t @@ -44,7 +44,7 @@ find({ wanted => \&wanted, no_chdir => 1 }, File::Spec->curdir()); foreach my $name (@files) { open( my $fh, '<', $name ) || die "cannot open file $name $!"; my ( $hascopyright, $hasgpl, $hasv3, $hasorlater, $haslinktolicense, - $hasfranklinst, $is_not_us ) = (0)x7; + $hasfranklinst, $is_not_us, $needs_copyright ) = (0)x8; while ( my $line = <$fh> ) { $hascopyright = 1 if ( $line =~ /^(#|--)?\s*Copyright.*\d\d/ ); $hasgpl = 1 if ( $line =~ /GNU General Public License/ ); @@ -55,9 +55,10 @@ foreach my $name (@files) { $haslinktolicense = 1 if $line =~ m|http://www\.gnu\.org/licenses|; $hasfranklinst = 1 if ( $line =~ /51 Franklin Street/ ); $is_not_us = 1 if $line =~ m|This file is part of the Zebra server|; + $needs_copyright = 1 if $line =~ m|This file is part of Koha|; } close $fh; - next unless $hascopyright; + next unless $hascopyright || $needs_copyright; next if $is_not_us; is( $hasgpl && $hasv3 -- 2.30.2