trunk/t/5_Node.t

#!/usr/bin/perl -w

use strict;
use blib;

use Test::More tests => 246;
use Test::Exception;
use Data::Dumper;

BEGIN { use_ok('Search::Estraier') };

my $debug = shift @ARGV;

# name of node for test
my $test1_node = '_test1_' . $$;
my $test2_node = '_test2_' . $$;

ok(my $node = new Search::Estraier::Node( debug => $debug ), 'new');
isa_ok($node, 'Search::Estraier::Node');

ok($node->set_url("http://localhost:1978/node/$test1_node"), "set_url $test1_node");

ok($node->set_proxy('', 8080), 'set_proxy');
throws_ok {$node->set_proxy('proxy.example.com', 'foo') } qr/port/, 'set_proxy port NaN';

ok($node->set_timeout(42), 'set_timeout');
throws_ok {$node->set_timeout('foo') } qr/timeout/, 'set_timeout NaN';

ok($node->set_auth('admin','admin'), 'set_auth');

cmp_ok($node->status, '==', -1, 'status');

# test master functionality

#diag "not testing shutdown\n";

my $msg;

#diag "not testing backup\n";

ok(my @users = $node->master( action => 'userlist' ), 'userlist');

#diag "users: ", Dumper( \@users );
diag "found ", $#users + 1, " users";

my $user = {
        name => '_test_' . $$,
        flags => 'b',
        fname => 'Search::Estraier',
        misc => 'test user',
};

ok($msg = $node->master(
        action => 'useradd',
        %{ $user },
        passwd => 'test1234',
), "useradd: $msg");

ok(my @users2 = $node->master( action => 'userlist' ), 'userlist');
cmp_ok($#users2, '==', $#users + 1, 'added user');

while (my $row = shift @users2) {
        next unless ($row->{name} eq $user);
        map {
                cmp_ok($user->{$_}, 'eq', $row->{$_}, "$_");
        } keys %{ $user };
}

ok($msg = $node->master(
        action => 'userdel',
        name => $user->{name},
), "userdel: $msg");

ok(@users2 = $node->master( action => 'userlist' ), 'userlist');
cmp_ok($#users2, '==', $#users, 'removed user');

ok(my @nodes = $node->master( action => 'nodelist' ), 'nodelist' );
#diag "nodelist: ", Dumper( \@nodes );
diag "found ", $#nodes + 1, " nodes";

if ($#nodes > 42) {
        diag <<'_END_OF_WARNING_';

This tests create three nodes in your Hyper Estraier.

Since you have more than 43 modes, and Hyper Estraier needs more than
1024 file descriptors for more than 46 nodes, expect tests to fail.

If tests do fail, you can try to add

ulimit -n 2048

before staring estmaster, which will increase number of available nodes
to 96 before estmaster runs out of file descriptors.

_END_OF_WARNING_
}

my $temp_node = "_test_temp_$$";

foreach my $node_name ( $test1_node , $test2_node, $temp_node ) {
        ok($msg = $node->master(
                action => 'nodeadd',
                name => $node_name,
                label => "$node_name label",
        ), "nodeadd $node_name: $msg");
}

ok($msg = $node->master(
        action => 'nodeclr',
        name => $temp_node,
), "nodeclr $temp_node: $msg");

ok($msg = $node->master(
        action => 'nodedel',
        name => $temp_node,
), "nodedel $temp_node: $msg");

#diag "not testing logrtt\n";

# test document creation

my $draft = <<'_END_OF_DRAFT_';
@uri=data0
@title=Material Girl

Living in a material world
And I am a material girl
You know that we are living in a material world
And I am a material girl
_END_OF_DRAFT_

#diag "draft:\n$draft";
ok(my $doc = new Search::Estraier::Document($draft), 'new doc from draft');

ok( $node->put_doc($doc), "put_doc data001");

for ( 1 .. 17 ) {
        $doc->add_attr('@uri', 'test' . $_);
        ok( $node->put_doc($doc), "put_doc test$_");
        #diag $doc->dump_draft;
}

ok(! $node->uri_to_id( 'does-not-exists' ), "non-existant uri_to_id");

my $id;
ok($id = $node->uri_to_id( 'data0' ), "uri_to_id(data0)");

ok($doc = $node->get_doc( $id ), "get_doc($id) for edit");
$doc->add_attr('foo', 'bar');
#diag Dumper($doc);
ok( $node->edit_doc( $doc ), 'edit_doc');

ok( $node->out_doc( $id ), "out_doc($id)");

ok( ! $node->edit_doc( $doc ), "edit_doc of removed doc");

my $doc_num;
ok( $doc_num = $node->doc_num, "node->doc_num $doc_num");

my $delete_num = 5;

for ( 1 .. $delete_num ) {
        ok( $node->out_doc_by_uri( 'test' . $_ ), "out_doc_by_uri test$_");
}

ok($msg = $node->master( action => 'sync' ), "sync: $msg");

my $doc_num2 = $doc_num - $delete_num;
cmp_ok($node->doc_num, '==', $doc_num2, "node->doc_num $doc_num2");

my $max = int($doc_num2 / 2);

ok(my $cond = new Search::Estraier::Condition, 'new cond');
ok($cond->set_phrase('girl'), 'cond set_phrase');
ok($cond->set_max($max), "cond set_max($max)");
ok($cond->set_order('@uri ASCD'), 'cond set_order');
ok($cond->add_attr('@title STRINC Material'), 'cond add_attr');

cmp_ok($node->cond_to_query( $cond ), 'eq' , 'phrase=girl&attr1=%40title%20STRINC%20Material&order=%40uri%20ASCD&max='.$max.'&wwidth=480&hwidth=96&awidth=96', 'cond_to_query');

ok( my $nres = $node->search( $cond, 0 ), 'search');

isa_ok( $nres, 'Search::Estraier::NodeResult' );

cmp_ok($nres->doc_num, '==', $max, "nres->doc_num $max");

cmp_ok($nres->hits, '==', $doc_num2, "nres->hits $doc_num2");

# upper limit is $nres->hits and not $nres->doc_num because we
# check all documents, not just results!
for my $i ( 0 .. ($nres->hits - 1) ) {
        my $num = $i + $delete_num + 1;
        my $uri = 'test' . $num;

        if ($i < $nres->doc_num) {
                ok( my $rdoc = $nres->get_doc( $i ), "nres->get_doc $i");

                cmp_ok( $rdoc->attr('@uri'), 'eq', $uri, "\@uri = $uri");
                cmp_ok( $node->uri_to_id( $uri ), '==', $num + 1, "uri_to_id($uri)");

                ok( my $k = $rdoc->keywords( $id ), "rdoc keywords");
        } else {
                ok( ! $nres->get_doc( $i ), "nres->get_doc doesn't exist");

        }

        ok( my $id = $node->uri_to_id( $uri ), "uri_to_id($uri)");
        ok( $node->get_doc( $id ), "get_doc($id)");
        ok( $node->get_doc_by_uri( $uri ), "get_doc_by_uri($uri)");
        cmp_ok( $node->get_doc_attr( $id, '@uri' ), 'eq', $uri, "get_doc_attr $id");
        cmp_ok( $node->get_doc_attr_by_uri( $uri, '@uri' ), 'eq', $uri, "get_doc_attr $id");
        ok( my $k1 = $node->etch_doc( $id ), "etch_doc_by_uri $uri");
        ok( my $k2 = $node->etch_doc_by_uri( $uri ), "etch_doc_by_uri $uri");
        #diag Dumper($k, $k2);
        ok( eq_hash( $k1, $k2 ), "keywords");
}

ok(my $hints = $nres->hints, 'hints');
diag Dumper($hints);

ok($node->_set_info, "refresh _set_info");

my $v;
ok($v = $node->name, "name: $v");
ok($v = $node->label, "label: $v");
ok($v = $node->doc_num, "doc_num: $v");
ok(defined($v = $node->word_num), "word_num: $v");
ok($v = $node->size, "size: $v");

ok($node->set_snippet_width( 100, 10, 10 ), "set_snippet_width");

# test skip
my $skip = int($max / 2) || die "skip is zero, can't test";
ok($cond->set_skip( $skip ), "cond set_skip($skip)");

ok( $nres = $node->search( $cond, 0 ), 'search');
isa_ok( $nres, 'Search::Estraier::NodeResult' );
cmp_ok($nres->doc_num, '==', $max, "nres->doc_num " . ($max - $skip));
cmp_ok($nres->hits, '==', $doc_num2, "nres->hits $doc_num2");

for my $i ( 0 .. ($nres->doc_num - 1) ) {
        my $uri = 'test' . ($i + $delete_num + 1);
        ok( my $rdoc = $nres->get_doc( $i ), "nres->get_doc $i");
        if ($rdoc) {
                cmp_ok( $rdoc->attr('@uri'), 'eq', $uri, "\@uri = $uri");
        } else {
                fail('no rdoc');
        }
}


# user doesn't exist
ok(! $node->set_user('foobar', 1), 'set_user');

ok(my $node2 = new Search::Estraier::Node( "http://localhost:1978/node/$test2_node" ), "new $test2_node");
ok($node2->set_auth('admin','admin'), "set_auth $test2_node");

# croak_on_error

ok($node = new Search::Estraier::Node( url => "http://localhost:1978/non-existant", croak_on_error => 1 ), "new non-existant");
throws_ok { $node->name } qr/404/, 'croak on error';

# croak_on_error
ok($node = new Search::Estraier::Node( url => "http://localhost:1978/node/$test1_node", croak_on_error => 1 ), "new $test1_node");

ok(! $node->uri_to_id('foobar'), 'uri_to_id without croak');


# test users
ok(! $node->admins, 'no admins');
ok(! $node->guests, 'no guests');


# test search without results
ok($cond = new Search::Estraier::Condition, 'new cond');
ok($cond->set_phrase('this_is_phrase_which_does_not_exits'), 'cond set_phrase');

ok($nres = $node->search( $cond, 0 ), 'search');

# now, test links
my $test2_label = "$test2_node label";
my $link_url = "http://localhost:1978/node/$test2_node";
ok($node->set_link( $link_url, $test2_label, 42), "set_link $test2_node ($test2_label) 42");
ok(my $links = $node->links, 'links');
cmp_ok($#{$links}, '==', 0, 'one link');
like($links->[0], qr/^$link_url/, 'link correct');
ok($node->set_link("http://localhost:1978/node/$test2_node", $test2_label, 0), "set_link $test2_node ($test2_label) delete");

# cleanup test nodes
foreach my $node_name ( $test1_node , $test2_node ) {
        ok($msg = $node->master(
                action => 'nodedel',
                name => $node_name,
        ), "nodedel $node_name: $msg");
}

# test create
my $node_name = '_test_create_' . $$;
my $node_label = "test $$ label";

ok($node = new Search::Estraier::Node(
        url => "http://localhost:1978/node/$node_name",
        create => 1,
        label => $node_label,
        croak_on_error => 1
), "new create+croak");

cmp_ok($node->name, 'eq', $node_name, "node $node_name exists");
cmp_ok($node->label, 'eq', $node_label, "node label: $node_label");

ok($node = new Search::Estraier::Node(
        url => "http://localhost:1978/node/$node_name",
        create => 1,
        label => $node_label,
        croak_on_error => 0
), "new create existing");

ok($node = new Search::Estraier::Node(
        url => "http://localhost:1978/node/$node_name",
        create => 1,
        label => $node_label,
        croak_on_error => 1
), "new create+croak existing");

# cleanup
ok($msg = $node->master(
        action => 'nodedel',
        name => $node_name,
), "nodedel $node_name: $msg");

# and again, this time without node
ok($node = new Search::Estraier::Node(
        url => "http://localhost:1978/node/$node_name",
        create => 1,
        label => $node_label,
        croak_on_error => 0
), "new create non-existing");

cmp_ok($node->name, 'eq', $node_name, "node $node_name exists");
cmp_ok($node->label, 'eq', $node_label, "node label: $node_label");

# cleanup
ok($msg = $node->master(
        action => 'nodedel',
        name => $node_name,
), "nodedel $node_name: $msg");

diag "over";
1	dpavlin	28	#!/usr/bin/perl -w
2
3			use strict;
4			use blib;
5
6	dpavlin	148	use Test::More tests => 246;
7	dpavlin	28	use Test::Exception;
8			use Data::Dumper;
9
10			BEGIN { use_ok('Search::Estraier') };
11
12	dpavlin	148	my $debug = shift @ARGV;
13	dpavlin	40
14	dpavlin	35	# name of node for test
15	dpavlin	137	my $test1_node = '_test1_' . $$;
16			my $test2_node = '_test2_' . $$;
17	dpavlin	35
18	dpavlin	57	ok(my $node = new Search::Estraier::Node( debug => $debug ), 'new');
19	dpavlin	28	isa_ok($node, 'Search::Estraier::Node');
20
21	dpavlin	78	ok($node->set_url("http://localhost:1978/node/$test1_node"), "set_url $test1_node");
22	dpavlin	29
23	dpavlin	38	ok($node->set_proxy('', 8080), 'set_proxy');
24	dpavlin	30	throws_ok {$node->set_proxy('proxy.example.com', 'foo') } qr/port/, 'set_proxy port NaN';
25
26			ok($node->set_timeout(42), 'set_timeout');
27			throws_ok {$node->set_timeout('foo') } qr/timeout/, 'set_timeout NaN';
28	dpavlin	31
29	dpavlin	39	ok($node->set_auth('admin','admin'), 'set_auth');
30	dpavlin	32
31			cmp_ok($node->status, '==', -1, 'status');
32	dpavlin	35
33	dpavlin	134	# test master functionality
34
35	dpavlin	137	#diag "not testing shutdown\n";
36	dpavlin	134
37	dpavlin	137	my $msg;
38	dpavlin	134
39	dpavlin	137	#diag "not testing backup\n";
40
41	dpavlin	135	ok(my @users = $node->master( action => 'userlist' ), 'userlist');
42
43	dpavlin	137	#diag "users: ", Dumper( \@users );
44			diag "found ", $#users + 1, " users";
45	dpavlin	135
46	dpavlin	137	my $user = {
47			name => '_test_' . $$,
48			flags => 'b',
49			fname => 'Search::Estraier',
50			misc => 'test user',
51			};
52	dpavlin	73
53	dpavlin	137	ok($msg = $node->master(
54			action => 'useradd',
55			%{ $user },
56			passwd => 'test1234',
57			), "useradd: $msg");
58	dpavlin	73
59	dpavlin	137	ok(my @users2 = $node->master( action => 'userlist' ), 'userlist');
60			cmp_ok($#users2, '==', $#users + 1, 'added user');
61	dpavlin	38
62	dpavlin	137	while (my $row = shift @users2) {
63			next unless ($row->{name} eq $user);
64			map {
65			cmp_ok($user->{$_}, 'eq', $row->{$_}, "$_");
66			} keys %{ $user };
67	dpavlin	37	}
68	dpavlin	35
69	dpavlin	137	ok($msg = $node->master(
70			action => 'userdel',
71			name => $user->{name},
72			), "userdel: $msg");
73
74			ok(@users2 = $node->master( action => 'userlist' ), 'userlist');
75			cmp_ok($#users2, '==', $#users, 'removed user');
76
77			ok(my @nodes = $node->master( action => 'nodelist' ), 'nodelist' );
78			#diag "nodelist: ", Dumper( \@nodes );
79			diag "found ", $#nodes + 1, " nodes";
80
81			if ($#nodes > 42) {
82			diag <<'_END_OF_WARNING_';
83
84			This tests create three nodes in your Hyper Estraier.
85
86	dpavlin	138	Since you have more than 43 modes, and Hyper Estraier needs more than
87			1024 file descriptors for more than 46 nodes, expect tests to fail.
88	dpavlin	137
89	dpavlin	138	If tests do fail, you can try to add
90
91			ulimit -n 2048
92
93			before staring estmaster, which will increase number of available nodes
94			to 96 before estmaster runs out of file descriptors.
95
96	dpavlin	137	_END_OF_WARNING_
97			}
98
99			my $temp_node = "_test_temp_$$";
100
101			foreach my $node_name ( $test1_node , $test2_node, $temp_node ) {
102			ok($msg = $node->master(
103			action => 'nodeadd',
104			name => $node_name,
105			label => "$node_name label",
106			), "nodeadd $node_name: $msg");
107			}
108
109			ok($msg = $node->master(
110			action => 'nodeclr',
111			name => $temp_node,
112			), "nodeclr $temp_node: $msg");
113
114			ok($msg = $node->master(
115			action => 'nodedel',
116			name => $temp_node,
117			), "nodedel $temp_node: $msg");
118
119			#diag "not testing logrtt\n";
120
121			# test document creation
122
123	dpavlin	35	my $draft = <<'_END_OF_DRAFT_';
124	dpavlin	148	@uri=data0
125	dpavlin	35	@title=Material Girl
126
127			Living in a material world
128			And I am a material girl
129			You know that we are living in a material world
130			And I am a material girl
131			_END_OF_DRAFT_
132
133	dpavlin	40	#diag "draft:\n$draft";
134			ok(my $doc = new Search::Estraier::Document($draft), 'new doc from draft');
135
136	dpavlin	46	ok( $node->put_doc($doc), "put_doc data001");
137
138	dpavlin	148	for ( 1 .. 17 ) {
139	dpavlin	41	$doc->add_attr('@uri', 'test' . $_);
140			ok( $node->put_doc($doc), "put_doc test$_");
141			#diag $doc->dump_draft;
142			}
143
144	dpavlin	148	ok(! $node->uri_to_id( 'does-not-exists' ), "non-existant uri_to_id");
145
146	dpavlin	50	my $id;
147	dpavlin	148	ok($id = $node->uri_to_id( 'data0' ), "uri_to_id(data0)");
148	dpavlin	41
149	dpavlin	148	ok($doc = $node->get_doc( $id ), "get_doc($id) for edit");
150			$doc->add_attr('foo', 'bar');
151			#diag Dumper($doc);
152			ok( $node->edit_doc( $doc ), 'edit_doc');
153	dpavlin	100
154	dpavlin	148	ok( $node->out_doc( $id ), "out_doc($id)");
155
156			ok( ! $node->edit_doc( $doc ), "edit_doc of removed doc");
157
158			my $doc_num;
159			ok( $doc_num = $node->doc_num, "node->doc_num $doc_num");
160
161			my $delete_num = 5;
162
163			for ( 1 .. $delete_num ) {
164	dpavlin	43	ok( $node->out_doc_by_uri( 'test' . $_ ), "out_doc_by_uri test$_");
165	dpavlin	41	}
166	dpavlin	42
167	dpavlin	148	ok($msg = $node->master( action => 'sync' ), "sync: $msg");
168	dpavlin	43
169	dpavlin	148	my $doc_num2 = $doc_num - $delete_num;
170			cmp_ok($node->doc_num, '==', $doc_num2, "node->doc_num $doc_num2");
171	dpavlin	50
172	dpavlin	148	my $max = int($doc_num2 / 2);
173	dpavlin	50
174	dpavlin	51	ok(my $cond = new Search::Estraier::Condition, 'new cond');
175			ok($cond->set_phrase('girl'), 'cond set_phrase');
176	dpavlin	148	ok($cond->set_max($max), "cond set_max($max)");
177	dpavlin	51	ok($cond->set_order('@uri ASCD'), 'cond set_order');
178			ok($cond->add_attr('@title STRINC Material'), 'cond add_attr');
179
180	dpavlin	53	cmp_ok($node->cond_to_query( $cond ), 'eq' , 'phrase=girl&attr1=%40title%20STRINC%20Material&order=%40uri%20ASCD&max='.$max.'&wwidth=480&hwidth=96&awidth=96', 'cond_to_query');
181	dpavlin	51
182	dpavlin	91	ok( my $nres = $node->search( $cond, 0 ), 'search');
183	dpavlin	51
184	dpavlin	91	isa_ok( $nres, 'Search::Estraier::NodeResult' );
185	dpavlin	51
186	dpavlin	148	cmp_ok($nres->doc_num, '==', $max, "nres->doc_num $max");
187	dpavlin	53
188	dpavlin	148	cmp_ok($nres->hits, '==', $doc_num2, "nres->hits $doc_num2");
189	dpavlin	100
190	dpavlin	148	# upper limit is $nres->hits and not $nres->doc_num because we
191			# check all documents, not just results!
192	dpavlin	115	for my $i ( 0 .. ($nres->hits - 1) ) {
193	dpavlin	148	my $num = $i + $delete_num + 1;
194			my $uri = 'test' . $num;
195	dpavlin	115
196			if ($i < $nres->doc_num) {
197	dpavlin	148	ok( my $rdoc = $nres->get_doc( $i ), "nres->get_doc $i");
198	dpavlin	115
199			cmp_ok( $rdoc->attr('@uri'), 'eq', $uri, "\@uri = $uri");
200	dpavlin	148	cmp_ok( $node->uri_to_id( $uri ), '==', $num + 1, "uri_to_id($uri)");
201
202	dpavlin	115	ok( my $k = $rdoc->keywords( $id ), "rdoc keywords");
203	dpavlin	148	} else {
204			ok( ! $nres->get_doc( $i ), "nres->get_doc doesn't exist");
205
206	dpavlin	115	}
207
208	dpavlin	148	ok( my $id = $node->uri_to_id( $uri ), "uri_to_id($uri)");
209			ok( $node->get_doc( $id ), "get_doc($id)");
210			ok( $node->get_doc_by_uri( $uri ), "get_doc_by_uri($uri)");
211	dpavlin	49	cmp_ok( $node->get_doc_attr( $id, '@uri' ), 'eq', $uri, "get_doc_attr $id");
212			cmp_ok( $node->get_doc_attr_by_uri( $uri, '@uri' ), 'eq', $uri, "get_doc_attr $id");
213	dpavlin	115	ok( my $k1 = $node->etch_doc( $id ), "etch_doc_by_uri $uri");
214	dpavlin	49	ok( my $k2 = $node->etch_doc_by_uri( $uri ), "etch_doc_by_uri $uri");
215			#diag Dumper($k, $k2);
216	dpavlin	115	ok( eq_hash( $k1, $k2 ), "keywords");
217	dpavlin	43	}
218	dpavlin	48
219	dpavlin	91	ok(my $hints = $nres->hints, 'hints');
220			diag Dumper($hints);
221
222	dpavlin	72	ok($node->_set_info, "refresh _set_info");
223
224	dpavlin	48	my $v;
225			ok($v = $node->name, "name: $v");
226			ok($v = $node->label, "label: $v");
227			ok($v = $node->doc_num, "doc_num: $v");
228	dpavlin	110	ok(defined($v = $node->word_num), "word_num: $v");
229	dpavlin	48	ok($v = $node->size, "size: $v");
230
231	dpavlin	55	ok($node->set_snippet_width( 100, 10, 10 ), "set_snippet_width");
232
233	dpavlin	148	# test skip
234			my $skip = int($max / 2) \|\| die "skip is zero, can't test";
235			ok($cond->set_skip( $skip ), "cond set_skip($skip)");
236
237			ok( $nres = $node->search( $cond, 0 ), 'search');
238			isa_ok( $nres, 'Search::Estraier::NodeResult' );
239			cmp_ok($nres->doc_num, '==', $max, "nres->doc_num " . ($max - $skip));
240			cmp_ok($nres->hits, '==', $doc_num2, "nres->hits $doc_num2");
241
242			for my $i ( 0 .. ($nres->doc_num - 1) ) {
243			my $uri = 'test' . ($i + $delete_num + 1);
244			ok( my $rdoc = $nres->get_doc( $i ), "nres->get_doc $i");
245			if ($rdoc) {
246			cmp_ok( $rdoc->attr('@uri'), 'eq', $uri, "\@uri = $uri");
247			} else {
248			fail('no rdoc');
249			}
250			}
251
252
253	dpavlin	56	# user doesn't exist
254			ok(! $node->set_user('foobar', 1), 'set_user');
255
256	dpavlin	94	ok(my $node2 = new Search::Estraier::Node( "http://localhost:1978/node/$test2_node" ), "new $test2_node");
257			ok($node2->set_auth('admin','admin'), "set_auth $test2_node");
258	dpavlin	57
259	dpavlin	78	# croak_on_error
260
261	dpavlin	94	ok($node = new Search::Estraier::Node( url => "http://localhost:1978/non-existant", croak_on_error => 1 ), "new non-existant");
262			throws_ok { $node->name } qr/404/, 'croak on error';
263	dpavlin	78
264	dpavlin	103	# croak_on_error
265	dpavlin	106	ok($node = new Search::Estraier::Node( url => "http://localhost:1978/node/$test1_node", croak_on_error => 1 ), "new $test1_node");
266	dpavlin	94
267	dpavlin	103	ok(! $node->uri_to_id('foobar'), 'uri_to_id without croak');
268
269	dpavlin	137
270	dpavlin	107	# test users
271			ok(! $node->admins, 'no admins');
272			ok(! $node->guests, 'no guests');
273
274	dpavlin	137
275	dpavlin	129	# test search without results
276			ok($cond = new Search::Estraier::Condition, 'new cond');
277			ok($cond->set_phrase('this_is_phrase_which_does_not_exits'), 'cond set_phrase');
278
279			ok($nres = $node->search( $cond, 0 ), 'search');
280
281	dpavlin	137	# now, test links
282			my $test2_label = "$test2_node label";
283			my $link_url = "http://localhost:1978/node/$test2_node";
284			ok($node->set_link( $link_url, $test2_label, 42), "set_link $test2_node ($test2_label) 42");
285			ok(my $links = $node->links, 'links');
286			cmp_ok($#{$links}, '==', 0, 'one link');
287			like($links->[0], qr/^$link_url/, 'link correct');
288			ok($node->set_link("http://localhost:1978/node/$test2_node", $test2_label, 0), "set_link $test2_node ($test2_label) delete");
289	dpavlin	72
290	dpavlin	137	# cleanup test nodes
291			foreach my $node_name ( $test1_node , $test2_node ) {
292			ok($msg = $node->master(
293			action => 'nodedel',
294			name => $node_name,
295			), "nodedel $node_name: $msg");
296			}
297	dpavlin	107
298	dpavlin	139	# test create
299			my $node_name = '_test_create_' . $$;
300			my $node_label = "test $$ label";
301
302			ok($node = new Search::Estraier::Node(
303			url => "http://localhost:1978/node/$node_name",
304			create => 1,
305			label => $node_label,
306			croak_on_error => 1
307	dpavlin	140	), "new create+croak");
308	dpavlin	139
309			cmp_ok($node->name, 'eq', $node_name, "node $node_name exists");
310			cmp_ok($node->label, 'eq', $node_label, "node label: $node_label");
311
312	dpavlin	140	ok($node = new Search::Estraier::Node(
313			url => "http://localhost:1978/node/$node_name",
314			create => 1,
315			label => $node_label,
316			croak_on_error => 0
317			), "new create existing");
318
319			ok($node = new Search::Estraier::Node(
320			url => "http://localhost:1978/node/$node_name",
321			create => 1,
322			label => $node_label,
323			croak_on_error => 1
324			), "new create+croak existing");
325
326			# cleanup
327	dpavlin	139	ok($msg = $node->master(
328			action => 'nodedel',
329			name => $node_name,
330			), "nodedel $node_name: $msg");
331
332	dpavlin	140	# and again, this time without node
333			ok($node = new Search::Estraier::Node(
334			url => "http://localhost:1978/node/$node_name",
335			create => 1,
336			label => $node_label,
337			croak_on_error => 0
338			), "new create non-existing");
339
340			cmp_ok($node->name, 'eq', $node_name, "node $node_name exists");
341			cmp_ok($node->label, 'eq', $node_label, "node label: $node_label");
342
343			# cleanup
344			ok($msg = $node->master(
345			action => 'nodedel',
346			name => $node_name,
347			), "nodedel $node_name: $msg");
348
349	dpavlin	55	diag "over";