Subversion Repositories t400

#!/usr/bin/perl -w
#
##############################################################################
#
# run_regression.pl
#
# $Id: run_regression.pl 179 2009-04-01 19:48:38Z arniml $
#
# 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_t410_behav_c0', './tb_t411_behav_c0'],
                   't42x' => ['./tb_t420_behav_c0', './tb_t421_behav_c0'],
                   't420' => ['./tb_t420_behav_c0'],
                   'int'  => ['./tb_int_behav_c0'],
                   'mb'   => ['./tb_microbus_behav_c0'],
                   'prod' => ['./tb_prod_behav_c0']);
my ($tb_name, $tb_exec);
 
# identify the directories below $verif_dir containing test classes
my @classes_dirs = ('black_box', 'int', 'system');
 
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 -type f -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 (-f $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");
 
            foreach $tb_exec (@{$testbenches{$tb_name}}) {
                print("Executing testbench $tb_exec\n");
                system("$tb_exec $ghdl_options");
            }
        }
    } else {
        print("Build failed\n");
    }
}