From a9cadf5c14e007552bb57f4026bd8af3154f6407 Mon Sep 17 00:00:00 2001
From: Graham McVicker <mcvicker@sanger.ac.uk>
Date: Wed, 26 May 2004 09:11:22 +0000
Subject: [PATCH] added test for new Translation::fetch_all_by_Transcript_list
method
---
modules/t/translation.t | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/modules/t/translation.t b/modules/t/translation.t
index 44b8329e60..789b62a582 100644
--- a/modules/t/translation.t
+++ b/modules/t/translation.t
@@ -8,7 +8,7 @@ use Bio::EnsEMBL::Exon;
BEGIN { $| = 1;
use Test;
- plan tests => 29;
+ plan tests => 30;
}
my $loaded = 0;
@@ -208,3 +208,12 @@ $tr = $tra->fetch_by_stable_id( "ENST00000217347" );
$tlseq = $tr->translate->seq();
ok( $tlseq !~ /^.UUU/ );
+
+
+
+# test the fetch_all_by_Transcript_list method
+my $tr2 = $tra->fetch_by_stable_id('ENST00000252021');
+
+my @tls = @{$ta->fetch_all_by_Transcript_list([$tr,$tr2])};
+
+ok(@tls == 2);
--
GitLab