From bd12a99c7ba73bdbb0c899f8e37058c894b85414 Mon Sep 17 00:00:00 2001
From: Daniel Rios <dr2@sanger.ac.uk>
Date: Tue, 22 Jul 2008 15:33:02 +0000
Subject: [PATCH] added tests to check canonical_transcript information in gene

---
 modules/t/gene.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/modules/t/gene.t b/modules/t/gene.t
index 9b3050b768..188913b666 100644
--- a/modules/t/gene.t
+++ b/modules/t/gene.t
@@ -3,7 +3,7 @@ use warnings;
 
 BEGIN { $| = 1;
 	use Test;
-	plan tests => 84;
+	plan tests => 86;
 }
 
 use Bio::EnsEMBL::Test::MultiTestDB;
@@ -751,3 +751,8 @@ $new_gene->remove_unconventional_transcript_associations();
 
 my $utaa = $db->get_UnconventionalTranscriptAssociationAdaptor();
 ok(@{$utaa->fetch_all_by_gene($new_gene)} == 0);
+
+#testing canonical_transcript information
+$new_gene = $ga->fetch_by_dbID(18256);
+ok($new_gene->canonical_transcript->dbID == 21716);  #test 85
+ok($new_gene->canonical_annotation eq 'longest transcript in gene'); #test 86
-- 
GitLab