Added tests for fetch_factors_coded_for_by_gene() and fetch_factors_coded_for_by_transcript()

modules/t/regulatoryFactor.t

@@ -6,7 +6,7 @@ use Bio::EnsEMBL::RegulatoryFactor;
 
 BEGIN { $| = 1;
 	use Test;
-	plan tests => 7;
+	plan tests => 11;
 }
 
 my $verbose = 0;
@@ -42,3 +42,14 @@ ok($transcript->dbID() == 21716);
 $factor = $factor_adaptor->fetch_by_dbID(5);
 my $gene = $factor->coding_gene();
 ok($gene->dbID() == 18271);
+
+# test getting factors coded for by gene and transcript
+my $gene_adaptor = $dba->get_GeneAdaptor();
+my $gene = $gene_adaptor->fetch_by_dbID(18271);
+my @factors = @{$factor_adaptor->fetch_factors_coded_for_by_gene($gene)};
+ok($factors[0]->dbID() == 5);
+
+my $transcript_adaptor = $dba->get_TranscriptAdaptor();
+my $transcript = $transcript_adaptor->fetch_by_dbID(21717);
+my @factors = @{$factor_adaptor->fetch_factors_coded_for_by_transcript($transcript)};
+ok($factors[0]->dbID() == 2);