t/DrawTree.t

   1 # -*-Perl-*-
   2 ## Bioperl Test Harness Script for Modules
   3 ## $Id$
   4
   5 use strict;
   6
   7 BEGIN {
   8     use Bio::Root::Test;
   9     test_begin(-tests => 6);
  10         use_ok('Bio::Tools::Run::Phylo::Phylip::DrawTree');
  11         use_ok('Bio::TreeIO');
  12 }
  13
  14 SKIP: {
  15         my @params = ('-verbose' => 0,
  16                           'quiet'    => 1);
  17         my $treedraw = Bio::Tools::Run::Phylo::Phylip::DrawTree->new(@params);
  18         test_skip(-requires_executable => $treedraw,
  19               -tests => 4);
  20
  21         $treedraw->fontfile(test_input_file('fontfile'));
  22         my $file = $treedraw->draw_tree(test_input_file('treefile.example'));
  23         ok($file);
  24         ok(-e $file);
  25
  26         if( test_debug() ) {
  27                 `gs $file`;
  28         } else {
  29                 unlink($file);
  30         }
  31
  32         my $intree = Bio::TreeIO->new(-file => test_input_file('treefile.example'));
  33
  34         $file = $treedraw->draw_tree(test_input_file('treefile.example'));
  35         ok($file);
  36         ok(-e $file);
  37
  38         if( test_debug() ) {
  39                 `gs $file`;
  40         } else {
  41                 unlink($file);
  42         }
  43 }