From f706e1db10a734edaa4eb52ae80adef0a4f4f850 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Sat, 21 May 2011 15:08:58 +0200 Subject: add and update tests Signed-off-by: franck cuny --- t/01-basic.t | 4 ++++ 1 file changed, 4 insertions(+) (limited to 't/01-basic.t') 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; -- cgit v1.2.3