30 |
|
|
31 |
cmp_ok($node->status, '==', -1, 'status'); |
cmp_ok($node->status, '==', -1, 'status'); |
32 |
|
|
33 |
|
SKIP: { |
34 |
|
|
35 |
|
skip "no $test_node node in Hyper Estraier", 85, unless($node->name); |
36 |
|
|
37 |
my @res = ( -1, 200 ); |
my @res = ( -1, 200 ); |
38 |
|
|
39 |
my $nodelist; |
my $nodelist; |
56 |
#diag "draft:\n$draft"; |
#diag "draft:\n$draft"; |
57 |
ok(my $doc = new Search::Estraier::Document($draft), 'new doc from draft'); |
ok(my $doc = new Search::Estraier::Document($draft), 'new doc from draft'); |
58 |
|
|
|
SKIP: { |
|
|
|
|
|
skip "no $test_node node in Hyper Estraier", 81, unless($node->name); |
|
|
|
|
59 |
ok( $node->put_doc($doc), "put_doc data001"); |
ok( $node->put_doc($doc), "put_doc data001"); |
60 |
|
|
61 |
for ( 1 .. 10 ) { |
for ( 1 .. 10 ) { |
131 |
|
|
132 |
ok($node->set_link("http://localhost:1978/node/$test1_node", $test1_label, 42), "set_link $test1_node ($test1_label) 42"); |
ok($node->set_link("http://localhost:1978/node/$test1_node", $test1_label, 42), "set_link $test1_node ($test1_label) 42"); |
133 |
ok($node->set_link("http://localhost:1978/node/$test1_node", $test1_label, 0), "set_link $test1_node ($test1_label) delete"); |
ok($node->set_link("http://localhost:1978/node/$test1_node", $test1_label, 0), "set_link $test1_node ($test1_label) delete"); |
134 |
} |
} # SKIP 2 |
135 |
|
|
136 |
} |
} # SKIP 1 |
137 |
|
|
138 |
diag "over"; |
diag "over"; |