--- trunk/t/5_Node.t	2006/01/06 20:45:48	56
+++ trunk/t/5_Node.t	2006/01/06 20:58:26	57
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 90;
+use Test::More tests => 92;
 use Test::Exception;
 use Data::Dumper;
 
@@ -14,7 +14,7 @@
 # name of node for test
 my $test_node = 'Search-Estraier';
 
-ok(my $node = new Search::Estraier::Node($debug), 'new');
+ok(my $node = new Search::Estraier::Node( debug => $debug ), 'new');
 isa_ok($node, 'Search::Estraier::Node');
 
 ok($node->set_url('http://localhost:1978/node/searchestraier'), 'set_url');
@@ -116,4 +116,7 @@
 # user doesn't exist
 ok(! $node->set_user('foobar', 1), 'set_user');
 
+ok($node->set_link('test','test', 42), 'set_link test 42');
+ok($node->set_link('test','test', 0), 'set_link delete');
+
 diag "over";