1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
# -*-Perl-*- Test Harness script for Bioperl
# $Id: AAReverseMutate.t 15112 2008-12-08 18:12:38Z sendu $
use strict;
BEGIN {
use lib '.';
use Bio::Root::Test;
test_begin(-tests => 16);
use_ok('Bio::Variation::AAReverseMutate');
}
my $obj = Bio::Variation::AAReverseMutate->new
('-aa_ori' => 'F',
'-aa_mut' => 'S'
);
ok defined $obj;
isa_ok($obj, 'Bio::Variation::AAReverseMutate');
is $obj->aa_ori, 'F';
is $obj->aa_mut, 'S';
my @points = $obj->each_Variant;
# F>S has two solutions
is scalar @points, 2;
$obj->codon_ori('ttc');
ok defined $obj;
#now there should be only one left
@points = $obj->each_Variant;
is scalar @points, 1;
$obj->codon_table(3);
is $obj->codon_table, 3;
#Check the returned object
my $rna = pop @points;
isa_ok($rna, 'Bio::Variation::RNAChange');
is $rna->length, 1;
is $rna->allele_ori->seq, 't';
is $rna->allele_mut->seq, 'c';
is $rna->codon_ori, 'ttc', "Codon_ori is |". $rna->codon_ori. "|";
is $rna->codon_pos, 2;
$obj->codon_table(11);
is $obj->codon_table, 11;
|
