- my $cmd = [ "$script-index", '--prune', "$tmpdir/m" ];
- my ($in, $out, $err) = ('', '', '');
- ok(IPC::Run::run($cmd, \$in, \$out, \$err), '-index --prune');
+ $ibx->cleanup;
+ PublicInbox::InboxWritable::cleanup($mibx);
+ $v2w->done;
+ my $cmd = [ '-index', '--prune', "$tmpdir/m" ];
+ my ($out, $err) = ('', '');
+ my $opt = { 1 => \$out, 2 => \$err };
+ ok(run_script($cmd, undef, $opt), '-index --prune');