t/Seq/LargeLocatableSeq.t

   1 # -*-Perl-*- Test Harness script for Bioperl
   2 # $Id$
   3
   4 use strict;
   5
   6 BEGIN {
   7     use Bio::Root::Test;
   8
   9     test_begin(-tests => 8);
  10
  11         use_ok('Bio::Seq::LargeLocatableSeq');
  12 }
  13
  14 ok my $llseq  = Bio::Seq::LargeLocatableSeq->new(-seq => 'at-cg',
  15                                                  -display_id => 'seq1');
  16
  17 isa_ok $llseq, "Bio::Seq::LargeSeqI";
  18
  19 is $llseq->seq, 'at-cg';
  20 is $llseq->add_sequence_as_string('atcc'), 9;
  21
  22 is $llseq->start, 1;
  23
  24 is $llseq->end, 8;
  25 is $llseq->length, 9;