diff options
Diffstat (limited to 't/08-viz.t')
| -rw-r--r-- | t/08-viz.t | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -6,7 +6,7 @@ use Test::Exception; use Graph::GEXF; -my $graph = Graph::GEXF->new(); +my $graph = Graph::GEXF->new(visualization => 1); my $n = $graph->add_node(); @@ -18,6 +18,10 @@ _test($n, 1, qw/r g b/); dies_ok {$n->r(256)} "can't set color to value > 255"; dies_ok {$n->r(-1)} "can't set color to value < 0"; +my $xml = $graph->to_xml; + +warn $xml; + sub _test{ my ($n, $value, @attr) = @_; foreach (@attr){ |
