1
# -*-Perl-*- Test Harness script for Bioperl
2
# $Id: Pseudowise.t 15112 2008-12-08 18:12:38Z sendu $
10
test_begin(-tests => 21);
12
use_ok('Bio::Tools::Pseudowise');
16
my $inputfilename= test_input_file('pseudowise.out');
17
my $parser = Bio::Tools::Pseudowise->new(-file => $inputfilename);
19
while (my $gene= $parser->next_prediction){
23
my @e = $g->sub_SeqFeature;
25
is ($g->primary_tag, 'pseudogene');
26
is ($g->source_tag, 'pseudowise');
28
is(($g->get_tag_values('Synonymous'))[0],7);
29
is(($g->get_tag_values('Nonsynonymous'))[0],18);
30
is(($g->get_tag_values('Ka/Ks'))[0],2.57);
31
is(($g->get_tag_values('Unlikely'))[0],0);
32
is(($g->get_tag_values('Identical'))[0],5);
33
is(($g->get_tag_values('Stop'))[0],0);
34
is(($g->get_tag_values('Total codons'))[0],30);
35
is(($g->get_tag_values('Frameshift'))[0],0);
36
is(($g->get_tag_values('Intron'))[0],1);
41
is($e[0]->start, 163);