Commit f5148705 authored by Matthieu Muffato's avatar Matthieu Muffato
Browse files

[test-suite] Don't overwrite en existing $EHIVE_ROOT_DIR

parent 4b8d10a9
......@@ -29,7 +29,7 @@ use Bio::EnsEMBL::Hive::Utils::Test qw(init_pipeline);
# eHive needs this to initialize the pipeline (and run db_cmd.pl)
use Cwd ();
use File::Basename ();
$ENV{'EHIVE_ROOT_DIR'} = File::Basename::dirname( File::Basename::dirname( File::Basename::dirname( Cwd::realpath($0) ) ) );
$ENV{'EHIVE_ROOT_DIR'} ||= File::Basename::dirname( File::Basename::dirname( File::Basename::dirname( Cwd::realpath($0) ) ) );
my $dir = tempdir CLEANUP => 1;
chdir $dir;
......
......@@ -25,7 +25,7 @@ use Data::Dumper;
# eHive needs this to initialize the pipeline (and run db_cmd.pl)
use Cwd ();
use File::Basename ();
$ENV{'EHIVE_ROOT_DIR'} = File::Basename::dirname( File::Basename::dirname( File::Basename::dirname( Cwd::realpath($0) ) ) );
$ENV{'EHIVE_ROOT_DIR'} ||= File::Basename::dirname( File::Basename::dirname( File::Basename::dirname( Cwd::realpath($0) ) ) );
use Bio::EnsEMBL::Hive::DBSQL::DBAdaptor;
......
......@@ -28,7 +28,7 @@ use File::Temp qw{tempdir};
use Bio::EnsEMBL::Hive::Utils::Test qw(init_pipeline runWorker);
# eHive needs this to initialize the pipeline (and run db_cmd.pl)
$ENV{'EHIVE_ROOT_DIR'} = File::Basename::dirname( File::Basename::dirname( File::Basename::dirname( Cwd::realpath($0) ) ) );
$ENV{'EHIVE_ROOT_DIR'} ||= File::Basename::dirname( File::Basename::dirname( File::Basename::dirname( Cwd::realpath($0) ) ) );
my $dir = tempdir CLEANUP => 1;
my $original = chdir $dir;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment