Added tests for coding_transcript() and coding_gene()

modules/t/regulatoryFactor.t

 use strict;
 use Bio::EnsEMBL::Test::TestUtils;
+use Bio::EnsEMBL::Test::MultiTestDB;
 
 use Bio::EnsEMBL::RegulatoryFactor;
 
@@ -10,6 +11,13 @@ BEGIN { $| = 1;
 
 my $verbose = 0;
 
+# get a core DBAdaptor and a RegualtoryFactorAdaptor
+#
+my $multi = Bio::EnsEMBL::Test::MultiTestDB->new;
+my $dba = $multi->get_DBAdaptor("core");
+my $factor_adaptor = $dba->get_RegulatoryFactorAdaptor();
+
+
 #
 # Test constructor
 #
@@ -25,3 +33,12 @@ ok($rm->type eq 'promoter');
 
 ok(test_getter_setter($rm,'name','Fred'));
 ok(test_getter_setter($rm,'type','miRNA_target'));
+
+
+# test coding_transcript & gene
+my $factor = $factor_adaptor->fetch_by_dbID(1);
+my $transcript = $factor->coding_transcript();
+ok($transcript->dbID() == 21716);
+$factor = $factor_adaptor->fetch_by_dbID(5);
+my $gene = $factor->coding_gene();
+ok($gene->dbID() == 18271);