X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=xt%2Fsolver.t;h=880458fb96689aad3a5263a7d030102c0a821af4;hb=d323a16ced5e3a77136a1ebca4a2f7d5678121c4;hp=99fca0d3012c5c3cae15e9c86974b0dd51f667f6;hpb=6b13c85d2b1b94973c374fa3444148b49d1d8a19;p=public-inbox.git
diff --git a/xt/solver.t b/xt/solver.t
index 99fca0d3..880458fb 100644
--- a/xt/solver.t
+++ b/xt/solver.t
@@ -1,5 +1,5 @@
#!perl -w
-# Copyright (C) 2020 all contributors
+# Copyright (C) 2020-2021 all contributors
# License: AGPL-3.0+
use strict;
use Test::More;
@@ -67,8 +67,7 @@ SKIP: {
my ($out, $err) = map { "$tmpdir/std$_.log" } qw(out err);
my $cmd = [ qw(-httpd -W0), "--stdout=$out", "--stderr=$err" ];
my $td = start_script($cmd, undef, { 3 => $sock });
- my ($h, $p) = ($sock->sockhost, $sock->sockport);
-
+ my ($h, $p) = tcp_host_port($sock);
local $ENV{PLACK_TEST_EXTERNALSERVER_URI} = "http://$h:$p";
while (($ibx_name, $urls) = each %$todo) {
Plack::Test::ExternalServer::test_psgi(client => $client);