--- trunk/t/5_Node.t 2006/01/06 20:39:58 55 +++ trunk/t/5_Node.t 2006/01/06 20:58:26 57 @@ -3,7 +3,7 @@ use strict; use blib; -use Test::More tests => 89; +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'); @@ -113,4 +113,10 @@ ok($node->set_snippet_width( 100, 10, 10 ), "set_snippet_width"); +# 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";