From 487d244bef17411c420cc569feef68016678bbc3 Mon Sep 17 00:00:00 2001
From: Graham McVicker <mcvicker@sanger.ac.uk>
Date: Mon, 14 Apr 2003 09:19:30 +0000
Subject: [PATCH] removed tests for species methods
---
modules/t/gene.t | 8 ++------
modules/t/transcript.t | 8 +-------
2 files changed, 3 insertions(+), 13 deletions(-)
diff --git a/modules/t/gene.t b/modules/t/gene.t
index db2feacafb..e507e7708e 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 125e329f8f..503707c4fb 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");
--
GitLab