t/gcg.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 => 4);
  11
  12         use_ok('Bio::SeqIO');
  13 }
  14
  15 my $verbose = test_debug();
  16
  17 # test DOS linefeeds in gcg parser
  18 my $str = Bio::SeqIO->new(-file => test_input_file('test_badlf.gcg'),
  19                                                                   -verbose => $verbose,
  20                                                                   -format => 'GCG');
  21 ok($str);
  22 my $seq = $str->next_seq();
  23 isa_ok ($seq, 'Bio::SeqI');
  24 is(length($seq->seq), $seq->length);
  25 print "Sequence 1 of 1 from GCG stream:\n", $seq->seq, "\n" if( $verbose);