diff --git a/modules/t/regulatoryFactor.t b/modules/t/regulatoryFactor.t index e36a8f63409e5c9c995c6822d7a21ad07e840064..d670ae932de5fc2aa908d6092cb7a06537fdfb05 100644 --- a/modules/t/regulatoryFactor.t +++ b/modules/t/regulatoryFactor.t @@ -1,5 +1,6 @@ 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);