#-*-Perl-*-

use strict;
use warnings;
use Path::Class;
use File::Share ':all';
use Data::Dumper;
use FindBin qw($Bin);
use constant TEST_COUNT => 2;

use lib "$Bin/../lib", "$Bin/../blib/lib", "$Bin/../blib/arch";

BEGIN {
    # include Test.pm from 't' dir in case itis not installed
    eval { require Test::More; };
    if ($@) {
      use lib 't';
    }
    use Test::More tests => TEST_COUNT;
}

use Bio::ViennaNGS::FeatureInterval;

{
  my $chr = "chrX";
  my $start = 99999;
  my $end = 123456;
  my @arg = (chromosome => $chr, start => $start, end => $end);
  my $FI = new_ok('Bio::ViennaNGS::FeatureInterval'=> \@arg);
  ok($FI->_length == 23457, 'length of Featureinterval');
}