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

removed regulatory calls

parent 56f2806c
......@@ -3,7 +3,7 @@ use warnings;
BEGIN { $| = 1;
use Test;
plan tests => 86;
plan tests => 84;
}
use Bio::EnsEMBL::Test::MultiTestDB;
......@@ -633,15 +633,6 @@ ok($dbe_id && $dbe_id == $dbe->dbID());
$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
......
......@@ -4,7 +4,7 @@ use vars qw( $verbose );
BEGIN { $| = 1;
use Test;
plan tests => 152;
plan tests => 151;
}
use Bio::EnsEMBL::Test::MultiTestDB;
......@@ -699,11 +699,6 @@ sub test_trans_mapper_edits {
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;
# 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