From faf6949033a021bffab3c91a04665efef4378b28 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 16 Jul 2010 11:19:15 +0200 Subject: basic gexf generation --- t/02-graph.t | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 t/02-graph.t (limited to 't/02-graph.t') diff --git a/t/02-graph.t b/t/02-graph.t new file mode 100644 index 0000000..a81f889 --- /dev/null +++ b/t/02-graph.t @@ -0,0 +1,18 @@ +use strict; +use warnings; + +use Test::More; + +use Graph::GEXF; + +ok my $graph = Graph::GEXF->new(), 'graph created'; + +$graph->add_node_attribute('url', 'anyURI'); +$graph->add_node_attribute('lf', 'integer'); + +is $graph->total_attributes, 2, 'got 2 attributes'; + +ok my $attr = $graph->get_attribute('url'), 'fetch first attribute'; +is $attr->{title}, 'url', 'first attribute is url'; + +done_testing; -- cgit v1.2.3