X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fconvert-compact.t;h=ced45415e70c580227a5f58ec0b1b4e18669ec81;hb=4db4bfa2c9178b315d2ac09cff794a4476ba1f6e;hp=92a6a9c588fb83f8213e00bdf5c769ac1cdd5d72;hpb=c34a83286234ea1e876ebdf92a33744272bb6f4e;p=public-inbox.git diff --git a/t/convert-compact.t b/t/convert-compact.t index 92a6a9c5..ced45415 100644 --- a/t/convert-compact.t +++ b/t/convert-compact.t @@ -10,7 +10,7 @@ foreach my $mod (@mods) { eval "require $mod"; plan skip_all => "$mod missing for convert-compact.t" if $@; } -use PublicInbox::V2Writable; +use_ok 'PublicInbox::V2Writable'; use PublicInbox::Import; my $tmpdir = tempdir('convert-compact-XXXXXX', TMPDIR => 1, CLEANUP => 1); my $ibx = { @@ -80,8 +80,6 @@ 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"); @xdir = glob("$tmpdir/v2/xap*/*"); foreach (@xdir) { @@ -99,8 +97,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'); +my $msgs = $ibx->recent({limit => 1000}); +is($msgs->[0]->{mid}, 'a-mid@b', 'message exists in history'); +is(scalar @$msgs, 1, 'only one message in history'); done_testing();