From c06c2c8ff232ca4b162ee367a05639af9ac0f0c4 Mon Sep 17 00:00:00 2001
From: Glenn Proctor <gp1@sanger.ac.uk>
Date: Thu, 24 Mar 2005 15:18:37 +0000
Subject: [PATCH] *** empty log message ***
---
modules/t/regulatoryFeature.t | 3 ++-
modules/t/regulatoryFeatureAdaptor.t | 3 +++
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/modules/t/regulatoryFeature.t b/modules/t/regulatoryFeature.t
index 047fb2f0d5..c3a06f9e41 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 ce309df80a..99721f083e 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
--
GitLab