No ext_urls

[public-inbox.git] / xt / create-many-inboxes.t

diff --git a/xt/create-many-inboxes.t b/xt/create-many-inboxes.t
index 0c2de40d47c1a1ae894d32a909f110e3e3546ff2..d22803e3c2746a6d6898843448cf79958114cc8c 100644 (file)
--- 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);