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
|
# -*-Perl-*- Test Harness script for Bioperl
# $Id: RandomTreeFactory.t 15112 2008-12-08 18:12:38Z sendu $
use strict;
BEGIN {
use lib '.';
use Bio::Root::Test;
test_begin(-tests => 5);
use_ok('Bio::Tree::RandomFactory');
use_ok('Bio::TreeIO');
use_ok('Bio::Tree::Statistics');
}
my $FILE1 = test_output_file();
my $ssize = 5;
my $factory = Bio::Tree::RandomFactory->new(-sample_size => $ssize);
my $stats = Bio::Tree::Statistics->new();
my $tree = $factory->next_tree;
is($tree->get_nodes, ($ssize * 2 - 1));
my $treeio = Bio::TreeIO->new(-format => 'newick', -file => ">$FILE1");
$treeio->write_tree($tree);
undef $treeio;
ok(-s $FILE1);
|
