129 |
# croak_on_error |
# croak_on_error |
130 |
|
|
131 |
ok(my $node2 = new Search::Estraier::Node( url => "http://localhost:1978/non-existant", croak_on_error => 1 ), "new non-existant"); |
ok(my $node2 = new Search::Estraier::Node( url => "http://localhost:1978/non-existant", croak_on_error => 1 ), "new non-existant"); |
132 |
throws_ok { $node->name } qr/port/, 'croak on error'; |
throws_ok { $node2->name } qr/404/, 'croak on error'; |
133 |
|
|
134 |
SKIP: { |
SKIP: { |
135 |
skip "no $test2_node in Hyper Estraier, skipping set_link", 2 unless (my $test1_label = $node1->label); |
skip "no $test2_node in Hyper Estraier, skipping set_link", 2 unless (my $test1_label = $node1->label); |