t/LargeLocatableSeq.t

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