OpenCores
URL https://opencores.org/ocsvn/t400/t400/trunk

Subversion Repositories t400

Compare Revisions

  • This comparison shows the changes necessary to convert path 
    /
    from Rev 60 to Rev 61
    ↔ Reverse comparison
  •

Rev 60 → Rev 61

/trunk/sw/run_regression.pl
0,0 → 1,94
#!/usr/bin/perl -w
#
##############################################################################
#
# run_regression.pl
#
# $Id: run_regression.pl,v 1.1 2006-05-25 15:58:01 arniml Exp $
#
# Copyright (c) 2006, Arnim Laeuger (arniml@opencores.org)
#
# All rights reserved
#
# ############################################################################
#
# Purpose:
# ========
#
# Runs regression suite over all testcells found in $PROJECT_DIR/sw/verif.
#
# The testcells are identified by searching for the testbench identifiers
# as defined below for %testbenches.
# Then each testcell is built and executed with the specified testcells.
#
 
use strict;
 
 
my $project_dir = $ENV{'PROJECT_DIR'};
my $verif_dir = $project_dir.'/sw/verif';
my $sim_dir = $project_dir.'/sim/rtl_sim';
 
# the testbenches and their identifiers
my %testbenches = ('t41x' => './tb_t411_behav_c0',
't42x' => './tb_t420_behav_c0');
my ($tb_name, $tb_exec);
 
# identify the directories below $verif_dir containing test classes
my @classes_dirs = ('black_box');
 
my $dir;
my %testdirs;
 
# common GHDL options
my $ghdl_options = '--assert-level=error';
 
 
##############################################################################
# find all test directories for all the testbenches
#
foreach $dir (@classes_dirs) {
$dir = $verif_dir.'/'.$dir;
 
while (($tb_name, $tb_exec) = each(%testbenches)) {
my $elem;
my @dirs = `find $dir -name $tb_name`;
 
foreach $elem (@dirs) {
$elem =~ s/\/[^\/]+$//;
$testdirs{$elem} = 1;
}
}
}
 
 
##############################################################################
# run through all tests and execute the enabled testbenches
#
chdir($sim_dir);
while (($dir, $tb_exec) = each(%testdirs)) {
# remove all previous hex files
system('rm -f *.hex');
 
chdir($dir);
print("Building $dir\n");
if (system('make all clean') == 0) {
my @execute_tbs;
 
# collect the testbenches to be executed
while (($tb_name, $tb_exec) = each(%testbenches)) {
if (-e $tb_name) {
push(@execute_tbs, $tb_name);
}
}
 
# and finally execute them
chdir($sim_dir);
foreach $tb_name (@execute_tbs) {
print("Executing for $tb_name\n");
system("$testbenches{$tb_name} $ghdl_options");
}
} else {
print("Build failed\n");
}
}
trunk/sw/run_regression.pl Property changes : Added: svn:executable ## -0,0 +1 ## +* \ No newline at end of property

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.