32 |
|
|
33 |
SKIP: { |
SKIP: { |
34 |
|
|
35 |
skip "no $test1_node node in Hyper Estraier", 88, unless($node->name); |
skip "no $test1_node node in Hyper Estraier", 91, unless($node->name); |
36 |
|
|
37 |
my @res = ( -1, 200 ); |
my @res = ( -1, 200 ); |
38 |
|
|
139 |
throws_ok { $node->name } qr/404/, 'croak on error'; |
throws_ok { $node->name } qr/404/, 'croak on error'; |
140 |
|
|
141 |
# croak_on_error |
# croak_on_error |
142 |
ok($node = new Search::Estraier::Node( url => "http://localhost:1978/$test1_node", croak_on_error => 1 ), "new $test1_node"); |
ok($node = new Search::Estraier::Node( url => "http://localhost:1978/node/$test1_node", croak_on_error => 1 ), "new $test1_node"); |
143 |
|
|
144 |
ok(! $node->uri_to_id('foobar'), 'uri_to_id without croak'); |
ok(! $node->uri_to_id('foobar'), 'uri_to_id without croak'); |
145 |
|
|