Mario1159/verilator
1
0
Fork 0
forked from github/verilator
Code Pull Requests Releases 1 Activity

Tests: Add fix-me test

Browse Source
This commit is contained in:
Wilson Snyder 2009-12-02 20:05:12 -05:00
parent 2f2f416bea
commit 66b5fa821c
1 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
test_regress/t/t_dist_fixme.pl Executable file
View File

@ -0,0 +1,35 @@
#!/usr/bin/perl
if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); die; }
# DESCRIPTION: Verilator: Verilog Test driver/expect definition
#
# Copyright 2003 by Wilson Snyder. This program is free software; you can
# redistribute it and/or modify it under the terms of either the GNU
# Lesser General Public License Version 3 or the Perl Artistic License
# Version 2.0.
use IO::File;
my $root = "..";
my $Debug;
if (!-r "$root/.git") {
$Self->skip("Not in a git repository");
} else {
### Must trim output before and after our file list
my $files = `cd $root && git ls-files --exclude-standard`;
print "ST $files\n" if $Debug;
$files =~ s/\s+/ /g;
my $cmd = "cd $root && fgrep -n FIXME $files | sort | grep -v t_dist_fixme";
my $grep = `$cmd`;
print "$grep\n";
if ($grep ne "") {
my %names;
foreach my $line (split /\n/, $grep) {
$names{$1} = 1 if $line =~ /^([^:]+)/;
}
$Self->error("Files with FIXMEs: ",join(' ',sort keys %names));
}
}
ok(1);
1;