Commit 9e8f3579 authored by Matthieu Muffato's avatar Matthieu Muffato
Browse files

There can be more than eHive in PERL5LIB

parent 88a6fd2d
......@@ -11,15 +11,9 @@ BEGIN {
}
#########################
my $hive = find_submodules 'Bio::EnsEMBL';
my $hive = find_submodules 'Bio::EnsEMBL::Hive';
isa_ok($hive, 'ARRAY');
is(@$hive, 1, 'single return');
is($hive->[0], 'Bio::EnsEMBL::Hive', 'found hive');
$hive = find_submodules 'Bio/EnsEMBL';
isa_ok($hive, 'ARRAY');
is(@$hive, 1, 'single return');
is($hive->[0], 'Bio::EnsEMBL::Hive', 'found hive');
cmp_ok(scalar(@$hive), '>', 0, 'modules loaded');
my $pipe_configs = find_submodules 'Bio::EnsEMBL::Hive::PipeConfig';
ok($pipe_configs, 'configs found');
......
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