t/DrawTree.t

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