1
# -*-Perl-*- Test Harness script for Bioperl
2
# $Id: MiniMIMentry.t 15112 2008-12-08 18:12:38Z sendu $
10
test_begin(-tests => 15);
12
use_ok('Bio::Phenotype::OMIM::MiniMIMentry');
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" );
20
isa_ok( $mm, "Bio::Phenotype::OMIM::MiniMIMentry");
22
ok( $mm->to_string() );
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" );
31
is( $mm->description(), "" );
32
is( $mm->created(), "" );
33
is( $mm->contributors(), "" );
34
is( $mm->edited(), "" );
37
is( $mm->description( "A" ), "A" );
38
is( $mm->created( "B" ), "B" );
39
is( $mm->contributors( "C" ), "C" );
40
is( $mm->edited( "D" ), "D" );