luke
/
verilator
mirror of https://github.com/verilator/verilator.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Tests: Fix t_dist_fixme to detect later files.

This commit is contained in:
Wilson Snyder 2021-09-07 19:27:46 -04:00
parent d09b6a7d2c
commit 2a79e46c46
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
test_regress/t/t_dist_fixme.pl
View File

@ -21,15 +21,28 @@ if (!-r "$root/.git") {
### Must trim output before and after our file list ### Must trim output before and after our file list
my $files = `cd $root && git ls-files --exclude-standard`; my $files = `cd $root && git ls-files --exclude-standard`;
print "ST $files\n" if $Debug; print "ST $files\n" if $Debug;
my %names;
$files =~ s/\s+/ /g; $files =~ s/\s+/ /g;
my $cmd = "cd $root && grep -n -P '(FIX"."ME|BO"."ZO)' $files | sort"; my @batch;
my $grep = `$cmd`; my $n = 0;
print "$grep\n"; foreach my $file (split /\s+/, $files) {
if ($grep ne "") { $batch[$n] .= $file . " ";
my %names; ++$n if (length($batch[$n]) > 10000);
foreach my $line (split /\n/, $grep) { }
$names{$1} = 1 if $line =~ /^([^:]+)/;
foreach my $bfiles (@batch) {
my $cmd = "cd $root && grep -n -P '(FIX"."ME|BO"."ZO)' $bfiles | sort";
my $grep = `$cmd`;
if ($grep ne "") {
print "$grep\n";
foreach my $line (split /\n/, $grep) {
print "L $line\n";
$names{$1} = 1 if $line =~ /^([^:]+)/;
}
} }
}
if (scalar(%names) >= 1) {
error("Files with FIX"."MEs: ",join(' ',sort keys %names)); error("Files with FIX"."MEs: ",join(' ',sort keys %names));
} }
} }