path: root/t/03-node.t

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;