1
# -*-Perl-*- Test Harness script for Bioperl
2
# $Id: Correlate.t 15112 2008-12-08 18:12:38Z sendu $
9
test_begin(-tests => 17);
11
use_ok('Bio::Phenotype::Correlate');
12
use_ok('Bio::Species');
15
my $mouse = Bio::Species->new();
17
$mouse->classification( qw( musculus Mus ) );
19
my $co = Bio::Phenotype::Correlate->new( -name => "4(Tas1r3)",
20
-description => "mouse correlate of human phenotype MIM 605865",
23
-comment => "type=homolog is putative" );
25
isa_ok($co, "Bio::Phenotype::Correlate" );
27
ok( $co->to_string() );
29
is( $co->name(), "4(Tas1r3)" );
30
is( $co->description(), "mouse correlate of human phenotype MIM 605865" );
31
is( $co->species()->binomial(), "Mus musculus" );
32
is( $co->type(), "homolog" );
33
is( $co->comment(), "type=homolog is putative" );
37
is( $co->name(), "" );
38
is( $co->description(), "" );
39
is( $co->type(), "" );
40
is( $co->comment(), "" );
42
is( $co->name( "A" ), "A" );
43
is( $co->description( "B" ), "B" );
44
is( $co->type( "C" ), "C" );
45
is( $co->comment( "D" ), "D" );