Tests: Fix driver when VERILATOR_ROOT not set.

This commit is contained in:
Wilson Snyder 2017-10-26 07:34:02 -04:00
parent 252ed4c1ae
commit c17a9eb5f1

View File

@ -3,14 +3,17 @@
###################################################################### ######################################################################
require 5.006_001; require 5.006_001;
use Cwd;
BEGIN { BEGIN {
if ($ENV{DIRPROJECT} && $ENV{DIRPROJECT_PERL_BOOT}) { if ($ENV{DIRPROJECT} && $ENV{DIRPROJECT_PERL_BOOT}) {
# Magic to allow author testing of perl packages in local directory # Magic to allow author testing of perl packages in local directory
require $ENV{DIRPROJECT}."/".$ENV{DIRPROJECT_PERL_BOOT}; require $ENV{DIRPROJECT}."/".$ENV{DIRPROJECT_PERL_BOOT};
} }
if (!$ENV{VERILATOR_ROOT} && -x "../bin/verilator") {
$ENV{VERILATOR_ROOT} = Cwd::getcwd()."/..";
}
} }
use Cwd;
use Getopt::Long; use Getopt::Long;
use IO::File; use IO::File;
use Pod::Usage; use Pod::Usage;