From 98aaabee9fc25bcc2c438aea0cd144d0d96b4782 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 17 Nov 2022 14:52:25 +0100 Subject: [PATCH] Bug 32248: Remove t/00-checkdatabase-version.t Since bug 25078 we do no longer use updatedatabase.pl. This test was there to make sure the RM(aints) was replacing the XXX correctly. Signed-off-by: Tomas Cohen Arazi Signed-off-by: Katrin Fischer Signed-off-by: Tomas Cohen Arazi --- t/00-checkdatabase-version.t | 60 ------------------------------------ 1 file changed, 60 deletions(-) delete mode 100755 t/00-checkdatabase-version.t diff --git a/t/00-checkdatabase-version.t b/t/00-checkdatabase-version.t deleted file mode 100755 index 9e94cbe50f..0000000000 --- a/t/00-checkdatabase-version.t +++ /dev/null @@ -1,60 +0,0 @@ -# Copyright 2010 Chris Cormack -# -# 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 strict; -use warnings; - -use Test::More; -use File::Spec; -use File::Find; -use IO::File; - -my @files =('kohaversion.pl','installer/data/mysql/updatedatabase.pl'); - -foreach my $file (@files){ - next unless -f $file; - my @name_parts = File::Spec->splitpath($file); - my %dirs = map { $_ => 1 } File::Spec->splitdir($name_parts[1]); - next if exists $dirs{'.git'}; - - my $fh = IO::File->new($file, 'r'); - my $xxx_found = 0; - my $line = 0; - while (<$fh>) { - $line++; - if (/XXX/i) { - #two lines are an exception for updatedatabase (routine SetVersion and TransferToNum) - next - if $file =~ /updatedatabase/ - && ( /s\/XXX\$\/999\/;/ - || /\$_\[0\]=~ \/XXX\$\/;/ - || /version contains XXX/ - || /\$proposed_version =~ m\/XXX\// ); - $xxx_found = 1; - last; - } - } - close $fh; - if ($xxx_found) { - fail("$file has no XXX in it"); - diag("XXX found in line $line"); - } else { - pass("$file has no XXX in it"); - } -} - -done_testing(); -- 2.39.5