t/Tree/RandomTreeFactory.t

   1 # -*-Perl-*- Test Harness script for Bioperl
   2 # $Id$
   3
   4 use strict;
   5
   6 BEGIN {
   7     use lib '.';
   8     use Bio::Root::Test;
   9
  10     test_begin(-tests => 5);
  11
  12         use_ok('Bio::Tree::RandomFactory');
  13     use_ok('Bio::TreeIO');
  14     use_ok('Bio::Tree::Statistics');
  15 }
  16
  17 my $FILE1 = test_output_file();
  18
  19 my $ssize = 5;
  20 my $factory = Bio::Tree::RandomFactory->new(-sample_size => $ssize);
  21 my $stats = Bio::Tree::Statistics->new();
  22
  23 my $tree = $factory->next_tree;
  24
  25 is($tree->get_nodes, ($ssize * 2 - 1));
  26
  27 my $treeio = Bio::TreeIO->new(-format => 'newick', -file => ">$FILE1");
  28
  29 $treeio->write_tree($tree);
  30 undef $treeio;
  31
  32 ok(-s $FILE1);