There can be more than eHive in PERL5LIB

9e8f3579 · Matthieu Muffato · 88a6fd2d · 9e8f3579
Commit 9e8f3579 authored Nov 17, 2014 by Matthieu Muffato
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 8 deletions

t/01.utils/modules.t t/01.utils/modules.t +2 -8

No files found.
--- a/t/01.utils/modules.t
+++ b/t/01.utils/modules.t
@@ -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');