summaryrefslogtreecommitdiff
path: root/t/08-viz.t
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2011-05-21 16:34:33 +0200
committerfranck cuny <franck@lumberjaph.net>2011-05-21 16:34:33 +0200
commit4929e139b585672bb0ca772fbba53321a14e6f84 (patch)
tree391924ca7d1f73e0b85dcf896f6869b255f5dd36 /t/08-viz.t
parents/boolean/bool/ (diff)
downloadgraph-gexf-4929e139b585672bb0ca772fbba53321a14e6f84.tar.gz
update tests
Signed-off-by: franck cuny <franck@lumberjaph.net>
Diffstat (limited to 't/08-viz.t')
-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){