3 |
use strict; |
use strict; |
4 |
use blib; |
use blib; |
5 |
|
|
6 |
use Test::More tests => 246; |
use Test::More tests => 252; |
7 |
use Test::Exception; |
use Test::Exception; |
8 |
use Data::Dumper; |
use Data::Dumper; |
9 |
|
|
151 |
#diag Dumper($doc); |
#diag Dumper($doc); |
152 |
ok( $node->edit_doc( $doc ), 'edit_doc'); |
ok( $node->edit_doc( $doc ), 'edit_doc'); |
153 |
|
|
154 |
|
my $doc_num; |
155 |
|
ok( $doc_num = $node->doc_num, "node->doc_num $doc_num"); |
156 |
|
|
157 |
ok( $node->out_doc( $id ), "out_doc($id)"); |
ok( $node->out_doc( $id ), "out_doc($id)"); |
158 |
|
|
159 |
ok( ! $node->edit_doc( $doc ), "edit_doc of removed doc"); |
cmp_ok( $node->doc_num, '==', --$doc_num, "node->doc_num " . $doc_num); |
160 |
|
|
161 |
my $doc_num; |
ok( ! $node->edit_doc( $doc ), "edit_doc of removed doc"); |
|
ok( $doc_num = $node->doc_num, "node->doc_num $doc_num"); |
|
162 |
|
|
163 |
my $delete_num = 5; |
my $delete_num = 5; |
164 |
|
|
165 |
for ( 1 .. $delete_num ) { |
for ( 1 .. $delete_num ) { |
166 |
ok( $node->out_doc_by_uri( 'test' . $_ ), "out_doc_by_uri test$_"); |
ok( $node->out_doc_by_uri( 'test' . $_ ), "out_doc_by_uri test$_"); |
167 |
|
cmp_ok( $node->doc_num, '==', $doc_num - $_, "node->doc_num " . ($doc_num - $_)); |
168 |
} |
} |
169 |
|
|
170 |
ok($msg = $node->master( action => 'sync' ), "sync: $msg"); |
ok($msg = $node->master( action => 'sync' ), "sync: $msg"); |
205 |
ok( my $k = $rdoc->keywords( $id ), "rdoc keywords"); |
ok( my $k = $rdoc->keywords( $id ), "rdoc keywords"); |
206 |
} else { |
} else { |
207 |
ok( ! $nres->get_doc( $i ), "nres->get_doc doesn't exist"); |
ok( ! $nres->get_doc( $i ), "nres->get_doc doesn't exist"); |
|
|
|
208 |
} |
} |
209 |
|
|
210 |
ok( my $id = $node->uri_to_id( $uri ), "uri_to_id($uri)"); |
ok( my $id = $node->uri_to_id( $uri ), "uri_to_id($uri)"); |