t/Seq/DBLink.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 => 131);
  10
  11     use_ok('Bio::SeqIO');
  12 }
  13
  14 my @genbank_files = qw/BK000016-tpa.gbk ay116458.gb ay149291.gb NC_006346.gb ay007676.gb dq519393.gb P35527.gb/;
  15
  16 # bug 2152
  17 #------------------------------------
  18 my $verbose = test_debug();
  19 for my $in ( @genbank_files ) {
  20     my $infile = test_input_file($in);
  21     my $seqio = Bio::SeqIO->new(
  22                             -format  =>'genbank',
  23                             -verbose => $verbose,
  24                             -file    => $infile,
  25     );
  26     my $seq = $seqio->next_seq;
  27     my @values = $seq->annotation->get_Annotations('dblink');
  28     foreach my $value (@values) {
  29         my $output = $value->display_text;
  30         ok(defined $output, '"'.$output . '"');          # check value is not empty
  31         ok(index($output,'::') < 0       , 'no double colon'  );  # these tests seems silly
  32         ok( substr($output,-1) ne ':'    , 'no trailing colon');  #    but all have been known to occur
  33         ok(index($output,'  ') < 0       , 'no double space'  );  #
  34         my @parts = split(/:/,$output, 2);
  35         ok( scalar(@parts) == 2, 'dblink value is splittable');
  36     }
  37 }
  38 #------------------------------------