Line 31... |
Line 31... |
eval Slurp( "testlist.pl" );
|
eval Slurp( "testlist.pl" );
|
die "-E- Errors in configuration file!\n".$@."\n" if($@);
|
die "-E- Errors in configuration file!\n".$@."\n" if($@);
|
|
|
|
|
CreateTargetTree( $RegressionTargetDirectory );
|
CreateTargetTree( $RegressionTargetDirectory );
|
|
#----------------------------------------------------------------
|
|
sub hashValueAscendingNum {
|
|
$TestList{$a}->{'index'} <=> $TestList{$b}->{'index'};
|
|
}
|
|
|
#----------------------------------------------------------------
|
#----------------------------------------------------------------
|
sub CreateTargetTree
|
sub CreateTargetTree
|
{
|
{
|
my $DestinationPath = shift;
|
my $DestinationPath = shift;
|
Line 50... |
Line 52... |
print LOG "Regression Test-bench started at $date ,time $time\n";
|
print LOG "Regression Test-bench started at $date ,time $time\n";
|
|
|
|
|
#for my $i (0 .. $#TestList)
|
#for my $i (0 .. $#TestList)
|
#print Dumper(%TestList);
|
#print Dumper(%TestList);
|
for my $TestName (keys %TestList)
|
for my $TestName (sort hashValueAscendingNum (keys %TestList))
|
{
|
{
|
chdir $ScriptPath;
|
chdir $ScriptPath;
|
my $TestPath = $TestList{$TestName}->{'path'};
|
my $TestPath = $TestList{$TestName}->{'path'};
|
|
|
|
|
Line 68... |
Line 70... |
copy("$TestPath/Params.mem","$TestDir/") or die "-E- $TestPath/Params.mem $!\n";
|
copy("$TestPath/Params.mem","$TestDir/") or die "-E- $TestPath/Params.mem $!\n";
|
copy("$TestPath/Creg.mem","$TestDir/") or die "-E- $TestPath/Config.mem $!\n";
|
copy("$TestPath/Creg.mem","$TestDir/") or die "-E- $TestPath/Config.mem $!\n";
|
copy("$TestPath/Reference.ppm","$TestDir/") or die "-E- $TestPath/Reference.ppm $!\n";
|
copy("$TestPath/Reference.ppm","$TestDir/") or die "-E- $TestPath/Reference.ppm $!\n";
|
copy("$TestPath/Textures.mem","$TestDir/") or die "-E- $TestPath/Textures.ppm $!\n";
|
copy("$TestPath/Textures.mem","$TestDir/") or die "-E- $TestPath/Textures.ppm $!\n";
|
copy("$TestPath/Instructions.mem","$TestDir/") or die "-E- $TestPath/Instructions.ppm $!\n";
|
copy("$TestPath/Instructions.mem","$TestDir/") or die "-E- $TestPath/Instructions.ppm $!\n";
|
|
copy("$TestPath/Instructions.mem","$TestDir/") or die "-E- $TestPath/Instructions.ppm $!\n";
|
|
|
#Copy the Source files just in case..
|
#Copy the Source files just in case..
|
mkdir "$RegDir/rtl";
|
mkdir "$RegDir/rtl";
|
|
system("cp -vr ../rtl/*.v $RegDir/rtl");
|
|
#copy("../rtl","$RegDir") or die ("Cannot Copy '" . $_ . "' : $!\n");
|
|
|
find
|
|
(
|
|
sub{ next if !m/.*\.v/; copy( $File::Find::name,"$RegDir/rtl") or die ("Cannot Copy '" . $_ . "' : $!\n") },
|
|
("../rtl/")
|
|
);
|
|
|
|
#Compile the test code
|
#Compile the test code
|
#print Dumper($TestList{$TestName});
|
#print Dumper($TestList{$TestName});
|
my $CoreCount = $TestList{$TestName}->{core_count};
|
my $CoreCount = $TestList{$TestName}->{core_count};
|
my $MemBankCount = $TestList{$TestName}->{mem_bank_count};
|
my $MemBankCount = $TestList{$TestName}->{mem_bank_count};
|