diff --git a/modules/t/exon.t b/modules/t/exon.t index b358c2119e08d0c03e0475719e784c3f918d6668..88abfb9a1b3b217af055df7d38437d612a6a5683 100644 --- a/modules/t/exon.t +++ b/modules/t/exon.t @@ -3,7 +3,7 @@ use strict; BEGIN { $| = 1; use Test ; - plan tests => 22; + plan tests => 24; } my $loaded = 0; @@ -167,3 +167,14 @@ ok($hashkey eq $exon->slice->name . '-' . $exon->start . '-' . $multi->restore(); + +# regression test +# make sure that sequence fetching and caching is not broken +$exon->stable_id('TestID'); +my $first_seq = $exon->seq(); +my $second_seq = $exon->seq(); + +ok($first_seq->seq() && $first_seq->seq() eq $second_seq->seq()); +ok($first_seq->display_id() && $first_seq->display_id() eq $second_seq->display_id()); + +