diff --git a/modules/t/featurePair.t b/modules/t/featurePair.t index a5e874bd2b2effde2fa1d6a94186b9eeb8209e2d..1f6a041cf72dda3a95282dfa3cdf0a8045f93b7e 100644 --- a/modules/t/featurePair.t +++ b/modules/t/featurePair.t @@ -5,7 +5,7 @@ use lib 't'; BEGIN { $| = 1; use Test; - plan tests => 23; + plan tests => 34; } use TestUtils qw( debug test_getter_setter ); @@ -96,3 +96,23 @@ ok(test_getter_setter($fp, 'hspecies', 'Danio_rerio')); ok($fp->display_id eq $fp->hseqname()); + +# +# Test invert +# + +$fp->invert(); + +ok($fp->start == $hstart); +ok($fp->end == $hend); +ok($fp->strand == $hstrand); +ok($fp->hstart == $start); +ok($fp->hend == $end); +ok($fp->hstrand == $strand); + +ok($fp->seqname eq $hseqname); +ok($fp->hseqname eq $slice->name()); +ok(!defined($fp->slice())); + +ok($fp->species eq $hspecies); +ok($fp->hspecies eq $species);