blob: 6bb712197d2f80740fb6cb08bffd8a89f64894f4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
use strict;
use warnings;
use Test::More;
use Graph::GEXF;
ok my $graph = Graph::GEXF->new(), 'graph created';
ok my $n1 = $graph->add_node(), 'node created';
ok $n1->id, 'node has an id';
is $graph->total_nodes, 1, 'got one node';
ok my $n2 = $graph->get_node($n1->id);
done_testing;
|