t/PhyloNetwork_GraphViz.t

   1 # $Id$
   2 use strict;
   3
   4 BEGIN {
   5   use lib 't/lib';
   6   use BioperlTest;
   7
   8   test_begin(-tests => 3,
   9              -requires_modules => [qw(Bio::PhyloNetwork
  10                                       GraphViz)]);
  11
  12   use_ok('Bio::PhyloNetwork::GraphViz');
  13 }
  14
  15 my $net=Bio::PhyloNetwork->new(-eNewick=>'((H1,(H1,(H2,l))),H2)t0; (some long label)H1; ("quoted label")H2;');
  16
  17 my $gv=Bio::PhyloNetwork::GraphViz->new(-net=>$net,-short_labels=>1);
  18 isa_ok($gv,'Bio::PhyloNetwork::GraphViz');
  19 isa_ok($gv,'GraphViz');