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