spacecheck: find double newlines in tests/data/test*

Closes #20872
This commit is contained in:
Viktor Szakats 2026-03-09 20:36:01 +01:00
parent ed7bf43a08
commit d4a06862cb
No known key found for this signature in database

View file

@ -148,24 +148,24 @@ while(my $filename = <$git_ls_files>) {
push @err, "content: has multiple EOL at EOF";
}
if(!fn_match($filename, @double_empty_lines)) {
if($content =~ /\n\n\n/ ||
$content =~ /\r\n\r\n\r\n/) {
my $line = 0;
my $blank = 0;
for my $l (split(/\n/, $content)) {
chomp $l;
$line++;
if($l =~ /^$/) {
if($blank) {
my $lineno = sprintf("duplicate empty line @ line %d", $line);
push @err, $lineno;
}
$blank = 1;
}
else {
$blank = 0;
if((!fn_match($filename, @double_empty_lines) &&
($content =~ /\n\n\n/ ||
$content =~ /\r\n\r\n\r\n/)) ||
$content =~ />\n\n\n+[<#]/) {
my $line = 0;
my $blank = 0;
for my $l (split(/\n/, $content)) {
chomp $l;
$line++;
if($l =~ /^$/) {
if($blank) {
my $lineno = sprintf("duplicate empty line @ line %d", $line);
push @err, $lineno;
}
$blank = 1;
}
else {
$blank = 0;
}
}
}