--- trunk/t/5_Node.t	2006/05/15 22:06:14	148
+++ trunk/t/5_Node.t	2006/05/15 22:26:08	150
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 246;
+use Test::More tests => 252;
 use Test::Exception;
 use Data::Dumper;
 
@@ -151,17 +151,20 @@
 #diag Dumper($doc);
 ok( $node->edit_doc( $doc ), 'edit_doc');
 
+my $doc_num;
+ok( $doc_num = $node->doc_num, "node->doc_num $doc_num");
+
 ok( $node->out_doc( $id ), "out_doc($id)");
 
-ok( ! $node->edit_doc( $doc ), "edit_doc of removed doc");
+cmp_ok( $node->doc_num, '==', --$doc_num, "node->doc_num " . $doc_num);
 
-my $doc_num;
-ok( $doc_num = $node->doc_num, "node->doc_num $doc_num");
+ok( ! $node->edit_doc( $doc ), "edit_doc of removed doc");
 
 my $delete_num = 5;
 
 for ( 1 .. $delete_num ) {
 	ok( $node->out_doc_by_uri( 'test' . $_ ), "out_doc_by_uri test$_");
+	cmp_ok( $node->doc_num, '==', $doc_num - $_, "node->doc_num " . ($doc_num - $_));
 }
 
 ok($msg = $node->master( action => 'sync' ), "sync: $msg");
@@ -202,7 +205,6 @@
 		ok( my $k = $rdoc->keywords( $id ), "rdoc keywords");
 	} else {
 		ok( ! $nres->get_doc( $i ), "nres->get_doc doesn't exist");
-
 	}
 
 	ok( my $id = $node->uri_to_id( $uri ), "uri_to_id($uri)");