Skip to content
Snippets Groups Projects
Commit e870f362 authored by Glenn Proctor's avatar Glenn Proctor
Browse files

Added test for new list_dbIDs method.

parent b6fe4d74
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@ use lib 't';
BEGIN { $| = 1;
use Test;
plan tests => 33;
plan tests => 34;
}
use MultiTestDB;
......@@ -225,3 +225,9 @@ my $stable_id = 'AL031658.11.1.162976.122801.143660';
$pt = $pta->fetch_by_stable_id($stable_id);
ok($pt->stable_id eq $stable_id);
# 34 list_dbIDs
my $ids = $pta->list_dbIDs();
ok (@{$ids});
......@@ -2,7 +2,7 @@ use lib 't';
BEGIN { $| = 1;
use Test;
plan tests => 11;
plan tests => 12;
}
......@@ -83,6 +83,11 @@ my $r = $repeat_f_ad->fetch_by_dbID($dbID);
ok($r->dbID == $dbID && $r->start == 26 && $r->hend == 45);
# list_dbIDs
my $ids = $repeat_f_ad->list_dbIDs();
ok (@{$ids});
$multi->restore('core', 'repeat_feature');
......@@ -3,7 +3,7 @@ use TestUtils qw(test_getter_setter);
BEGIN { $| = 1;
use Test;
plan tests => 9;
plan tests => 10;
}
use MultiTestDB;
......@@ -75,4 +75,8 @@ ok($sf);
# 9 check adaptor attaching
#
$sf->adaptor($sfa);
ok($sf->adaptor->isa('Bio::EnsEMBL::DBSQL::SimpleFeatureAdaptor'));
\ No newline at end of file
ok($sf->adaptor->isa('Bio::EnsEMBL::DBSQL::SimpleFeatureAdaptor'));
# list_dbIDs
my $ids = $sfa->list_dbIDs();
ok (@{$ids});
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