X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fconvert-compact.t;h=92a6a9c588fb83f8213e00bdf5c769ac1cdd5d72;hb=c34a83286234ea1e876ebdf92a33744272bb6f4e;hp=e51eadcf2de5df41a5523fc4fbc49f473136dd16;hpb=c4aa293b2320feb805c5afeaa373f608e5bc8618;p=public-inbox.git diff --git a/t/convert-compact.t b/t/convert-compact.t index e51eadcf..92a6a9c5 100644 --- a/t/convert-compact.t +++ b/t/convert-compact.t @@ -37,6 +37,8 @@ my $mime = PublicInbox::MIME->create( body => "hello world\n", ); ok($im->add($mime), 'added one message'); +ok($im->remove($mime), 'remove message'); +ok($im->add($mime), 'added message again'); $im->done; PublicInbox::SearchIdx->new($ibx, 1)->index_sync; @@ -77,6 +79,7 @@ $cmd = [ 'public-inbox-compact', "$tmpdir/v2" ]; my $env = { NPROC => 2 }; ok(PublicInbox::Import::run_die($cmd, $env, $rdr), 'v2 compact works'); $ibx->{mainrepo} = "$tmpdir/v2"; +$ibx->{version} = 2; my $v2w = PublicInbox::V2Writable->new($ibx); is($v2w->{partitions}, 1, "only one partition in compacted repo"); @@ -96,5 +99,8 @@ foreach (@xdir) { is($st[2] & 07777, -f _ ? 0444 : 0755, 'sharedRepository respected after v2 compact'); } +my $res = $ibx->recent({limit => 1000}); +is($res->{msgs}->[0]->{mid}, 'a-mid@b', 'message exists in history'); +is(scalar @{$res->{msgs}}, 1, 'only one message in history'); done_testing();