blob: fc42b0ff60b380d55af7e5893d2263f591f7deb7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
use strict;
use warnings;
use Test::More;
use Graph::GEXF;
my $graph = Graph::GEXF->new(visualization => 1);
$graph->add_node_attribute('url', 'string',);
$graph->add_node_attribute('indegree', 'float', '0.0');
$graph->add_node_attribute('frog', 'boolean', 1);
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;
#warn $xml;
done_testing;
|