diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/06-data.t | 4 | ||||
| -rw-r--r-- | t/08-viz.t | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/t/06-data.t b/t/06-data.t index 91532f9..fc42b0f 100644 --- a/t/06-data.t +++ b/t/06-data.t @@ -4,7 +4,7 @@ use Test::More; use Graph::GEXF; -my $graph = Graph::GEXF->new(); +my $graph = Graph::GEXF->new(visualization => 1); $graph->add_node_attribute('url', 'string',); $graph->add_node_attribute('indegree', 'float', '0.0'); $graph->add_node_attribute('frog', 'boolean', 1); @@ -28,6 +28,6 @@ $n4->label('BarabasiLab'); ok my $xml = $graph->to_xml; -print $xml; +#warn $xml; done_testing; @@ -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){ |