summaryrefslogtreecommitdiff
path: root/t/08-viz.t
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--t/08-viz.t6
1 files changed, 5 insertions, 1 deletions
diff --git a/t/08-viz.t b/t/08-viz.t
index c9c6134..40be120 100644
--- a/t/08-viz.t
+++ b/t/08-viz.t
@@ -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){