Commit 077ec5b4 authored by Ian Longden's avatar Ian Longden
Browse files

removed regulatory calls

parent 56f2806c
...@@ -3,7 +3,7 @@ use warnings; ...@@ -3,7 +3,7 @@ use warnings;
BEGIN { $| = 1; BEGIN { $| = 1;
use Test; use Test;
plan tests => 86; plan tests => 84;
} }
use Bio::EnsEMBL::Test::MultiTestDB; use Bio::EnsEMBL::Test::MultiTestDB;
...@@ -633,15 +633,6 @@ ok($dbe_id && $dbe_id == $dbe->dbID()); ...@@ -633,15 +633,6 @@ ok($dbe_id && $dbe_id == $dbe->dbID());
$multi->restore(); $multi->restore();
# test regulatory feature retrieval
my $rf_gene = $ga->fetch_by_dbID(18256);
#ok(@{$rf_gene->get_all_regulatory_features()} == 1); # non-recursive
ok(@{$rf_gene->get_all_regulatory_features(1)} == 12); # recursive
# test getting coded-for regulatory factors
$gene = $ga->fetch_by_dbID(18271);
my @factors = @{$gene->fetch_coded_for_regulatory_factors()};
ok($factors[0]->dbID() == 5);
# #
# tests for multiple versions of genes in a database # tests for multiple versions of genes in a database
......
...@@ -4,7 +4,7 @@ use vars qw( $verbose ); ...@@ -4,7 +4,7 @@ use vars qw( $verbose );
BEGIN { $| = 1; BEGIN { $| = 1;
use Test; use Test;
plan tests => 152; plan tests => 151;
} }
use Bio::EnsEMBL::Test::MultiTestDB; use Bio::EnsEMBL::Test::MultiTestDB;
...@@ -699,11 +699,6 @@ sub test_trans_mapper_edits { ...@@ -699,11 +699,6 @@ sub test_trans_mapper_edits {
print_coords(\@coords); print_coords(\@coords);
} }
# test getting coded-for regualtory factors
my $transcript_adaptor = $db->get_TranscriptAdaptor();
my $transcript = $transcript_adaptor->fetch_by_dbID(21717);
my @factors = @{$transcript->fetch_coded_for_regulatory_factors()};
ok($factors[0]->dbID() == 2);
#sleep 10; #sleep 10;
# test fetching by supporting evidence # test fetching by supporting evidence
......
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