--- trunk/t/5_Node.t 2006/01/28 17:38:00 94 +++ trunk/t/5_Node.t 2006/01/28 19:41:59 100 @@ -3,7 +3,7 @@ use strict; use blib; -use Test::More tests => 98; +use Test::More tests => 99; use Test::Exception; use Data::Dumper; @@ -67,7 +67,9 @@ my $id; ok($id = $node->uri_to_id( 'data001' ), "uri_to_id = $id"); -for ( 1 .. 5 ) { +my $data_max = 5; + +for ( 1 .. $data_max ) { ok( $node->out_doc_by_uri( 'test' . $_ ), "out_doc_by_uri test$_"); } @@ -96,6 +98,8 @@ cmp_ok($nres->doc_num, '==', $max, "doc_num = $max"); +cmp_ok($nres->hits, '==', $data_max, "hits"); + for ( 6 .. 10 ) { my $uri = 'test' . $_; ok( my $id = $node->uri_to_id( $uri ), "uri_to_id $uri");