URL
https://opencores.org/ocsvn/theia_gpu/theia_gpu/trunk
Subversion Repositories theia_gpu
Compare Revisions
- This comparison shows the changes necessary to convert path
/theia_gpu/branches/beta_2.0/scripts
- from Rev 229 to Rev 230
- ↔ Reverse comparison
Rev 229 → Rev 230
/run_regressions.pl
13,6 → 13,7
my $SimulatonResultFile = "test_result.log"; |
my $Option_Quiet = 1; |
my $TestConfig; |
my $UserTest = undef; |
#Set the enviroment variable THEIA_PROJECT_FOLDER |
my $tmp = `pwd`; |
chomp $tmp; |
21,7 → 22,16
|
#find all the *.vp files |
|
my @Tests = <$RegressionsDirectory/*.vp>; |
my @Tests; |
if (not defined $ARGV[0]) |
{ |
@Tests = <$RegressionsDirectory/*.vp>; |
} else { |
|
$UserTest = "$RegressionsDirectory/$ARGV[0]"; |
die "Test $UserTest not found\n" if (not -e "$UserTest"); |
@Tests = ($UserTest); |
} |
for my $Test (@Tests) |
{ |
print sprintf("Running test %-60s ",$Test); |
31,7 → 41,7
{ |
print $CompilationOutput; |
print "ERROR: theia_compile failed!\n"; |
`rm *.mem`; |
`ls *.mem | grep -v tmem.mem | xargs rm `; |
next; |
} |
print $CompilationOutput if ($Option_Quiet == 0); |
48,7 → 58,7
if (not -e $TestConfig) |
{ |
print "ERROR: test configuration file $TestConfig does not exist\n"; |
`rm *.mem`; |
`ls *.mem | grep -v tmem.mem | xargs rm `; |
next; |
} |
ParseConfigFile( $TestConfig ); |
68,11 → 78,11
my $block, my $vp; |
my $vpindex; |
open CONFIG_FILE , $ConfigFile or die "Could not open $ConfigFile : $!\n"; |
print "Parsing configuration file $ConfigFile\n" if ($Option_Quiet == 0); |
while (<CONFIG_FILE>) |
{ |
$Line++; |
next if m/\/\/.*/; #skip comments |
#print "* $_ \n"; |
if (m/==/) |
{ |
(my $left, my $ExpectedValue) = split /==/; |
93,6 → 103,7
my $log_file = "rf.vp." . $vpindex . ".log"; |
die "Could not open $log_file : $!\n" if (not -e $log_file); |
my $RegValue = `grep r$index $log_file| awk '{print \$2 \$3 \$4}'`; |
chomp $RegValue; |
if (not ($RegValue =~ m/$ExpectedValue/)) |
{ |
$Failed = 1; |
102,8 → 113,20
} elsif ($block =~ m/omem\[\s*(\d+)\s*\]/) { #get the OMEM <index>, expr omem[ <index> ] |
|
my $index = $1; |
my $log_file = "OMEM.vp." . $vpindex . ".log"; |
die "Could not open $log_file : $!\n" if (not -e $log_file); |
print "Expected Value: $ExpectedValue\n" if ($Option_Quiet == 0); |
my $GrepString; |
$GrepString = sprintf("grep @%02d %s| awk '{print $2 }'",$index,$log_file); |
my $OmemValue = `$GrepString`; |
chomp $OmemValue; |
print " $GrepString\n" if ($Option_Quiet == 0); |
if (not ($OmemValue =~ m/$ExpectedValue/)) |
{ |
$Failed = 1; |
print "\n\t ASSERTION : Expecting vp[ $vpindex ].omem[ $index ] == '$ExpectedValue', but simulation has value '$OmemValue' \n"; |
} |
|
|
} else { |
die "Error parsing '$ConfigFile' unknown block type '$block'\n"; |
} |