t/Tools/FootPrinter.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 => 27);
  10
  11         use_ok('Bio::Tools::FootPrinter');
  12 }
  13
  14 my $inputfilename= test_input_file('footprinter.out');
  15 my $parser = Bio::Tools::FootPrinter->new(-file => $inputfilename);
  16 my @sub;
  17 my @species = qw(TETRAODON CHICKEN MOUSE HAMSTER HUMAN PIG);
  18 while (my $feat = $parser->next_feature){
  19     is($feat->seq_id, shift @species);
  20     foreach my $sub ($feat->sub_SeqFeature){
  21       push @sub,$sub;
  22     }
  23 }
  24
  25 is $sub[0]->seq_id, 'TETRAODON-motif1';
  26 is $sub[0]->start,352;
  27 is $sub[0]->end,362;
  28 is $sub[0]->seq->seq,'tacaggatgca';
  29 is $sub[1]->seq_id, 'TETRAODON-motif2';
  30 is $sub[1]->start,363;
  31 is $sub[1]->end,373;
  32 is $sub[1]->seq->seq,'ccatatttgga';
  33
  34 is $sub[2]->seq_id, 'CHICKEN-motif1';
  35 is $sub[2]->start,363;
  36 is $sub[2]->end,373;
  37 is $sub[2]->seq->seq,'cacaggatgta';
  38
  39 is $sub[3]->seq_id, 'CHICKEN-motif2';
  40 is $sub[3]->start,376;
  41 is $sub[3]->end,386;
  42 is $sub[3]->seq->seq,'ccatataagga';
  43
  44 is $sub[4]->seq_id, 'MOUSE-motif1';
  45 is $sub[4]->start,234;
  46 is $sub[4]->end,243;
  47 is $sub[4]->seq->seq,'cacaggatgt';