Line 2... |
Line 2... |
#
|
#
|
##############################################################################
|
##############################################################################
|
#
|
#
|
# run_regression.pl
|
# run_regression.pl
|
#
|
#
|
# $Id: run_regression.pl,v 1.4 2006-06-10 19:38:27 arniml Exp $
|
# $Id: run_regression.pl,v 1.5 2006-06-11 13:51:54 arniml Exp $
|
#
|
#
|
# Copyright (c) 2006, Arnim Laeuger (arniml@opencores.org)
|
# Copyright (c) 2006, Arnim Laeuger (arniml@opencores.org)
|
#
|
#
|
# All rights reserved
|
# All rights reserved
|
#
|
#
|
Line 28... |
Line 28... |
my $project_dir = $ENV{'PROJECT_DIR'};
|
my $project_dir = $ENV{'PROJECT_DIR'};
|
my $verif_dir = $project_dir.'/sw/verif';
|
my $verif_dir = $project_dir.'/sw/verif';
|
my $sim_dir = $project_dir.'/sim/rtl_sim';
|
my $sim_dir = $project_dir.'/sim/rtl_sim';
|
|
|
# the testbenches and their identifiers
|
# the testbenches and their identifiers
|
my %testbenches = ('t41x' => './tb_t411_behav_c0',
|
my %testbenches = ('t41x' => ['./tb_t411_behav_c0'],
|
't42x' => './tb_t420_behav_c0',
|
't42x' => ['./tb_t420_behav_c0', './tb_t421_behav_c0'],
|
'int' => './tb_int_behav_c0',
|
't420' => ['./tb_t420_behav_c0'],
|
'mb' => './tb_microbus_behav_c0',
|
'int' => ['./tb_int_behav_c0'],
|
'prod' => './tb_prod_behav_c0');
|
'mb' => ['./tb_microbus_behav_c0'],
|
|
'prod' => ['./tb_prod_behav_c0']);
|
my ($tb_name, $tb_exec);
|
my ($tb_name, $tb_exec);
|
|
|
# identify the directories below $verif_dir containing test classes
|
# identify the directories below $verif_dir containing test classes
|
my @classes_dirs = ('black_box', 'int', 'system');
|
my @classes_dirs = ('black_box', 'int', 'system');
|
|
|
Line 87... |
Line 88... |
|
|
# and finally execute them
|
# and finally execute them
|
chdir($sim_dir);
|
chdir($sim_dir);
|
foreach $tb_name (@execute_tbs) {
|
foreach $tb_name (@execute_tbs) {
|
print("Executing for $tb_name\n");
|
print("Executing for $tb_name\n");
|
system("$testbenches{$tb_name} $ghdl_options");
|
|
|
foreach $tb_exec (@{$testbenches{$tb_name}}) {
|
|
print("Executing testbench $tb_exec\n");
|
|
system("$tb_exec $ghdl_options");
|
|
}
|
}
|
}
|
} else {
|
} else {
|
print("Build failed\n");
|
print("Build failed\n");
|
}
|
}
|
}
|
}
|