From 4929e139b585672bb0ca772fbba53321a14e6f84 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Sat, 21 May 2011 16:34:33 +0200 Subject: update tests Signed-off-by: franck cuny --- t/06-data.t | 4 ++-- t/08-viz.t | 6 +++++- 2 files changed, 7 insertions(+), 3 deletions(-) (limited to 't') 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; 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){ -- cgit v1.2.3