blob: c4d13dda9a0c4a91c26cf700cd71864d36b4856c (
plain) (
tree)
|
|
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;
|