t/07-attributes.t


1
2
3
4
5
6
7
8
9
10
11
12
13

use strict;
use warnings;
use Test::More;

use Graph::GEXF;

my $graph = Graph::GEXF->new();
ok $graph->add_node_attribute('foo', 'bar', 'baz');
ok $graph->add_edge_attribute('baz', 'bar', 'foo');

print $graph->to_xml;

done_testing;