diff --git a/modules/t/translation.t b/modules/t/translation.t index 44b8329e60891b284bf569e2ebdabd5e3262f26b..789b62a582631c803f91ffa7a1531fce5240082f 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);