t/05-basic_graph.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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;