diff options
| author | franck cuny <franck@lumberjaph.net> | 2011-05-21 15:08:58 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2011-05-21 15:08:58 +0200 |
| commit | f706e1db10a734edaa4eb52ae80adef0a4f4f850 (patch) | |
| tree | 5a3e7434bfa9c32a57607d467d5b73215f736fb2 /t/01-basic.t | |
| parent | add roles for viz and start POD (diff) | |
| download | graph-gexf-f706e1db10a734edaa4eb52ae80adef0a4f4f850.tar.gz | |
add and update tests
Signed-off-by: franck cuny <franck@lumberjaph.net>
Diffstat (limited to '')
| -rw-r--r-- | t/01-basic.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index 8e1a231..6bb7121 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -1,12 +1,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; |