Updated tests for external_name and external_db.

modules/t/transcript.t

@@ -5,7 +5,7 @@ use vars qw( $verbose );
 
 BEGIN { $| = 1;  
 	use Test;
-	plan tests => 24;
+	plan tests => 26;
 }
 
 use MultiTestDB;
@@ -74,6 +74,13 @@ debug( "Species: ".$species );
 ok( $species eq "Homo sapiens" );
 
 
+debug ( "External transcript name: " . $tr->external_name );
+ok ( $tr->external_name eq "MAPRE1"); 
+
+debug ( "External transcript dbname: " . $tr->external_db );
+ok ( $tr->external_db eq 'HUGO' );
+
+
 ok( test_getter_setter( $tr, "dbID", 100000 ));
 ok( test_getter_setter( $tr, "type", "NOVEL" ));
 ok( $tr->translation->isa( "Bio::EnsEMBL::Translation" ));