diff options
| author | franck cuny <franck@lumberjaph.net> | 2011-05-21 16:34:33 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2011-05-21 16:34:33 +0200 |
| commit | 4929e139b585672bb0ca772fbba53321a14e6f84 (patch) | |
| tree | 391924ca7d1f73e0b85dcf896f6869b255f5dd36 | |
| parent | s/boolean/bool/ (diff) | |
| download | graph-gexf-4929e139b585672bb0ca772fbba53321a14e6f84.tar.gz | |
update tests
Signed-off-by: franck cuny <franck@lumberjaph.net>
| -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; 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){ |