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
|
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Graph::GEXF::Node;
ok my $node = Graph::GEXF::Node->new(id => 0), 'node created';
dies_ok { $node->attribute('url', 'http://linkfluence.net') }
'can\'t add attribute, no attributes defined';
ok $node = Graph::GEXF::Node->new(id => 0,), 'node created';
ok $node->set_node_attribute(
url => {id => 0, name => 'url', type => 'anyURL'}), 'attribute added';
ok $node->attribute('url', 'http://linkfluence.net'),
'add attribute url to node';
is $node->x, '0.0';
is $node->y, '0.0';
ok $node->x(5);
ok $node->y(12);
is $node->x, 5;
is $node->y, 12;
done_testing;
|
