trunk/t/5_Node.t

#!/usr/bin/perl -w

use strict;
use blib;

my $tests = 271;

use Test::More;
use Test::Exception;
use Data::Dumper;

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

plan tests => $tests;

my $debug = shift @ARGV;

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

my $estmaster_uri = $ENV{'ESTMASTER_URI'} || 'http://localhost:1978';

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

ok($node->set_url("$estmaster_uri/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';

my ($user, $passwd) = (
        $ENV{EST_USER} || 'admin',
        $ENV{EST_PASSWD} || 'admin'
);

ok($node->set_auth($user, $passwd), 'set_auth');

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

# test master functionality

SKIP: {

skip "can't find estmaster at $estmaster_uri", ($tests - 9) if (! eval { $node->master( action => 'nodelist' ) } );

diag "using $estmaster_uri";
diag("node->master shutdown not tested");

diag("node->master backup not tested");

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',
};

my $msg;
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 => '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;
        cmp_ok( $node->doc_num, '==', ($_ + 1), "node->doc_num " . ($_ + 1));
}

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');

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

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

cmp_ok( $node->doc_num, '==', --$doc_num, "node->doc_num " . $doc_num);

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

my $cache;
ok($cache = $node->cacheusage, "cacheusage: $cache");

my $delete_num = 5;

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

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) if ($debug);

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)");

like($node->cond_to_query( $cond ), qr/skip=$skip/, 'cond_to_query have 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 + $skip + 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( "$estmaster_uri/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 => "$estmaster_uri/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 => "$estmaster_uri/node/$test1_node", croak_on_error => 1, user => $user, passwd => $passwd, debug => $debug ), "new $test1_node");

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


# test users
ok($node->admins, 'have 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 = "$estmaster_uri/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("$estmaster_uri/node/$test2_node", $test2_label, 0), "set_link $test2_node ($test2_label) delete");

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

cmp_ok($node->doc_num, '==', 0, 'no documents');

# 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 => "$estmaster_uri/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 => "$estmaster_uri/node/$node_name",
        create => 1,
        label => $node_label,
        croak_on_error => 0
), "new create existing");

ok($node = new Search::Estraier::Node(
        url => "$estmaster_uri/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 => "$estmaster_uri/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");

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

} # SKIP

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