--- trunk/t/5_Node.t 2006/01/05 15:21:41 28 +++ trunk/t/5_Node.t 2006/01/05 15:33:48 30 @@ -3,7 +3,7 @@ use strict; use blib; -use Test::More tests => 3; +use Test::More tests => 8; use Test::Exception; use Data::Dumper; @@ -12,3 +12,10 @@ ok(my $node = new Search::Estraier::Node, 'new'); isa_ok($node, 'Search::Estraier::Node'); +ok($node->set_url('http://localhost:1978/'), 'set_url'); + +ok($node->set_proxy('proxy.example.com', 8080), 'set_proxy'); +throws_ok {$node->set_proxy('proxy.example.com', 'foo') } qr/port/, 'set_proxy port NaN'; + +ok($node->set_timeout(42), 'set_timeout'); +throws_ok {$node->set_timeout('foo') } qr/timeout/, 'set_timeout NaN';