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/05-basic_graph.t | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 t/05-basic_graph.t (limited to 't/05-basic_graph.t') diff --git a/t/05-basic_graph.t b/t/05-basic_graph.t new file mode 100644 index 0000000..ed1a921 --- /dev/null +++ b/t/05-basic_graph.t @@ -0,0 +1,20 @@ +use strict; +use warnings; +use Test::More; + +use Graph::GEXF; + +my $graph = Graph::GEXF->new(); + +my $n1 = $graph->add_node; +$n1->label('hello'); + +my $n2 = $graph->add_node; +$n2->label('world'); + +$n1->link_to($n2->id); + +ok my $xml = $graph->to_xml; +#print $xml; + +done_testing; -- cgit v1.2.3