--- trunk/t/5_Node.t 2006/05/16 16:01:09 153 +++ trunk/t/5_Node.t 2006/05/22 14:42:10 156 @@ -3,7 +3,7 @@ use strict; use blib; -my $tests = 269; +my $tests = 270; use Test::More; use Test::Exception; @@ -245,13 +245,15 @@ 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 + 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"); @@ -262,7 +264,7 @@ # user doesn't exist -ok(! $node->set_user('foobar', 1), 'set_user'); +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"); @@ -279,7 +281,7 @@ # test users -ok(! $node->admins, 'no admins'); +ok($node->admins, 'have admins'); ok(! $node->guests, 'no guests'); @@ -301,7 +303,7 @@ ok($msg = $node->master( action => 'nodeclr', name => $node->name, -), "nodeclr $node->name: $msg"); +), "nodeclr " . $node->name . ": $msg"); cmp_ok($node->doc_num, '==', 0, 'no documents');