32 |
|
|
33 |
SKIP: { |
SKIP: { |
34 |
|
|
35 |
skip "no $test1_node node in Hyper Estraier", 97, unless($node->name); |
skip "no $test1_node node in Hyper Estraier", 96, unless($node->name); |
36 |
|
|
37 |
my @res = ( -1, 200 ); |
my @res = ( -1, 200 ); |
38 |
|
|
122 |
ok($v = $node->name, "name: $v"); |
ok($v = $node->name, "name: $v"); |
123 |
ok($v = $node->label, "label: $v"); |
ok($v = $node->label, "label: $v"); |
124 |
ok($v = $node->doc_num, "doc_num: $v"); |
ok($v = $node->doc_num, "doc_num: $v"); |
125 |
ok($v = $node->word_num, "word_num: $v"); |
ok(defined($v = $node->word_num), "word_num: $v"); |
126 |
ok($v = $node->size, "size: $v"); |
ok($v = $node->size, "size: $v"); |
127 |
|
|
128 |
ok($node->set_snippet_width( 100, 10, 10 ), "set_snippet_width"); |
ok($node->set_snippet_width( 100, 10, 10 ), "set_snippet_width"); |
149 |
ok(! $node->guests, 'no guests'); |
ok(! $node->guests, 'no guests'); |
150 |
|
|
151 |
SKIP: { |
SKIP: { |
152 |
skip "no $test2_node in Hyper Estraier, skipping set_link", 2 unless (my $test2_label = $node2->label); |
skip "no $test2_node in Hyper Estraier, skipping set_link", 5 unless (my $test2_label = $node2->label); |
153 |
|
|
154 |
my $link_url = "http://localhost:1978/node/$test2_node"; |
my $link_url = "http://localhost:1978/node/$test2_node"; |
155 |
|
|