Commit 67643176 authored by Andy Yates's avatar Andy Yates
Browse files

fixing dependencies.t test case. Now works no matter where you run the test cases from

parent 227fe686
......@@ -2,18 +2,16 @@
use strict;
use warnings;
use Test::More;
use File::Spec;
#use Bio::EnsEMBL::Test::TestUtils;
use Bio::EnsEMBL::Test::TestUtils;
BEGIN { $| = 1;
use Test;
plan tests => 1;
}
my ($volume, $directory, $file) = File::Spec->splitpath(__FILE__);
$directory = File::Spec->rel2abs($directory);
my $modules_dir = File::Spec->catdir($directory, File::Spec->updir(), qw/Bio EnsEMBL/);
#test for dependencies on Variation, Compara and Funcgen APIs
my @result = `egrep -r "use Bio::EnsEMBL::(Variation|Compara|Funcgen){1}" ../Bio/EnsEMBL/`;
my @result = `egrep -r "use Bio::EnsEMBL::(Variation|Compara|Funcgen){1}" $modules_dir`;
my %result = map{$_ => 1} @result;
......@@ -36,3 +34,5 @@ if (%result) {
warn "Dependencies found in the following files:\n";
warn keys %result;
}
done_testing();
\ No newline at end of file
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