Skip to content
Snippets Groups Projects
Commit 0815ab9a authored by Zhicheng Liu's avatar Zhicheng Liu
Browse files

Add test cases for get_all_DBAdaptors

parent 522bb6bb
No related branches found
No related tags found
2 merge requests!194Return all adaptors in the registry in get_all_DBAdaptors if no args …,!194Return all adaptors in the registry in get_all_DBAdaptors if no args …
Hide whitespace changes
Inline Side-by-side
Showing
with 4 additions and 0 deletions
modules/t/registry.t 100644 → 100755
+ 4
− 0
View file @ 0815ab9a
......@@ -127,6 +127,10 @@ my @species = @{ $reg->get_all_species() };
ok(scalar(@species) == 1, "get_all_species");
ok(scalar(@{ $reg->get_all_species('cahoona') }) == 0, "get_all_species with bogus data.");
# Test get_all_DBAdaptors
my $registry_register_dba = $Bio::EnsEMBL::Registry::registry_register{'_DBA'};
is( scalar(@{$reg->get_all_DBAdaptors()}), scalar(@{$registry_register_dba}), "get_all_DBAdaptors() on all species and groups" );
is( $reg->get_all_DBAdaptors(), $registry_register_dba, "get_all_DBAdaptors() on all species and groups: comparing references" );
ok(scalar(@{$reg->get_all_DBAdaptors(-SPECIES => $species[0])}), "get_all_DBAdaptors() on a valid species");
warns_like(
sub { is(scalar(@{$reg->get_all_DBAdaptors(-SPECIES => 'cahoona')}), 0, "get_all_DBAdaptors() on a non-existing species"); },
......
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