t/MiniMIMentry.t

   1 # -*-Perl-*- Test Harness script for Bioperl
   2 # $Id$
   3
   4 use strict;
   5
   6 BEGIN {
   7     use lib 't/lib';
   8     use BioperlTest;
   9
  10     test_begin(-tests => 15);
  11
  12     use_ok('Bio::Phenotype::OMIM::MiniMIMentry');
  13 }
  14
  15 my  $mm = Bio::Phenotype::OMIM::MiniMIMentry->new( -description  => "The central form of ...",
  16                                                    -created      => "Victor A. McKusick: 6/4/1986",
  17                                                    -contributors => "Kelly A. Przylepa - revised: 03/18/2002",
  18                                                    -edited       => "alopez: 06/03/1997" );
  19
  20 isa_ok( $mm, "Bio::Phenotype::OMIM::MiniMIMentry");
  21
  22 ok( $mm->to_string() );
  23
  24 is( $mm->description(), "The central form of ..." );
  25 is( $mm->created(), "Victor A. McKusick: 6/4/1986" );
  26 is( $mm->contributors(), "Kelly A. Przylepa - revised: 03/18/2002" );
  27 is( $mm->edited(), "alopez: 06/03/1997" );
  28
  29 $mm->init();
  30
  31 is( $mm->description(), "" );
  32 is( $mm->created(), "" );
  33 is( $mm->contributors(), "" );
  34 is( $mm->edited(), "" );
  35
  36
  37 is( $mm->description( "A" ), "A" );
  38 is( $mm->created( "B" ), "B" );
  39 is( $mm->contributors( "C" ), "C" );
  40 is( $mm->edited( "D" ), "D" );