diff --git a/modules/t/regulatoryFeature.t b/modules/t/regulatoryFeature.t index 047fb2f0d557576ee3659ca3e7d877843c98290c..c3a06f9e417d5a852c58517c781f813d81b0f6c5 100644 --- a/modules/t/regulatoryFeature.t +++ b/modules/t/regulatoryFeature.t @@ -62,7 +62,8 @@ ok($rf->adaptor->isa('Bio::EnsEMBL::DBSQL::RegulatoryFeatureAdaptor')); my $rf1 = $rfa->fetch_by_dbID(1); ok(@{$rf1->regulated_transcripts()} == 3); -# 9 check get_transcripts_regulated_by_same_motif +# 10 check get_transcripts_regulated_by_same_motif ok(@{$rf1->transcripts_regulated_by_same_motif()} == 3); + diff --git a/modules/t/regulatoryFeatureAdaptor.t b/modules/t/regulatoryFeatureAdaptor.t index ce309df80ae0a72e16ba118188341ac2dabf7644..99721f083e2e490e06be3e60e9b0b77cb4bda4e6 100644 --- a/modules/t/regulatoryFeatureAdaptor.t +++ b/modules/t/regulatoryFeatureAdaptor.t @@ -41,6 +41,9 @@ ok(@{$rfa->fetch_all_by_motif($motif)} == 10); my $ids = $rfa->list_dbIDs(); ok (@{$ids}); +# test fetch_all_by_transcript +my $transcript = $db->get_TranscriptAdaptor()->fetch_by_dbID(21740); +ok(@{$rfa->fetch_all_by_transcript($transcript)} == 13); # Test store