use_ok(
$_
)
for
qw(
Bio::Community::Member
)
;
my
(
$member
,
$taxon
,
$sequence1
,
$sequence2
);
ok
$member
= Bio::Community::Member->new( );
isa_ok
$member
,
'Bio::Root::RootI'
;
isa_ok
$member
,
'Bio::Community::Member'
;
is
$member
->id,
'bc1'
,
'ID'
;
ok
$member
= Bio::Community::Member->new(
-id
=> 0 );
is
$member
->id, 0;
ok
$member
= Bio::Community::Member->new(
-id
=>
'asdf'
);
is
$member
->id,
'asdf'
;
ok
$member
->id(
'qwer'
);
is
$member
->id,
'qwer'
;
ok
$member
= Bio::Community::Member->new( );
is
$member
->id,
'bc2'
;
ok
$member
= Bio::Community::Member->new( );
is
$member
->id,
'bc3'
;
ok
$member
= Bio::Community::Member->new(
-id
=>
'bc9'
),
'Restricted IDs'
;
is
$member
->id,
'bc9'
;
ok
$member
= Bio::Community::Member->new( );
is
$member
->id,
'bc10'
;
warning_like {
$member
= Bio::Community::Member->new(
-id
=>
'bc10'
)}
qr/ID might not be unique/
i;
is
$member
->id,
'bc10'
;
can_ok
$member
,
'_auto_id'
;
ok
$member
->_auto_id;
is
$member
->id,
'bc11'
;
ok
$member
= Bio::Community::Member->new(
-desc
=>
'H. sapiens'
),
'Description'
;
is
$member
->desc(),
'H. sapiens'
;
ok
$member
->desc(
'mouse'
);
is
$member
->desc(),
'mouse'
;
ok
$member
= Bio::Community::Member->new( );
is
$member
->desc,
''
;
$taxon
= Bio::Taxon->new(
-name
=>
'some_taxon'
);
ok
$member
= Bio::Community::Member->new(
-taxon
=>
$taxon
),
'Taxon'
;
is
$member
->taxon(),
$taxon
;
$taxon
= Bio::Taxon->new(
-name
=>
'some_other_taxon'
);
ok
$member
->taxon(
$taxon
);
is
$member
->taxon(),
$taxon
;
ok
$member
= Bio::Community::Member->new( );
is
$member
->taxon,
undef
;
$sequence1
= Bio::PrimarySeq->new(
-seq
=>
'AACGT'
);
$sequence2
= Bio::PrimarySeq->new(
-seq
=>
'AACGAAAAA'
);
ok
$member
= Bio::Community::Member->new(
-seqs
=> [
$sequence1
,
$sequence2
] ),
'Sequences'
;
is_deeply
$member
->seqs(), [
$sequence1
,
$sequence2
];
$sequence1
= Bio::PrimarySeq->new(
-seq
=>
'AACGAAAAA'
);
ok
$member
->seqs([
$sequence1
]);
is_deeply
$member
->seqs(), [
$sequence1
];
ok
$member
= Bio::Community::Member->new( );
is_deeply
$member
->seqs, [];
ok
$member
= Bio::Community::Member->new(
-weights
=> [ 0.1, 3 ] ),
'Weights'
;
is_deeply
$member
->weights(), [ 0.1, 3 ];
ok
$member
->weights([4124]);
is_deeply
$member
->weights(), [4124];
ok
$member
= Bio::Community::Member->new( );
is_deeply
$member
->weights, [ 1 ];
done_testing();
exit
;