X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=xt%2Fcreate-many-inboxes.t;h=d22803e3c2746a6d6898843448cf79958114cc8c;hb=refs%2Fheads%2Fmaster;hp=0c2de40d47c1a1ae894d32a909f110e3e3546ff2;hpb=9dfc0b670fc634b54998c3020f173b82de1915ac;p=public-inbox.git

diff --git a/xt/create-many-inboxes.t b/xt/create-many-inboxes.t
index 0c2de40d..d22803e3 100644
--- a/xt/create-many-inboxes.t
+++ b/xt/create-many-inboxes.t
@@ -2,9 +2,10 @@
 # Copyright (C) 2020-2021 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 use strict;
-use Test::More;
+use v5.10.1;
 use PublicInbox::TestCommon;
 use PublicInbox::Eml;
+use PublicInbox::IPC;
 use File::Path qw(mkpath);
 use IO::Handle (); # autoflush
 use POSIX qw(_exit);
@@ -21,7 +22,7 @@ require_git 2.6;
 require_mods(qw(DBD::SQLite Search::Xapian));
 use_ok 'PublicInbox::V2Writable';
 my $nr_inbox = $ENV{NR_INBOX} // 10;
-my $nproc = $ENV{NPROC} || PublicInbox::V2Writable::detect_nproc() || 2;
+my $nproc = $ENV{NPROC} || PublicInbox::IPC::detect_nproc() || 2;
 my $indexlevel = $ENV{TEST_INDEXLEVEL} // 'basic';
 diag "NR_INBOX=$nr_inbox NPROC=$nproc TEST_INDEXLEVEL=$indexlevel";
 diag "TEST_MANY_ROOT=$many_root";
@@ -39,6 +40,7 @@ my $v2_init_add = sub {
 		address => [ "test-$i\@example.com" ],
 		url => [ "//example.com/test-$i" ],
 		version => 2,
+		-no_fsync => 1,
 	});
 	$ibx->{indexlevel} = $indexlevel if $level_cfg ne '';
 	my $entry = <<EOF;
@@ -68,7 +70,7 @@ my @children;
 for my $i (1..$nproc) {
 	my ($r, $w);
 	pipe($r, $w) or BAIL_OUT $!;
-	my $pid = fork;
+	my $pid = fork // BAIL_OUT "fork: $!";
 	if ($pid == 0) {
 		close $w;
 		while (my $i = <$r>) {
@@ -77,7 +79,6 @@ for my $i (1..$nproc) {
 		}
 		_exit(0);
 	}
-	defined $pid or BAIL_OUT "fork: $!";
 	close $r or BAIL_OUT $!;
 	push @children, [ $w, $pid ];
 	$w->autoflush(1);