2 ## Bioperl Test Harness Script for Modules
8 $DEBUG = $ENV{'BIOPERLDEBUG'} || 0;
10 eval { require Test; };
17 plan tests => $NTESTS;
20 use Bio::Tools::Run::Phylo::Phylip::DrawTree;
24 for ( $Test::ntest..$NTESTS ) {
25 skip("drawtree not found. Skipping.",1);
29 my @params = ('-verbose' => 0,
31 my $treedraw = Bio::Tools::Run::Phylo::Phylip::DrawTree->new(@params);
32 unless($treedraw->executable){
33 warn("drawgram program not found. Skipping tests $Test::ntest to $NTESTS.\n");
37 $treedraw->fontfile(Bio::Root::IO->catfile(qw(t data fontfile)));
38 my $file = $treedraw->draw_tree(Bio::Root::IO->catfile(qw(t data treefile.example)));
48 my $intree = new Bio::TreeIO(-file => Bio::Root::IO->catfile(qw(t data treefile.example)));
50 $file = $treedraw->draw_tree(Bio::Root::IO->catfile(qw(t data