--- trunk/t/5_Node.t 2006/08/06 16:29:34 167 +++ trunk/t/5_Node.t 2006/08/06 17:15:01 170 @@ -3,7 +3,7 @@ use strict; use blib; -my $tests = 272; +my $tests = 279; use Test::More; use Test::Exception; @@ -157,6 +157,8 @@ my $id; ok($id = $node->uri_to_id( 'data0' ), "uri_to_id(data0)"); +throws_ok { $node->get_doc( 'foo') } qr/id must be number/, 'croak on non-number'; + ok($doc = $node->get_doc( $id ), "get_doc($id) for edit"); $doc->add_attr('foo', 'bar'); #diag Dumper($doc); @@ -232,6 +234,9 @@ ok(my $hints = $nres->hints, 'hints'); diag Dumper($hints) if ($debug); +foreach my $h (qw/TIME DOCNUM VERSION NODE HIT WORDNUM/) { + ok(defined( $nres->hint($h) ), "have hint $h"); +} ok($node->_set_info, "refresh _set_info");