Commit 9eb72a87 authored by Daniel Rios's avatar Daniel Rios
Browse files

tested 2 new methods: to get db_name for an external_db_id and fetch...

tested 2 new methods: to get db_name for an external_db_id and fetch db_entries for a source (db_name)
parent e4b64e87
......@@ -3,7 +3,7 @@ use warnings;
BEGIN { $| = 1;
use Test;
plan tests => 59;
plan tests => 61;
}
use Bio::EnsEMBL::Test::MultiTestDB;
......@@ -408,7 +408,13 @@ ok(@$dbes == 1);
$dbes = $gene->get_all_DBLinks(undef,"RUBBISH");
ok(@$dbes == 0);
# test fetch_all_by_source
$xrefs = $dbEntryAdaptor->fetch_all_by_source("%Uniprot%");
ok(@{$xrefs} == 23); #test 60
my $db_name = $dbEntryAdaptor->get_db_name_from_external_db_id(4100);
ok($db_name eq 'UniGene');
sub print_dbEntries {
my $dbes = shift;
......
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