--- trunk/t/5_Node.t 2006/01/06 01:12:10 44 +++ trunk/t/5_Node.t 2006/01/06 01:36:09 45 @@ -3,13 +3,13 @@ use strict; use blib; -use Test::More tests => 45; +use Test::More tests => 46; use Test::Exception; use Data::Dumper; BEGIN { use_ok('Search::Estraier') }; -my $debug = 0; +my $debug = 1; # name of node for test my $test_node = 'Search-Estraier'; @@ -57,7 +57,9 @@ #diag $doc->dump_draft; } -ok( $node->out_doc( 0 ), 'out_doc'); +ok(my $id = $node->uri_to_id( 'data001' ), 'uri_to_id'); + +ok( $node->out_doc( $id ), "out_doc $id"); for ( 1 .. 5 ) { ok( $node->out_doc_by_uri( 'test' . $_ ), "out_doc_by_uri test$_");