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     eval { require Test; };
  11     if( $@ ) {
  12         use lib 't';
  13     }
  14     use Test;
  15     use vars qw($NTESTS);
  16     $NTESTS = 4;
  17     plan tests => $NTESTS;
  18 }
  19
  20 use Bio::Tools::Run::Phylo::Phylip::DrawTree;
  21 use Bio::TreeIO;
  22
  23 END {
  24     for ( $Test::ntest..$NTESTS ) {
  25         skip("drawtree not found. Skipping.",1);
  26     }
  27 }
  28
  29 my @params = ('-verbose' => 0,
  30               'quiet'    => 1);
  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");
  34     exit 0;
  35 }
  36
  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)));
  39 ok($file);
  40 ok(-e $file);
  41
  42 if( $DEBUG ) {
  43     `gv $file`;
  44 } else {
  45     unlink($file);
  46 }
  47
  48 my $intree = new Bio::TreeIO(-file => Bio::Root::IO->catfile(qw(t data treefile.example)));
  49
  50 $file = $treedraw->draw_tree(Bio::Root::IO->catfile(qw(t data
  51                                                        treefile.example)));
  52 ok($file);
  53 ok(-e $file);
  54
  55 if( $DEBUG ) {
  56     `gv $file`;
  57 } else {
  58     unlink($file);
  59 }