Tests: Excempt some wide files

This commit is contained in:
Wilson Snyder 2020-06-07 09:59:09 -04:00
parent 575c565e77
commit 05e51d0d18
1 changed files with 3 additions and 1 deletions

View File

@ -13,6 +13,7 @@ scenarios(dist => 1);
my $root = "..";
my $Tabs_Exempt_Re = qr!(\.out$)|(/gtkwave)|(Makefile)|(\.mk$)|(nodist/fastcov.py)!;
my $Wide_Exempt_Re = qr!(\.l$)|(\.y$)!;
if (!-r "$root/.git") {
skip("Not in a git repository");
@ -68,7 +69,8 @@ if (!-r "$root/.git") {
}
my $len = length($1);
if ($len >= 100
&& $file !~ $Tabs_Exempt_Re) {
&& $file !~ $Tabs_Exempt_Re
&& $file !~ $Wide_Exempt_Re) {
print" Wide $line\n" if $Self->{verbose};
$summary = "File modification adds a new >100 column line:" if !$summary;
$warns{$file} = "File modification adds a new >100 column line: $file:$lineno";