blob: f2ad1469c9ca02c2b766321bce3c80305ddc8e16 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
use strict;
use warnings;
use Test::More;
use Graph::GEXF;
ok my $graph = Graph::GEXF->new(), 'graph created';
$graph->add_node_attribute('url', 'anyURI');
$graph->add_node_attribute('lf', 'integer');
is $graph->attributes_node_total, 2, 'got 2 attributes';
ok my $attr = $graph->get_node_attribute('url'), 'fetch first attribute';
is $attr->{title}, 'url', 'first attribute is url';
done_testing;
|