--- trunk/t/5_Node.t 2006/05/10 13:45:08 139 +++ trunk/t/5_Node.t 2006/05/10 14:08:34 140 @@ -3,7 +3,7 @@ use strict; use blib; -use Test::More tests => 136; +use Test::More tests => 142; use Test::Exception; use Data::Dumper; @@ -268,11 +268,43 @@ create => 1, label => $node_label, croak_on_error => 1 -), "new non-existant with create"); +), "new create+croak"); cmp_ok($node->name, 'eq', $node_name, "node $node_name exists"); cmp_ok($node->label, 'eq', $node_label, "node label: $node_label"); +ok($node = new Search::Estraier::Node( + url => "http://localhost:1978/node/$node_name", + create => 1, + label => $node_label, + croak_on_error => 0 +), "new create existing"); + +ok($node = new Search::Estraier::Node( + url => "http://localhost:1978/node/$node_name", + create => 1, + label => $node_label, + croak_on_error => 1 +), "new create+croak existing"); + +# cleanup +ok($msg = $node->master( + action => 'nodedel', + name => $node_name, +), "nodedel $node_name: $msg"); + +# and again, this time without node +ok($node = new Search::Estraier::Node( + url => "http://localhost:1978/node/$node_name", + create => 1, + label => $node_label, + croak_on_error => 0 +), "new create non-existing"); + +cmp_ok($node->name, 'eq', $node_name, "node $node_name exists"); +cmp_ok($node->label, 'eq', $node_label, "node label: $node_label"); + +# cleanup ok($msg = $node->master( action => 'nodedel', name => $node_name,