Skip to content
Snippets Groups Projects
Commit 097bcc10 authored by Kieron Taylor's avatar Kieron Taylor :angry:
Browse files

[ENSCORESW-2540] Remove hash-order dependent testing outcome and replace....

[ENSCORESW-2540] Remove hash-order dependent testing outcome and replace. Required for versions > perl 5.16
parent 964d28b5
No related branches found
No related tags found
No related merge requests found
......@@ -8,6 +8,7 @@ test_requires 'Test::Warnings';
test_requires 'Test::Differences';
test_requires 'Test::Exception';
test_requires 'Test::MockObject';
test_requires 'Test::Deep';
test_requires 'Test::More';
test_requires 'Devel::Peek';
test_requires 'Devel::Cycle';
......
......@@ -17,6 +17,7 @@ use strict;
use warnings;
use Test::More;
use Test::Warnings;
use Test::Deep;
use Bio::EnsEMBL::Test::MultiTestDB;
use Bio::EnsEMBL::SubSlicedFeature;
......@@ -56,8 +57,13 @@ foreach (@$exon_list) {
note($_->start);
note($_->end);
}
ok(scalar(@$exon_list) == 4, "Correct Exons for subsliced Gene");
is($exon_list->[0]->stable_id,'ENSE00001048819', "Correct Exon returned for subsliced Gene");
cmp_bag([map { $_->stable_id} @$exon_list] ,['ENSE00000661210',
'ENSE00001048819',
'ENSE00000859928',
'ENSE00000859927'],'Correct Exon IDs returned');
$fake_gene = Bio::EnsEMBL::SubSlicedFeature->new(-feature => $gene, -start => 1, -end => 2);
$transcript_list = $fake_gene->get_all_Transcripts;
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment