diff --git a/modules/t/gene.t b/modules/t/gene.t
index c2de41b4c7370cde0a05d4d560b8f4763a92a6f5..a208f8fa69832205d538df6ed492383f06176900 100644
--- a/modules/t/gene.t
+++ b/modules/t/gene.t
@@ -3,7 +3,7 @@ use warnings;
 
 BEGIN { $| = 1;
 	use Test;
-	plan tests => 65;
+	plan tests => 66;
 }
 
 use Bio::EnsEMBL::Test::MultiTestDB;
@@ -628,3 +628,9 @@ $multi->restore();
 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 regualtory factors
+$gene = $ga->fetch_by_dbID(18271);
+my @factors = @{$gene->fetch_coded_for_regulatory_factors()};
+ok($factors[0]->dbID() == 5);
+
diff --git a/modules/t/transcript.t b/modules/t/transcript.t
index 29a0c87d0063872a385e923643d52fd0d2c2367d..be17541678af1b35948756111470498878b99f1e 100644
--- a/modules/t/transcript.t
+++ b/modules/t/transcript.t
@@ -4,7 +4,7 @@ use vars qw( $verbose );
 
 BEGIN { $| = 1;
 	use Test;
-	plan tests => 138;
+	plan tests => 139;
 }
 
 use Bio::EnsEMBL::Test::MultiTestDB;
@@ -609,7 +609,11 @@ 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);