diff --git a/modules/t/qtl.t b/modules/t/qtl.t index c65a1829f8b587ab46ee742274a33b473b4b5ce2..b6765e4514a989d2b637065c0daf2729d863d3dd 100644 --- a/modules/t/qtl.t +++ b/modules/t/qtl.t @@ -4,7 +4,7 @@ use warnings; BEGIN { $| = 1; use Test ; - plan tests => 4; + plan tests => 7; } use MultiTestDB; @@ -48,11 +48,16 @@ my $qf = $qtls->[0]->get_QtlFeature(); debug( join( "\n", %$qf )); ok( $qf->isa( "Bio::EnsEMBL::Map::QtlFeature" )); -my @result = $qf->transform(); +my $qtl = $qtls->[0]; +ok($qtl->flank_marker_1->isa('Bio::EnsEMBL::Map::Marker')); +ok($qtl->flank_marker_2->isa('Bio::EnsEMBL::Map::Marker')); -debug( join("\n", @result )); -ok( scalar( @result ) == 9 ); +my $synonyms = $qtl->get_synonyms; +ok($synonyms->{'rat genome database'} eq 'rqtl2'); +my @result = $qf->transform(); +debug( join("\n", @result )); +ok( scalar( @result ) == 9 );