X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fpurge.t;h=c1e0e9a023ab8e4b24d513ab7020591ac9ffa3a6;hb=0b1de991a099b5e8b9a9e3e85b5eaaacc9362dbb;hp=94060055c9edf85aa3fc8a27aa02717900009e1b;hpb=440b0feaa209e12e4bcb8ef16a95041fce71e7dc;p=public-inbox.git

diff --git a/t/purge.t b/t/purge.t
index 94060055..c1e0e9a0 100644
--- a/t/purge.t
+++ b/t/purge.t
@@ -6,10 +6,10 @@ use Test::More;
 use File::Temp qw/tempdir/;
 require './t/common.perl';
 require_git(2.6);
-my @mods = qw(IPC::Run DBI DBD::SQLite Search::Xapian);
+my @mods = qw(IPC::Run DBI DBD::SQLite);
 foreach my $mod (@mods) {
 	eval "require $mod";
-	plan skip_all => "missing $_ for t/purge.t" if $@;
+	plan skip_all => "missing $mod for t/purge.t" if $@;
 };
 use Cwd qw(abs_path);
 my $purge = abs_path('blib/script/public-inbox-purge');
@@ -35,12 +35,11 @@ Hello World
 
 EOF
 
-local $ENV{NPROC} = '1';
 my $cfgfile = "$tmpdir/config";
 local $ENV{PI_CONFIG} = $cfgfile;
 open my $cfg_fh, '>', $cfgfile or die "open: $!";
 
-my $v2w = PublicInbox::V2Writable->new($ibx, 1);
+my $v2w = PublicInbox::V2Writable->new($ibx, {nproc => 1});
 my $mime = PublicInbox::MIME->new($raw);
 ok($v2w->add($mime), 'add message to be purged');
 $v2w->done;