2
## Bioperl Test Harness Script for Modules
3
##$Id: OddCodes.t,v 1.5 2001/10/22 08:22:58 heikki Exp $
8
# to handle systems with no installed Test module
9
# we include the t dir (where a copy of Test.pm is located)
11
eval { require Test; };
20
use Bio::Tools::OddCodes;
23
my ($seqobj, $oddcode_obj);
25
$seqobj = Bio::PrimarySeq->new('-seq'=>'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
26
'-alphabet'=>'protein',
28
$oddcode_obj = Bio::Tools::OddCodes->new('-seq' => $seqobj);
30
ok defined($oddcode_obj) && ref($oddcode_obj) &&
31
$oddcode_obj->isa('Bio::Tools::OddCodes');
33
ok ${$oddcode_obj->structural()}, 'ABAEEIAEIJEIIEOAEEAAUIAXAZ';
34
ok ${$oddcode_obj->chemical()}, 'LBSAARLCLJCLSMOIMCHHULRXRZ';
35
ok ${$oddcode_obj->functional()}, 'HBPAAHPCHJCHHPOHPCPPUHHXPZ';
36
ok ${$oddcode_obj->charge()}, 'NBNAANNCNJCNNNONNCNNUNNXNZ';
37
ok ${$oddcode_obj->hydrophobic()}, 'IBOOOIOOIJOIIOOIOOOOUIIXOZ';
38
ok ${$oddcode_obj->Dayhoff()}, 'CBADDGCEFJEFFDOCDECCUFGXGZ';
39
ok ${$oddcode_obj->Sneath()}, 'CBEFFHCHAJGADDOCDGEEUAHXHZ';
40
ok ${$oddcode_obj->Stanfel()}, 'ABACCDAEAJEAACOACEAAUADXDZ';