t/Phenotype/OMIMentryAllelicVariant.t

   1 # -*-Perl-*- Test Harness script for Bioperl
   2 # $Id$
   3
   4 use strict;
   5
   6 BEGIN {
   7     use lib '.';
   8     use Bio::Root::Test;
   9
  10     test_begin(-tests => 27);
  11
  12     use_ok 'Bio::Phenotype::OMIM::OMIMentryAllelicVariant';
  13 }
  14
  15 my $av = Bio::Phenotype::OMIM::OMIMentryAllelicVariant->new( -number               => ".0001",
  16                                                              -title                => "ALCOHOL INTOLERANCE",
  17                                                              -symbol               => "ALDH2*2",
  18                                                              -description          => "The ALDH2*2-encoded ...",
  19                                                              -aa_ori               => "GLU",
  20                                                              -aa_mut               => "LYS",
  21                                                              -position             => 487,
  22                                                              -additional_mutations => "IVS4DS, G-A, +1" );
  23
  24 isa_ok( $av, "Bio::Phenotype::OMIM::OMIMentryAllelicVariant" );
  25
  26 ok( $av->to_string() );
  27
  28 is( $av->number(), ".0001" );
  29 is( $av->title(), "ALCOHOL INTOLERANCE" );
  30 is( $av->symbol(), "ALDH2*2" );
  31 is( $av->description(), "The ALDH2*2-encoded ..." );
  32 is( $av->aa_ori(), "GLU" );
  33 is( $av->aa_mut(), "LYS" );
  34 is( $av->position(), 487 );
  35 is( $av->additional_mutations(), "IVS4DS, G-A, +1" );
  36
  37 $av->init();
  38
  39 is( $av->number(), "" );
  40 is( $av->title(), "" );
  41 is( $av->symbol(), "" );
  42 is( $av->description(), "" );
  43 is( $av->aa_ori(), "" );
  44 is( $av->aa_mut(), "" );
  45 is( $av->position(), "" );
  46 is( $av->additional_mutations(), "" );
  47
  48 is( $av->number( "A" ), "A" );
  49 is( $av->title( "B" ), "B" );
  50 is( $av->symbol( "C" ), "C" );
  51 is( $av->description( "D" ), "D" );
  52 is( $av->aa_ori( "E" ), "E" );
  53 is( $av->aa_mut( "F" ), "F" );
  54 is( $av->position( "G" ), "G" );
  55 is( $av->additional_mutations( "H" ), "H" );