diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-07-16 11:19:15 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-07-16 11:19:15 +0200 |
| commit | faf6949033a021bffab3c91a04665efef4378b28 (patch) | |
| tree | 48f04f0f373f3c2067216d76eaeb9f0e4badf339 /t/05-basic_graph.t | |
| download | graph-gexf-faf6949033a021bffab3c91a04665efef4378b28.tar.gz | |
basic gexf generation
Diffstat (limited to 't/05-basic_graph.t')
| -rw-r--r-- | t/05-basic_graph.t | 20 |
1 files changed, 20 insertions, 0 deletions
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; |