X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=xt%2Fhttpd-async-stream.t;h=c7039f3e86f31ad93f78933fe724a25f442dc734;hb=9cd6f106919076285c3dcc0d48977d6b39c33ede;hp=22a96875dc95b77791b43e3c2b547d5bfbc7aba7;hpb=a3a6e24993a4c8d0fbcb56a23548c65e62f0a6ed;p=public-inbox.git
diff --git a/xt/httpd-async-stream.t b/xt/httpd-async-stream.t
index 22a96875..c7039f3e 100644
--- a/xt/httpd-async-stream.t
+++ b/xt/httpd-async-stream.t
@@ -1,5 +1,5 @@
#!perl -w
-# Copyright (C) 2020 all contributors
+# Copyright (C) 2020-2021 all contributors
# License: AGPL-3.0+
# Expensive test to validate compression and TLS.
use strict;
@@ -41,7 +41,7 @@ address = test\@example.com
# not using multiple workers, here, since we want to increase
# the chance of tripping concurrency bugs within PublicInbox/HTTP*.pm
my $cmd = [ '-httpd', "--stdout=$out", "--stderr=$err", '-W0' ];
- my $host_port = $http->sockhost.':'.$http->sockport;
+ my $host_port = tcp_host_port($http);
push @$cmd, "-lhttp://$host_port";
my $url = "$host_port/test/$endpoint";
print STDERR "# CMD ". join(' ', @$cmd). "\n";