diff options
author | Eric Wong <e@80x24.org> | 2022-09-08 08:16:45 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2022-09-08 08:17:05 +0000 |
commit | 2dac8623e41bee83f1861608e708b33696c7d189 (patch) | |
tree | f5e407cdf82061f0dd634e3d08465b2c7d4b4d9c | |
parent | a4eba23d05802c6d522ac8d61b781f2f1417a93b (diff) | |
download | public-inbox-2dac8623e41bee83f1861608e708b33696c7d189.tar.gz |
This test tends to fail sometimes, likely due to plackup startup being slow on a cold page cache and having an overloaded rotational HDD.
-rw-r--r-- | t/v2mirror.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/v2mirror.t b/t/v2mirror.t index 37d64e83..f9074e45 100644 --- a/t/v2mirror.t +++ b/t/v2mirror.t @@ -368,10 +368,11 @@ EOM # wait for plackup socket()+bind()+listen() my %opt = ( Proto => 'tcp', Type => Socket::SOCK_STREAM(), PeerAddr => "$host:$port" ); - for (0..50) { + for (0..100) { tick(); last if IO::Socket::INET->new(%opt); } + IO::Socket::INET->new(%opt) or xbail "connect $host:$port: $!"; my $dst = "$tmpdir/scrape"; @cmd = (qw(-clone -q), "http://$host:$port/v2", $dst); run_script(\@cmd, undef, { 2 => \($err = '') }); |