3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 115; |
use Test::More tests => 118; |
7 |
use Test::Exception; |
use Test::Exception; |
8 |
use Data::Dumper; |
use Data::Dumper; |
9 |
|
|
156 |
ok(! $node->admins, 'no admins'); |
ok(! $node->admins, 'no admins'); |
157 |
ok(! $node->guests, 'no guests'); |
ok(! $node->guests, 'no guests'); |
158 |
|
|
159 |
|
# test search without results |
160 |
|
|
161 |
|
ok($cond = new Search::Estraier::Condition, 'new cond'); |
162 |
|
ok($cond->set_phrase('this_is_phrase_which_does_not_exits'), 'cond set_phrase'); |
163 |
|
|
164 |
|
ok($nres = $node->search( $cond, 0 ), 'search'); |
165 |
|
|
166 |
SKIP: { |
SKIP: { |
167 |
skip "no $test2_node in Hyper Estraier, skipping set_link", 5 unless (my $test2_label = $node2->label); |
skip "no $test2_node in Hyper Estraier, skipping set_link", 5 unless (my $test2_label = $node2->label); |
168 |
|
|