3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 136; |
use Test::More tests => 142; |
7 |
use Test::Exception; |
use Test::Exception; |
8 |
use Data::Dumper; |
use Data::Dumper; |
9 |
|
|
268 |
create => 1, |
create => 1, |
269 |
label => $node_label, |
label => $node_label, |
270 |
croak_on_error => 1 |
croak_on_error => 1 |
271 |
), "new non-existant with create"); |
), "new create+croak"); |
272 |
|
|
273 |
cmp_ok($node->name, 'eq', $node_name, "node $node_name exists"); |
cmp_ok($node->name, 'eq', $node_name, "node $node_name exists"); |
274 |
cmp_ok($node->label, 'eq', $node_label, "node label: $node_label"); |
cmp_ok($node->label, 'eq', $node_label, "node label: $node_label"); |
275 |
|
|
276 |
|
ok($node = new Search::Estraier::Node( |
277 |
|
url => "http://localhost:1978/node/$node_name", |
278 |
|
create => 1, |
279 |
|
label => $node_label, |
280 |
|
croak_on_error => 0 |
281 |
|
), "new create existing"); |
282 |
|
|
283 |
|
ok($node = new Search::Estraier::Node( |
284 |
|
url => "http://localhost:1978/node/$node_name", |
285 |
|
create => 1, |
286 |
|
label => $node_label, |
287 |
|
croak_on_error => 1 |
288 |
|
), "new create+croak existing"); |
289 |
|
|
290 |
|
# cleanup |
291 |
|
ok($msg = $node->master( |
292 |
|
action => 'nodedel', |
293 |
|
name => $node_name, |
294 |
|
), "nodedel $node_name: $msg"); |
295 |
|
|
296 |
|
# and again, this time without node |
297 |
|
ok($node = new Search::Estraier::Node( |
298 |
|
url => "http://localhost:1978/node/$node_name", |
299 |
|
create => 1, |
300 |
|
label => $node_label, |
301 |
|
croak_on_error => 0 |
302 |
|
), "new create non-existing"); |
303 |
|
|
304 |
|
cmp_ok($node->name, 'eq', $node_name, "node $node_name exists"); |
305 |
|
cmp_ok($node->label, 'eq', $node_label, "node label: $node_label"); |
306 |
|
|
307 |
|
# cleanup |
308 |
ok($msg = $node->master( |
ok($msg = $node->master( |
309 |
action => 'nodedel', |
action => 'nodedel', |
310 |
name => $node_name, |
name => $node_name, |