--- trunk/t/5_Node.t 2006/05/16 16:05:23 154 +++ trunk/t/5_Node.t 2006/05/18 14:31:42 155 @@ -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"); @@ -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');