2
## Bioperl Test Harness Script for Modules
8
# to handle systems with no installed Test module
9
# we include the t dir (where a copy of Test.pm is located)
12
eval { require Test; };
21
use Bio::Tree::AlleleNode;
25
my $node1 = new Bio::Tree::Node();
26
my $node2 = new Bio::Tree::Node();
27
ok($node1->is_Leaf() );
28
ok($node1->ancestor, undef);
30
my $pnode = new Bio::Tree::Node();
31
$pnode->add_Descendent($node1);
32
ok($node1->ancestor, $pnode);
33
$pnode->add_Descendent($node2);
34
ok($node2->ancestor, $pnode);
36
ok(! $pnode->is_Leaf);
38
my $phylo_node = new Bio::Tree::Node(-bootstrap => 0.25,
41
$node1->add_Descendent($phylo_node);
42
ok(! $node1->is_Leaf);
43
ok($phylo_node->ancestor, $node1);
44
ok($phylo_node->id, 'ADH_BOV');
45
ok($phylo_node->bootstrap, 0.25);
46
ok($phylo_node->description, 'Taxon 1');
48
ok $phylo_node->ancestor($node2), $node2;
50
ok my @descs = $node2->each_Descendent, 1;
51
ok $descs[0], $phylo_node;
53
my $allele_node = new Bio::Tree::AlleleNode();
54
$allele_node->add_Genotype(new Bio::PopGen::Genotype(-marker_name => 'm1',
56
$allele_node->add_Genotype(new Bio::PopGen::Genotype(-marker_name => 'm3',
58
$allele_node->add_Genotype(new Bio::PopGen::Genotype(-marker_name => 'm4',
61
my @mkrs = $allele_node->get_marker_names;
64
my ($m3) = $allele_node->get_Genotypes(-marker => 'm3');
65
ok($m3->get_Alleles, 2);
66
my ($a1) = $allele_node->get_Genotypes(-marker => 'm1')->get_Alleles;
69
my ($a2,$a3) = $allele_node->get_Genotypes(-marker => 'm4')->get_Alleles;