32 |
ok($node->set_timeout(42), 'set_timeout'); |
ok($node->set_timeout(42), 'set_timeout'); |
33 |
throws_ok {$node->set_timeout('foo') } qr/timeout/, 'set_timeout NaN'; |
throws_ok {$node->set_timeout('foo') } qr/timeout/, 'set_timeout NaN'; |
34 |
|
|
35 |
ok($node->set_auth('admin','admin'), 'set_auth'); |
my ($user, $passwd) = ( |
36 |
|
$ENV{EST_USER} || 'admin', |
37 |
|
$ENV{EST_PASSWD} || 'admin' |
38 |
|
); |
39 |
|
|
40 |
|
ok($node->set_auth($user, $passwd), 'set_auth'); |
41 |
|
|
42 |
cmp_ok($node->status, '==', -1, 'status'); |
cmp_ok($node->status, '==', -1, 'status'); |
43 |
|
|
273 |
throws_ok { $node->name } qr/404/, 'croak on error'; |
throws_ok { $node->name } qr/404/, 'croak on error'; |
274 |
|
|
275 |
# croak_on_error |
# croak_on_error |
276 |
ok($node = new Search::Estraier::Node( url => "$estmaster_uri/node/$test1_node", croak_on_error => 1 ), "new $test1_node"); |
ok($node = new Search::Estraier::Node( url => "$estmaster_uri/node/$test1_node", croak_on_error => 1, user => $user, passwd => $passwd, debug => $debug ), "new $test1_node"); |
277 |
|
|
278 |
ok(! $node->uri_to_id('foobar'), 'uri_to_id without croak'); |
ok(! $node->uri_to_id('foobar'), 'uri_to_id without croak'); |
279 |
|
|