t/SeqTools/OddCodes.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 => 11);
  10
  11         use_ok('Bio::PrimarySeq');
  12         use_ok('Bio::Tools::OddCodes');
  13 }
  14
  15 my ($seqobj, $oddcode_obj);
  16
  17 $seqobj = Bio::PrimarySeq->new('-seq'=>'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
  18                                '-alphabet'=>'protein',
  19                                '-id'=>'test');
  20 $oddcode_obj  =  Bio::Tools::OddCodes->new('-seq' => $seqobj);
  21
  22 isa_ok $oddcode_obj, 'Bio::Tools::OddCodes';
  23
  24 is ${$oddcode_obj->structural()}, 'ABAEEIAEIJEIIEOAEEAAUIAXAZ';
  25 is ${$oddcode_obj->chemical()}, 'LBSAARLCLJCLSMOIMCHHULRXRZ';
  26 is ${$oddcode_obj->functional()}, 'HBPAAHPCHJCHHPOHPCPPUHHXPZ';
  27 is ${$oddcode_obj->charge()}, 'NBNAANNCNJCNNNONNCNNUNNXNZ';
  28 is ${$oddcode_obj->hydrophobic()}, 'IBOOOIOOIJOIIOOIOOOOUIIXOZ';
  29 is ${$oddcode_obj->Dayhoff()}, 'CBADDGCEFJEFFDOCDECCUFGXGZ';
  30 is ${$oddcode_obj->Sneath()}, 'CBEFFHCHAJGADDOCDGEEUAHXHZ';
  31 is ${$oddcode_obj->Stanfel()}, 'ABACCDAEAJEAACOACEAAUADXDZ';