basic gexf generation

1 files changed, 33 insertions, 0 deletions

diff --git a/t/06-data.t b/t/06-data.t
new file mode 100644
index 0000000..f9f2ea2
--- /dev/null
+++ b/t/06-data.t
@@ -0,0 +1,33 @@
+use strict;
+use warnings;
+use Test::More;
+
+use Graph::GEXF;
+
+my $graph = Graph::GEXF->new();
+$graph->add_node_attribute('url', 'string');
+$graph->add_node_attribute('indegree', 'float');
+$graph->add_node_attribute('frog', 'boolean');
+
+my $n1 = $graph->add_node(0);
+$n1->label('Gephi');
+$n1->link_to(1, 2, 3);
+$n1->attribute('url' => 'http://gephi.org/');
+
+my $n2 = $graph->add_node(1);
+$n2->label('WebAtlas');
+$n2->link_to(0);
+$n2->attribute('url' => 'http://webatlas.fr/');
+
+my $n3 = $graph->add_node(2);
+$n3->label('RTGI');
+$n3->link_to(1);
+
+my $n4 = $graph->add_node(3);
+$n4->label('BarabasiLab');
+
+ok my $xml = $graph->to_xml;
+
+print $xml;
+
+done_testing;