add and update tests

Signed-off-by: franck cuny <franck@lumberjaph.net>

1 files changed, 31 insertions, 0 deletions

diff --git a/t/08-viz.t b/t/08-viz.t
new file mode 100644
index 0000000..c9c6134
--- /dev/null
+++ b/t/08-viz.t
@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Exception;
+
+use Graph::GEXF;
+
+my $graph = Graph::GEXF->new();
+
+my $n = $graph->add_node();
+
+# position
+_test($n, 1, qw/x y z/);
+_test($n, 1, qw/r g b/);
+
+# colors
+dies_ok {$n->r(256)} "can't set color to value > 255";
+dies_ok {$n->r(-1)} "can't set color to value < 0";
+
+sub _test{
+    my ($n, $value, @attr) = @_;
+    foreach (@attr){
+        $n->$_($value);
+    }
+    foreach (@attr){
+        is $n->$_, $value, "property $_ is set to $value";
+    }
+}
+
+done_testing;