--- trunk/t/5_Node.t 2006/01/05 23:00:22 40 +++ trunk/t/5_Node.t 2006/01/05 23:32:31 41 @@ -3,13 +3,13 @@ use strict; use blib; -use Test::More tests => 14; +use Test::More tests => 34; use Test::Exception; use Data::Dumper; BEGIN { use_ok('Search::Estraier') }; -my $debug = 1; +my $debug = 0; # name of node for test my $test_node = 'Search-Estraier'; @@ -51,4 +51,14 @@ #diag "draft:\n$draft"; ok(my $doc = new Search::Estraier::Document($draft), 'new doc from draft'); -cmp_ok( $node->put_doc($doc), '==', 200, 'put_doc'); +for ( 1 .. 10 ) { + $doc->add_attr('@uri', 'test' . $_); + ok( $node->put_doc($doc), "put_doc test$_"); + #diag $doc->dump_draft; +} + +ok( $node->out_doc( 0 ), 'out_doc'); + +for ( 1 .. 10 ) { + ok( $node->out_doc_by_uri( 'test' .$_ ), "out_doc_by_uri test$_"); +}