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/03-node.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/03-node.t | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/t/03-node.t b/t/03-node.t index a3f10e6..448f666 100644 --- a/t/03-node.t +++ b/t/03-node.t @@ -1,7 +1,9 @@ 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'; @@ -16,13 +18,4 @@ ok $node->set_node_attribute( 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; |