1
# -*-Perl-*- Test Harness script for Bioperl
2
# $Id: TreeIO.t 14580 2008-03-01 17:01:30Z cjfields $
10
test_begin(-tests => 4);
11
use_ok('Bio::TreeIO');
14
my $verbose = test_debug();
16
my $treeio = Bio::TreeIO->new(-verbose => $verbose,
17
-file => test_input_file('test.nhx'));
18
my $tree = $treeio->next_tree;
21
test_skip(-tests => 3, -requires_module => 'SVG::Graph');
22
my $FILE3 = test_output_file();
23
my $treeout3 = Bio::TreeIO->new(-format => 'svggraph',
26
eval {$treeout3->write_tree($tree);};