3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 132; |
use Test::More tests => 142; |
7 |
use Test::Exception; |
use Test::Exception; |
8 |
use Data::Dumper; |
use Data::Dumper; |
9 |
|
|
259 |
), "nodedel $node_name: $msg"); |
), "nodedel $node_name: $msg"); |
260 |
} |
} |
261 |
|
|
262 |
|
# test create |
263 |
|
my $node_name = '_test_create_' . $$; |
264 |
|
my $node_label = "test $$ label"; |
265 |
|
|
266 |
|
ok($node = new Search::Estraier::Node( |
267 |
|
url => "http://localhost:1978/node/$node_name", |
268 |
|
create => 1, |
269 |
|
label => $node_label, |
270 |
|
croak_on_error => 1 |
271 |
|
), "new create+croak"); |
272 |
|
|
273 |
|
cmp_ok($node->name, 'eq', $node_name, "node $node_name exists"); |
274 |
|
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( |
309 |
|
action => 'nodedel', |
310 |
|
name => $node_name, |
311 |
|
), "nodedel $node_name: $msg"); |
312 |
|
|
313 |
diag "over"; |
diag "over"; |