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 /t/08-viz.t | |
| parent | s/boolean/bool/ (diff) | |
| download | graph-gexf-4929e139b585672bb0ca772fbba53321a14e6f84.tar.gz | |
update tests
Signed-off-by: franck cuny <franck@lumberjaph.net>
Diffstat (limited to '')
| -rw-r--r-- | t/08-viz.t | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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){ |
