diff --git a/modules/t/gene.t b/modules/t/gene.t index db2feacafb7086c3776be75201efebce5cd74d1c..e507e7708e4237307de5ed489ccf35a22cb8986a 100644 --- a/modules/t/gene.t +++ b/modules/t/gene.t @@ -4,7 +4,7 @@ use warnings; BEGIN { $| = 1; use Test; - plan tests => 37; + plan tests => 36; } use MultiTestDB; @@ -50,17 +50,13 @@ ok( $gene->start() == 30735607 ); debug( "Gene end: ".$gene->end ); ok( $gene->end() == 30815178 ); -my $species = $gene->species()->binomial(); -debug( "Species: ".$species ); -ok( $species eq "Homo sapiens" ); - debug( "Gene external name: " . $gene->external_name ); ok( $gene->external_name eq "Q9H466"); debug( "Gene external dbname: " . $gene->external_db ); ok( $gene->external_db eq "SPTREMBL"); -debug( "Gene display xref id: " . $gene->display_xref ); +debug( "Gene display xref id: " . $gene->display_xref->dbID ); ok( $gene->display_xref->dbID() == 128324); diff --git a/modules/t/transcript.t b/modules/t/transcript.t index 125e329f8f10bc162f4d878878b96e7fc59308c1..503707c4fb01022ce0cdcabc29f74fca4605c245 100644 --- a/modules/t/transcript.t +++ b/modules/t/transcript.t @@ -5,7 +5,7 @@ use vars qw( $verbose ); BEGIN { $| = 1; use Test; - plan tests => 30; + plan tests => 29; } use MultiTestDB; @@ -68,12 +68,6 @@ my $tr = $ta->fetch_by_stable_id( "ENST00000217347" ); ok( $tr ); -my $species = $tr->species()->binomial(); - -debug( "Species: ".$species ); -ok( $species eq "Homo sapiens" ); - - debug ( "External transcript name: " . $tr->external_name ); ok ( $tr->external_name eq "MAPRE1");