t/Genomewise.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 => 21);
  11
  12     use_ok('Bio::Tools::Genomewise');
  13 }
  14
  15 my $inputfilename = test_input_file("genomewise.out");
  16 my $parser = Bio::Tools::Genomewise->new(-file => $inputfilename);
  17 my @gene;
  18 while (my $gene= $parser->next_prediction){
  19     push @gene, $gene;
  20 }
  21 my @t = $gene[0]->transcripts;
  22 my @e = $t[0]->exons;
  23
  24 is ($t[0]->source_tag, 'genomewise');
  25 is ($e[0]->source_tag, 'genomewise');
  26 is ($t[0]->primary_tag, 'transcript');
  27 is ($e[0]->primary_tag, 'exon');
  28
  29 is (scalar($t[0]->exons), 5);
  30 is ($t[0]->start, 4761);
  31 is ($t[0]->end, 6713);
  32 is ($e[0]->start,4761);
  33 is ($e[0]->end, 4874);
  34 my ($phase) = $e[0]->each_tag_value('phase');
  35 is ($phase,0);
  36
  37 open(FH,$inputfilename);
  38 $parser = Bio::Tools::Genomewise->new(-fh=>\*FH);
  39 while (my $gene= $parser->next_prediction){
  40     push @gene, $gene;
  41 }
  42 @t = $gene[1]->transcripts;
  43 @e = $t[0]->exons;
  44
  45 is ($t[0]->source_tag, 'genomewise');
  46 is ($e[0]->source_tag, 'genomewise');
  47 is ($t[0]->primary_tag, 'transcript');
  48 is ($e[0]->primary_tag, 'exon');
  49
  50 is (scalar($t[0]->exons), 3);
  51 is ($t[0]->start, 9862);
  52 is ($t[0]->end, 10316);
  53 is ($e[1]->start,10024);
  54 is ($e[1]->end, 10211);
  55
  56 ($phase) = $e[2]->each_tag_value('phase');
  57 is ($phase,2);